【发布时间】:2020-06-30 08:06:51
【问题描述】:
我正在尝试创建 Outlook 2010 VBA 代码以回复\回复所有特定电子邮件地址。
【问题讨论】:
标签: vba outlook outlook-2010
我正在尝试创建 Outlook 2010 VBA 代码以回复\回复所有特定电子邮件地址。
【问题讨论】:
标签: vba outlook outlook-2010
我不是 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
【讨论】: