Outlook回复或全部回复邮件

Question

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

我正试图添加另一个功能，帮助回复选定的电子邮件，但不知道如何将其与Item As Outlook.MailItem混合我明白回复邮件需要这样做。

我想知道我如何添加这样我就可以选择一个电子邮件，执行宏，它将输入收件人的电子邮件到objMail.To和收件人的正文到objMail.HTMLBody

Answer 1

要简单地回复或回复所有选定的邮件，请尝试以下操作。

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

隐藏收件人使用密件示例

olRecip.Type = olBcc

要添加多个收件人，只需添加

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

与out收件人尝试以下内容。

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