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:
No se, a ver si a alguien se le ocurre algo porque yo no encuentro nada.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
Muchas gracias a tod@s