Excel VBA -将电子邮件移动到其他文件夹

Sub MoveEmailToFolder()
    Dim OutlookApp As Object
    Dim OutlookNamespace As Object
    Dim OutlookMail As Object
    Dim OutlookFolder As Object
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    ' 获取Outlook命名空间
    Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
    ' 获取当前用户的收件箱文件夹
    Set OutlookFolder = OutlookNamespace.GetDefaultFolder(6) ' 6表示收件箱
    
    ' 遍历选定的电子邮件
    For Each OutlookMail In OutlookFolder.Items
        If OutlookMail.Subject = "需要移动的邮件主题" Then
            ' 将邮件移动到其他文件夹
            OutlookMail.Move OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders("目标文件夹名称")
        End If
    Next OutlookMail
    
    ' 释放对象
    Set OutlookMail = Nothing
    Set OutlookFolder = Nothing
    Set OutlookNamespace = Nothing
    Set OutlookApp = Nothing
End Sub