Hola a tod@s, quería comentaros un problema que tengo al intentar enviar correos con archivos adjuntos desde VB 6.0 utilizanzo el MAPI de Windows.
Tengo activado el componente Microsoft MAPI controls 6.0. En el formulario tengo insertado tanto el Objeto MAPIMessages como el MAPISession.
Si el correo que envío es sin archivos adjuntos funciona perfectamente pero cuando inserto algo me da el siguiente error: Error '32002' en tiempo de ejecución: Ocurrió un fallo no determinado.
La función que utilizo es la siguiente:
Código:
Private Function EnviarMailAttach(v_para As String, v_asunto As String, v_mensaje As Variant, anexo As String, ruta As String)
'--- abro la sesion ---
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
'--- asigno los parámetros del correo ---
MAPIMessages1.Compose
MAPIMessages1.RecipDisplayName = v_para
MAPIMessages1.MsgSubject = v_asunto
MAPIMessages1.MsgNoteText = v_mensaje
'--- asigno parámetros de archivo adjunto ---
'MAPIMessages1.AttachmentIndex = 0
MAPIMessages1.AttachmentName = anexo
MAPIMessages1.AttachmentPathName = ruta
'MAPIMessages1.AttachmentPosition = 0
'MAPIMessages1.AttachmentType = 0
'MAPIMessages1.ResolveName
MAPIMessages1.Send
'--- cierro la sesion ---
MAPISession1.SignOff
End Function
No se, a ver si a alguien se le ocurre algo porque yo no encuentro nada.
Muchas gracias a tod@s