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