需要 Outlook 宏创建回复的建议

问题描述 投票:0回答:1

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

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

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
vba outlook macros reply
1个回答
0
投票

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]"
© www.soinside.com 2019 - 2024. All rights reserved.