vba - 使用 Outlook 2010 将回复更改为另一个地址

Question

我正在尝试创建 Outlook 2010 VBA 代码来回复\回复所有特定的电子邮件地址。

Answer 1

我不是 Visual Basic 程序员，但我将下面的宏代码拼凑在一起，因为我在任何地方都找不到它。我花了很长时间才锻炼自己。这可能不是最佳实践，但对我有用。

要安装它：转到 Outlook 中的宏，键入宏名称，然后按创建。我叫我的“ChangeReplyAddrNoPrompt”。然后粘贴下面的代码（工作代码是 Sub() 和 End Sub 之间的行。然后保存并关闭 VBA。

然后打开一条新消息，单击自定义快速访问菜单，然后单击更多命令。从“选择命令”下拉菜单中选择宏。将您刚刚创建的宏添加到快速访问工具栏。

祝你好运！

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

mail.ReplyRecipients.Add ("email1@website.url")
mail.ReplyRecipients.Add ("email2@website.url")
mail.Recipients.ResolveAll

End Sub