Programación General > Visual Basic 6.0 e inferiores

 Enviar correo con datos adjuntos

(1/1)

ddlm:
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: Text --- 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

Navegación

[0] Índice de Mensajes