如何将分配给其他人的任务自动移动到 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