OUTLOOK+VBA 备份邮件到GMAIL

Outlook上有不少邮件，用VBA写个脚本，通过批量转发邮件， 把邮件备份到GMAIL上。

Public   Sub  FwdToGmail()

     Dim  objApp  As  Outlook.Application
     Dim  objNameSpace  As  Outlook.NameSpace
     Dim  objMAPIFolder  As  Outlook.MAPIFolder
     Dim  objMailItem  As  Outlook.MailItem
     Dim  objFwdItem  As  Outlook.MailItem
    
     Set  objApp  =   New  Outlook.Application
     Set  objNameSpace  =  objApp.GetNamespace(Type: = " MAPI " )
     Set  objMAPIFolder  =  _
        objNameSpace.GetDefaultFolder(FolderType: = olFolderInbox)
    
     For   Each  objMailItem In objMAPIFolder.Items
        
         Set  objFwdItem  =  objMailItem.Forward

        objFwdItem.Recipients.Add (yourname@gmail.com)
        
        objFwdItem.Send

     Next  objMailItem
    

End Sub

 

运行这个脚本，可能会反复弹出对话框，很烦人。这个对话框的内容是，“有一个程序正试图以您的名义自动发送电子邮件。是否允许该操作?如果对此感觉意外,这可能是由于病毒导致,您应选择'否'”。临时解决方案：使用ｃｌｉｃｋｙｅｓ（http://www.contextmagic.com/express-clickyes/）。

转载于:https://www.cnblogs.com/bsmagic/archive/2008/07/15/1243501.html