outlook 自动转发到另外一个邮箱地址

我想实现将公司邮箱收到的邮件自动转发到个人邮箱，在网上查了一下，有两种方法，一个是利用规则设置，当试了一下不行，应该是公司设了什么限制；另外一种方法是用vba，找到了如下一段代码，但是执行到“Set mymailitem = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.GetLast”报错 13，另外还发现这段代码在转发时，本地（公司邮箱）不能保存副本，请各位老大帮忙看看怎么改啊：

Private Sub Application_NewMail()
Dim mymailitem As MailItem
Set mymailitem = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.GetLast

Do
mymailitem.Forward                     '转发
mymailitem.To = "××××@gmail.com"     '转发的目的邮箱，可以修改为您需要转发的地址
mymailitem.Send                        '发送
Set mymailitem = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.GetLast
'获取最后一封邮件
Loop Until mymailitem.UnRead = False    '直到所有未读邮件被转发完为止
End Sub

先问问你规则为什么不行，有没提示？

没有提示，就是没反应，在个人邮箱里也没收到邮件。

一般公司是不会限制规则的。

我想确定下你设置的是否正确。
或者你设置个最简单的规则试试。

我们公司比较变态，呵呵。你看看我贴得那个程序有什么问题吗？运行到set那句时总是提示“运行时错误13，类型不匹配”