Enviar correo con datos adjuntos

ddlm
11 de Noviembre del 2008
Hola a [email protected], 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:

[code]
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
[/code]

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

Muchas gracias a [email protected]

alejandro sainz
11 de Noviembre del 2008
a eso ya te contestaron en los 500 mil foros que pusiste la misma pregunta

eres autista???

felix
11 de Noviembre del 2008
Hola perdona, pero puedes ponerme el link de alguno de los que le respondieron, estoy buscando y no veo nada.
Un saludo