Você pode definir a regra para "executar um script". Agora testou o código .
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