需要 Outlook 宏创建回复的建议

Question

我似乎无法让收件人/抄送代码行正常工作。我现在已经将其注释掉了，宏在没有它的情况下也可以工作。

宏的设计是为了让我收到一封选定的电子邮件，单击宏图标，它会生成一个回复，其中的正文预先填充了明天的日期。最终，我希望它能够将所有发送电子邮件的人移至抄送行。并将新收件人填充为两个指定的人。只是无法让它发挥作用。我不是专业人士，只是在这方面遇到了严重的崩溃。我感谢任何人的帮助

Option Explicit
Sub ReplyalMSG()
    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.Recip.Add("[email protected]")
        'olRecip.Type = olCC
        olReply.HTMLBody = "Hi, This customer would like to request a pickup on  " & Format(Date + 1,  "dddd, mmm d yyyy") & vbCrLf & olReply.HTMLBody
        olReply.Display
    
        'olReply.Send
    Next olItem
End Sub

Answer 1

MailItem.ReplyAll

将填充所有收件人，您只需重置其类型 - 循环遍历

olReply.Recipient

集合中的所有收件人并将其类型设置为 olCC。然后，您可以拨打

olReply.Recipients.Add

三次来添加两个新收件人。

for each recip in olReply.Recipient
  recuip.Type = olCC
next
olReply.Recipients.Add "[email protected]"
olReply.Recipients.Add "[email protected]"