VBA实现outlook邮件自动转发可以吗？

Question

我一开始用outlook的规则和通知功能，发现邮件可以自动转发。但是只能是转发到公司内部的email地址。我猜测这很有可能是outlook配置“规则和通知”是对exchange服务器进行操作，而公司把服务器做了处理，禁止对外转发。然后我直接指定一封邮件，转发外网的某个email地址，成功了。说明在本地直接转发没有问题。我的设想是用VBA实现，当接收到邮件时，由VBA代码在本地转发。
我不知道这有没有可能实现。
请发表意见

Answer 1

加个事件
Private Sub Application_NewMail()
Dim myItem As Outlook.MailItem
    Set myItem = Application.ActiveExplorer.Selection.Item(1)
    myItem.Forward.Recipients.Add "[email protected]"
    myItem.Send
Set myItem = Nothing
End Sub

Answer 2

这个事件怎么加的啊?要用什么工具吗?还是在OutLook 中直接加?
不懂这个,望指点一二,,谢谢.