OUTLOOK自带的规则虽然可以设置自动转发,但这个规则是建立在服务器上的,但有些公司为了防止机密外泄而设置了服务器自动转发限制。
解决的方法可以用OUTLOOK事件的方法来实现:
Private Sub Application_NewMail() Dim myItem As Outlook.MailItem Set myItem = Application.ActiveExplorer.Selection.Item(1) myItem.Forward.Recipients.Add "a@" myItem.Send End Sub
在本人的OUTLOOK 环境下测试通过,如果各位有谁实现不了,请留言。