回复收件箱中突出显示的电子邮件，向特定电子邮件添加密件抄送，并直接回复特定电子邮件

Question

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

我想向功能区添加一个按钮，该按钮将： 根据我在“收件箱”窗格中突出显示的电子邮件打开回复，自动将电子邮件添加到密件抄送字段并自动将消息设置为“直接回复：”

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

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

这会将其设置为“直接回复：”，但前提是我打开了邮件。

Answer 1

让我们从这样的事情开始。正如我在 cmets 中提到的，您可以使用 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

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

Add BCC to email with VBA in Outlook 2013

向功能区添加按钮可能涉及更多，并且肯定比可能需要的更复杂，如果您确实希望这样做，我建议它应该是一个新问题。功能区/XML 自定义不再是“简单”的 VBA。

目前，如果您只是启用“开发人员”功能区，则可以从“宏”菜单访问此宏：