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

chench

我想实现将公司邮箱收到的邮件自动转发到个人邮箱，在网上查了一下，有两种方法，一个是利用规则设置，当试了一下不行，应该是公司设了什么限制；另外一种方法是用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

dsd999

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

chench

原帖由 dsd999 于 2011-7-1 13:48 发表
先问问你规则为什么不行，有没提示？

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

dsd999

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

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

chench

原帖由 dsd999 于 2011-7-1 14:24 发表
一般公司是不会限制规则的。

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

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

chench

记得lotus notes中使用规则自动转发显示的邮件就是原邮件，而不是转发形式，不知道outlook能否实现。

dsd999

Private Sub Application_NewMail()

这个事件是在新邮件到达时触发的，所以你没有必再用循环了。

shuizhu126

围观，等真相

地铁纠魂

dsd999 发表于 2011-7-4 09:37
Private Sub Application_NewMail()

这个事件是在新邮件到达时触发的，所以你没有必再用循环了。

真的啊，这样的话就很简单了吧
Private Sub Application_NewMail()
    发送该新邮件
end sub