Outlook 2010 自定义 VBA 脚本将传入邮件移动到特定文件夹

使用 Outlook 2010 自定义 VBA 脚本可以轻松地将传入的邮件自动移动到特定文件夹中。这对于那些需要自动整理收件箱的人来说非常实用。在本文中，我们将介绍如何编写这样一个脚本，并提供一个案例代码供参考。

vba
Sub MoveIncomingMail(Item As Outlook.MailItem)
    Dim TargetFolder As Outlook.Folder
    Dim Inbox As Outlook.Folder
    
    ' 设置目标文件夹
    Set Inbox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    Set TargetFolder = Inbox.Folders("目标文件夹的名称")
    
    ' 将邮件移动到目标文件夹
    Item.Move TargetFolder
End Sub

vba
Private Sub Application_NewMail()
    Dim Item As Object
    
    For Each Item In Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
        If TypeOf Item Is Outlook.MailItem Then
            MoveIncomingMail Item
        End If
    Next Item
End Sub

vba
Sub MoveIncomingMail(Item As Outlook.MailItem)
    Dim TargetFolder As Outlook.Folder
    Dim Inbox As Outlook.Folder
    
    ' 设置目标文件夹
    Set Inbox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    Set TargetFolder = Inbox.Folders("目标文件夹的名称")
    
    ' 将邮件移动到目标文件夹
    Item.Move TargetFolder
End Sub
Private Sub Application_NewMail()
    Dim Item As Object
    
    For Each Item In Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
        If TypeOf Item Is Outlook.MailItem Then
            MoveIncomingMail Item
        End If
    Next Item
End Sub