SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: ddlm en Viernes 5 de Septiembre de 2008, 13:38

Título: Enviar correo con datos adjuntos
Publicado por: ddlm en Viernes 5 de Septiembre de 2008, 13:38
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
  1.  
  2. Private Function EnviarMailAttach(v_para As String, v_asunto As String, v_mensaje As Variant, anexo As String, ruta As String)
  3.  
  4.     '--- abro la sesion ---
  5.     MAPISession1.SignOn
  6.     MAPIMessages1.SessionID = MAPISession1.SessionID
  7.     '--- asigno los parámetros del correo ---
  8.     MAPIMessages1.Compose
  9.     MAPIMessages1.RecipDisplayName = v_para
  10.     MAPIMessages1.MsgSubject = v_asunto
  11.     MAPIMessages1.MsgNoteText = v_mensaje
  12.     '--- asigno parámetros de archivo adjunto ---
  13.     'MAPIMessages1.AttachmentIndex = 0
  14.     MAPIMessages1.AttachmentName = anexo
  15.     MAPIMessages1.AttachmentPathName = ruta
  16.     'MAPIMessages1.AttachmentPosition = 0
  17.     'MAPIMessages1.AttachmentType = 0
  18.    
  19.     'MAPIMessages1.ResolveName
  20.     MAPIMessages1.Send
  21.     '--- cierro la sesion ---
  22.     MAPISession1.SignOff
  23.              
  24. End Function
  25.  
  26.  

No se, a ver si a alguien se le ocurre algo porque yo no encuentro nada.

Muchas gracias a tod@s