绕过ExchangeServer 用Outlook转发新邮件

公司的Exchange Server似乎不允许通过Rule向外部转发邮件

这样收邮件就很麻烦

不过，我们可以利用Macro宏 来实现邮件转发

需要利用Outlook的NewMail事件来完成：

（1）tool->macro->Visual Basic Editor，打开Visual Basic编辑器。

（2）在ThisOutlookSession对象中输入如下代码：

Private Sub Application_NewMail()

Dim mymailitem As MailItem

Set mymailitem = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.GetLast
'获取最后一封邮件

Do

mymailitem.Forward '转发

mymailitem.To ="some@where.com" '转发的目的邮箱，可以修改为您需要转发的地址

mymailitem.Send '发送

Set mymailitem = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.GetLast
'获取下一个邮件

Loop Until mymailitem.UnRead = False '直到所有未读邮件被转发完为止

End Sub