Mandar un email con acuse de recibo
Publicado por Monica (152 intervenciones) el 23/10/2006 19:55:07
Mediante VBA mando un email de la siguiente forma
Set Correo = CreateObject("Outlook.Application")
Set Mensaje = Correo.CreateItem(olMailItem)
With Mensaje
.To = Me!AdrEmail
.CC = Me!CC
.Subject = Me!Subject
.Body = Me!Body & vbCrLf
.Attachments.Add S
.Importance = olImportanceHigh
.Send
End With
Set Mensaje = Nothing
Set Correo = Nothing
¿Pero como indicarle que lo mande con acuse de recibo?
¿Es posible?
Gracias a todos
Teneis una pagina estupenda
Set Correo = CreateObject("Outlook.Application")
Set Mensaje = Correo.CreateItem(olMailItem)
With Mensaje
.To = Me!AdrEmail
.CC = Me!CC
.Subject = Me!Subject
.Body = Me!Body & vbCrLf
.Attachments.Add S
.Importance = olImportanceHigh
.Send
End With
Set Mensaje = Nothing
Set Correo = Nothing
¿Pero como indicarle que lo mande con acuse de recibo?
¿Es posible?
Gracias a todos
Teneis una pagina estupenda
Valora esta pregunta


0