我正在尝试创建Outlook 2010 VBA代码以回复\全部回复特定的电子邮件地址。
答案 0 :(得分: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