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