vba - Outlook Responder o responder a un correo electrónico

email outlook-vba

Question

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
objMail.To = "[email protected]"
objMail.cc = "[email protected]"
objMail.Subject = "Mail test"
objMail.HTMLBody = "This is my message"
unload me
objMail.Display
Set objMail = Nothing
Set objOutlook = Nothing

Estoy tratando de agregar otra función que ayude a responder un correo electrónico seleccionado, pero no puedo entender cómo puedo mezclar esto con el Item As Outlook.MailItem Entiendo que responder un correo electrónico requerirá eso.

Por lo tanto, me gustaría saber cómo puedo agregar para poder seleccionar un correo electrónico, ejecutar la macro e ingresará el correo electrónico del destinatario en objMail.To y el cuerpo del destinatario en objMail.HTMLBody

Answer 1

Para simplemente Reply o ReplyAll los mensajes seleccionados, intente lo siguiente.

Option Explicit
Sub ReplyMSG()
Dim olItem As Outlook.MailItem
Dim olReply As MailItem '' Reply
Dim olRecip As Recipient '' Add Recipient
For Each olItem In Application.ActiveExplorer.Selection
Set olReply = olItem.ReplyAll
Set olRecip = olReply.Recipients.Add("Email Address Here") '' Recipient Address
olRecip.Type = olCC
olReply.HTMLBody = "Hello, Thank you. " & vbCrLf & olReply.HTMLBody
olReply.Display
''olReply.Send
Next olItem
End Sub

Para ocultar el destinatario, use el ejemplo BCC

olRecip.Type = olBcc

Para agregar múltiples destinatarios simplemente agregue

Set olRecip = olReply.Recipients.Add("Email Here")
Set olRecip = olReply.Recipients.Add("Email Here")
Set olRecip = olReply.Recipients.Add("Email Here")

Sin destinatario, intente lo siguiente.

Option Explicit
Sub ReplyMSG()
Dim olItem As Outlook.MailItem
Dim olReply As MailItem '' Reply
For Each olItem In Application.ActiveExplorer.Selection
Set olReply = olItem.ReplyAll
olReply.HTMLBody = "Hello, Thank you. " & vbCrLf & olReply.HTMLBody
olReply.Display
''olReply.Send
Next olItem
End Sub