Adjuntar al correo
Publicado por Alberto (3 intervenciones) el 14/01/2003 19:35:39
Estoy haciendo desde visual Basic una aplicacion. Una de sus partes es poder mandar mensajes. Ya lo he conseguido a traves de los controles MAPI, incluso adjuntando un documento. El problema es que no se como adjuntar mas de uno.
el codigo es:
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
With MAPIMessages1
.Compose
.MsgIndex = -1
.RecipAddress = Text2.Text
.MsgSubject = Text3.Text
If Text4.Text <> "" Then
.AttachmentPathName = Text4.Text
.AttachmentName = Text1.Text
End If
.AddressResolveUI = True
.ResolveName
.Send (False)
End With
MAPISession1.SignOff
En la propiedad ".AttachmentPathName" que es donde se pone el documento y la ruta, para uno me lo hace bien, pero para dos documentos me falla pq no debe reconocerlo y piensa que es uno y al no existir peta.
He intentado separar las rutas por un punto y coma pero nada, solo me deja una
Gracias de antemano si alguien sabe como enviar mas de un dato adjunto
el codigo es:
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
With MAPIMessages1
.Compose
.MsgIndex = -1
.RecipAddress = Text2.Text
.MsgSubject = Text3.Text
If Text4.Text <> "" Then
.AttachmentPathName = Text4.Text
.AttachmentName = Text1.Text
End If
.AddressResolveUI = True
.ResolveName
.Send (False)
End With
MAPISession1.SignOff
En la propiedad ".AttachmentPathName" que es donde se pone el documento y la ruta, para uno me lo hace bien, pero para dos documentos me falla pq no debe reconocerlo y piensa que es uno y al no existir peta.
He intentado separar las rutas por un punto y coma pero nada, solo me deja una
Gracias de antemano si alguien sabe como enviar mas de un dato adjunto
Valora esta pregunta
0