如何將分配給其他人的任務自動移動到Outlook中的特定任務文件夾

Outlook解決方案 2025 年 9 月 29 日

通常，無論您贏得的任務還是分配給其他任務的所有任務，所有任務都將放置在默認的Outlook任務文件夾中。本文將介紹如何使Outlook將分配給其他人的任務自動移動到特定任務文件夾。

Outlook允許我們將任務分配給其他人。但是與此同時，您分配給其他人的任務也將保存在默認任務文件夾中。在這種情況下，如果您經常需要將任務分配給其他人，則任務文件夾將變得一團糟。分類和管理任務的最佳方法是創建一個單獨的文件夾，然後將分配給其他人的任務移動到該文件夾。但是手動執行此操作會有些麻煩。在這裡，我們將幫助您使用Outlook VBA自動實現它。

自動將分配給其他人的任務移動到特定任務文件夾

首先，您應該建立一個新的任務資料夾。右鍵單擊預設任務資料夾，然後選擇“新資料夾”。為其指定一個名稱。這裡我們以「測試」為例。
然後切換到“開發人員”選項卡，然後單擊“ Visual Basic”按鈕。
接下來，在新的“ Visual Basic”窗口中，雙擊“ ThisOutlookSession”項目，並將以下VBA代碼複製到其中。

Public WithEvents Items As Outlook.Items

Sub Application_Startup()
    Set Items = Session.GetDefaultFolder(olFolderTasks).Items
End Sub

Sub Items_ItemAdd(ByVal Item As Object)
    If TypeName(Item) = "TaskItem" Then
       MoveTask Item
    End If
End Sub

Sub MoveTask(Item As TaskItem)
    Dim Folder As Outlook.Folder
    Dim myName As String
 
    'replace "smith" with your own account name
    myName = "Smith"
 
    If InStr(Item.Owner, myName) = 0 Then
       Set Folder = Session.GetDefaultFolder(olFolderTasks).Folders("Test")
       Item.Move Folder
    End If
End Sub