Vba 使用Outlook 2010更改对其他地址的答复_Vba_Outlook_Outlook 2010

Vba 使用Outlook 2010更改对其他地址的答复

vba outlook

Vba 使用Outlook 2010更改对其他地址的答复,vba,outlook,outlook-2010,Vba,Outlook,Outlook 2010,我正在尝试创建Outlook 2010 VBA代码，以回复\回复所有特定电子邮件地址。我不是Visual Basic编程人员，但我拼凑了下面的宏代码，因为我在任何地方都找不到它。我花了很多时间锻炼自己；这可能不是最好的做法，但对我来说很有效要安装它，请执行以下操作：转到Outlook中的宏，键入宏名称，然后按Create。我把我的名字叫做“ChangeReplyAddressNoPrompt”。然后粘贴下面的代码（工作代码是Sub（）和End Sub之间的行。然后保存并关闭VBA 然后打开一

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

我不是Visual Basic编程人员，但我拼凑了下面的宏代码，因为我在任何地方都找不到它。我花了很多时间锻炼自己；这可能不是最好的做法，但对我来说很有效

要安装它，请执行以下操作：转到Outlook中的宏，键入宏名称，然后按Create。我把我的名字叫做“ChangeReplyAddressNoPrompt”。然后粘贴下面的代码（工作代码是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