Correo con VB6 y MAPI.
Publicado por Mario (2 intervenciones) el 27/10/2004 16:00:04
Estoy desarrollando una aplicación capaz de levantar un correo nuevo con casi todo relleno.
La parte del código que genera el mensaje es más o menos éste:
With <control MAPIMessage>
.Compose
.RecipIndex = 0
.RecipDisplayName = <Destinatario>
.MsgSubject = <Texto del asunto>
.AttachmentIndex = 0
.AttachmentPathName = <Path de un fichero>
.AttachmentIndex = 1
.AttachmentPathName = <Path de otro fichero>
.MsgNoteText = <Cuerpo del mensaje>
.Send True
End With
Me pasa lo siguiente:
Si adjunto un fichero, funciona bien.
Si adjunto los dos ficheros y .MsgNoteText = " ", funciona bien.
Si adjunto los dos ficheros y .MsgNoteText <> " ", da error en el envío.
Con lo cual no puedo escribir el cuerpo del mensaje o no puedo adjuntar más de un fichero.
¿Alguien sabe cómo puedo hacer para poder montar un correo sin esos problemas?
Gracias por vuestra colaboración.
La parte del código que genera el mensaje es más o menos éste:
With <control MAPIMessage>
.Compose
.RecipIndex = 0
.RecipDisplayName = <Destinatario>
.MsgSubject = <Texto del asunto>
.AttachmentIndex = 0
.AttachmentPathName = <Path de un fichero>
.AttachmentIndex = 1
.AttachmentPathName = <Path de otro fichero>
.MsgNoteText = <Cuerpo del mensaje>
.Send True
End With
Me pasa lo siguiente:
Si adjunto un fichero, funciona bien.
Si adjunto los dos ficheros y .MsgNoteText = " ", funciona bien.
Si adjunto los dos ficheros y .MsgNoteText <> " ", da error en el envío.
Con lo cual no puedo escribir el cuerpo del mensaje o no puedo adjuntar más de un fichero.
¿Alguien sabe cómo puedo hacer para poder montar un correo sin esos problemas?
Gracias por vuestra colaboración.
Valora esta pregunta


0