SOLICITAR AVISO DE LECTURA (MAPI)
Publicado por LEO (1 intervención) el 31/05/2007 17:18:43
HOLA TENGO ESTE CODIGO PARA ENVIAR CORREO
* COMO HAGO PARA QUE SOLICITE UN AVISO DE LECTURA
* SI QUIERO RE ENVIAR EL MENSAJE QUE ME QUEDA EN LA BANDEJA DE SALIDAD DEL OUTLOOK EXPRESS ME CAMBIA LA FECHA DEL ENVIO EN LA PARTE DONDE DICE MENSAJE ORIGINAL
With MAPISession1
.DownLoadMail = False 'para que no comience a decargar los mails
.LogonUI = True
.SignOn
.NewSession = False ' para que no abra otro cliente de correo si ya tenes uno abierto
MAPIMessages1.SessionID = MAPISession1.SessionID
End With
With MAPIMessages1
.MsgIndex = -1 ' nuevo mensaje
.Compose
.RecipIndex = 0
.RecipAddress = dest1 'direccion de correo
.AddressResolveUI = True
.ResolveName
.RecipIndex = 1
.RecipAddress = dest2 'direccion de correo
.AddressResolveUI = True
.ResolveName
.MsgSubject = asunto ' asunto del mensaje
.MsgNoteText = TextBox1 ' MENSAJE
'ADJUNTA ARCHIVO **************************************************
.AttachmentIndex = 0
.AttachmentPathName = "C:\para enviar.XLS"
.MsgReceiptRequested = True
.Send False
End With
MAPISession1.SignOff 'cierra la sesion
* COMO HAGO PARA QUE SOLICITE UN AVISO DE LECTURA
* SI QUIERO RE ENVIAR EL MENSAJE QUE ME QUEDA EN LA BANDEJA DE SALIDAD DEL OUTLOOK EXPRESS ME CAMBIA LA FECHA DEL ENVIO EN LA PARTE DONDE DICE MENSAJE ORIGINAL
With MAPISession1
.DownLoadMail = False 'para que no comience a decargar los mails
.LogonUI = True
.SignOn
.NewSession = False ' para que no abra otro cliente de correo si ya tenes uno abierto
MAPIMessages1.SessionID = MAPISession1.SessionID
End With
With MAPIMessages1
.MsgIndex = -1 ' nuevo mensaje
.Compose
.RecipIndex = 0
.RecipAddress = dest1 'direccion de correo
.AddressResolveUI = True
.ResolveName
.RecipIndex = 1
.RecipAddress = dest2 'direccion de correo
.AddressResolveUI = True
.ResolveName
.MsgSubject = asunto ' asunto del mensaje
.MsgNoteText = TextBox1 ' MENSAJE
'ADJUNTA ARCHIVO **************************************************
.AttachmentIndex = 0
.AttachmentPathName = "C:\para enviar.XLS"
.MsgReceiptRequested = True
.Send False
End With
MAPISession1.SignOff 'cierra la sesion
Valora esta pregunta


0