回复收件箱中突出显示的电子邮件，将BCC添加到特定电子邮件，并直接回复某个电子邮件

Question

在工作中，当我们发送电子邮件时，我们必须在BCC字段中键入某个地址，然后单击＆＃34;消息选项＆＃34;并输入＆＃34;直接回复：＆＃34;另一个地址。

我想在功能区中添加一个按钮，该按钮将： 根据我在＆＃34;收件箱中突出显示的电子邮件打开回复＃34;窗格，自动将电子邮件添加到BCC字段并自动将邮件设置为＆＃34;直接回复：＆＃34;

到目前为止，我已经想出了这个：

Sub ReplyUW()
Dim mail As MailItem
Set mail = ActiveInspector.CurrentItem

mail.ReplyRecipients.Add ("XXXX@email.com")
mail.ReplyRecipients.Add ("XXXX@email.com")
mail.Recipients.ResolveAll
End Sub

这将其设置为＆＃34;直接回复：＆＃34;但只有我打开了信息。

Answer 1

让我们从这样的事情开始吧。正如我在评论中提到的，您可以使用ActiveExplorer代替ActiveInspector。此宏设置为在所有选定的项目上运行，因此您可以选择多个电子邮件，并自动“回复”所有这些电子邮件。

Sub test()

Dim m As MailItem 'object/mail item iterator
Dim recip As Recipient 'object to represent recipient(s)
Dim reply As MailItem 'object which will represent the reply email

'Loop over each SELECTED item:
For Each m In Application.ActiveExplorer.Selection
    If m.Class = olMail Then
    Set reply = m.reply

    'Adds a "direct replies to" address:
    reply.ReplyRecipients.Add "XXXX@email.com"

    'Adds BCC recipient to the reply:
    Set recip = reply.Recipients.Add("someone_else@email.com")
    recip.Type = olBCC '3

    reply.Save 'saves a draft copy to your SENT folder
    reply.Send

    End If
Next

End Sub

信用到期，我不知道如何添加BCC收件人，但我在这里找到了如何做到这一点：

Add BCC to email with VBA in Outlook 2013

在功能区中添加一个按钮可能更复杂，并且肯定比可能需要的更复杂，如果你愿意这样做，我建议它应该是一个新问题。功能区/ XML自定义不再是“简单”的VBA。

目前，如果只启用Developer功能区，则可以从“宏”菜单中访问此宏：