Vba Outlook回复或回复电子邮件

我正在尝试添加另一个功能，帮助回复选定的电子邮件，但无法确定如何将此功能与

项目作为Outlook.MailItem混用
我知道回复电子邮件需要这样做

因此，我想知道如何添加，以便选择一封电子邮件，执行宏，它会将收件人电子邮件输入到
objMail.to
中，并将收件人的正文输入到
objMail.HTMLBody
中，以简单或选定邮件，请尝试以下操作

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

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

要隐藏收件人，请使用密件抄送
范例

olRecip.Type=olBcc

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

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

如果没有收件人，请尝试以下操作

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

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

回复时，使用
Dim Item作为Outlook.MailItem
然后使用
Item.reply
或
Item.ReplyAll
你好，谢谢。但它不起作用。“Dim Item As Outlook.MailItem”功能是否也有助于检测我选择的电子邮件？您只想回复选定的电子邮件？是的，如果我误解了我的问题，请道歉。我的实际计划是在收件箱中选择一封电子邮件，然后单击“宏”按钮，这样它将准确显示您单击“回复”按钮时显示的内容，但唯一的区别是将我的邮件（使用objMail.HTMLBody）也输入到电子邮件中。谢谢！但是，默认情况下不显示收件人电子邮件。有没有办法不用键入就把它输入？@ZhengYiChew看到我更新的答案了，-我删除了收件人的最后一个代码，你是这么问的吗？