将Outlook邮件保存到由VBA在本地驱动器中创建的文件夹

Sub SaveOutlookEmails()
    Dim objNamespace As Outlook.Namespace
    Dim objFolder As Outlook.Folder
    Dim objMail As Outlook.MailItem
    Dim strFolderPath As String
    
    ' 设置保存邮件的文件夹路径
    strFolderPath = "C:\MyFolder\"
    
    ' 获取Outlook应用程序的命名空间
    Set objNamespace = Outlook.Application.GetNamespace("MAPI")
    
    ' 获取指定的文件夹
    Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox).Folders("MyFolder")
    
    ' 遍历文件夹中的每封邮件
    For Each objMail In objFolder.Items
        ' 保存邮件到指定的文件夹
        objMail.SaveAs strFolderPath & objMail.Subject & ".msg"
    Next objMail
    
    ' 释放对象
    Set objMail = Nothing
    Set objFolder = Nothing
    Set objNamespace = Nothing
    
    MsgBox "邮件保存完成！"
End Sub