如何创建 Outlook 规则以通过密件抄送将电子邮件重新发送给联系人组?
在特定的电子邮件帐户上,每当我收到电子邮件时,我都想将此电子邮件重新发送给一组人,并且我只希望他们的电子邮件地址位于密件抄送字段中。
答案1
您可以将规则设置为“运行脚本”。现在测试代码。
Sub ForwardBcc(Item As Outlook.MailItem)
Dim myRecip as Outlook.Recipient
Dim myForward As mailitem
Set myForward = Item.Forward
Set myRecip = myForward.Recipients.Add("Dist List Name")
myRecip.Resolve
myRecip.Type = olBCC
myForward.Display ' Remove when tested
' myForward.Send ' Uncomment when ready
End Sub
Sub ForwardBcc_Test
' Open a message
Dim item as mailitem
Set item = ActiveInspector.CurrentItem
ForwardBcc item
End Sub