机器重装的时候经常忘了备份数据，所以想将重要的邮件备份到gmail中去。
从网上抄了一段宏，但有时可以有时不行，主要是无法确定转发的帐户。如果用内部的exchange是不行的。如果将能发外部邮件的帐户设为默认，经常发的内部邮件每次都要选择帐户，麻烦。
下面这段代码是有时行有时不行，而且不能自动将新收到的邮件自动转发出去。
哪位老大能帮忙改写一下。谢谢。

Sub transmit()

'获取第一封邮件
Dim mymailitem As MailItem
Set mymailitem = Application.GetNamespace( "MAPI ").GetDefaultFolder(olFolderInbox).Items.GetLast

Do

mymailitem.Forward '转发

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

mymailitem.DeleteAfterSubmit = False

mymailitem.Send '发送

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

End Sub