Enviar correo con datos adjuntos
ddlm
11 de Noviembre del 2008
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:
[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 tod@s
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 tod@s
alejandro sainz
11 de Noviembre del 2008
a eso ya te contestaron en los 500 mil foros que pusiste la misma pregunta
eres autista???
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
Un saludo