Outlook VBA：将新（未保存）项目移动到文件夹

Question

我试图在用户保存新的 Outlook 项目时在特定商店中创建它。通常，如果有多个帐户，当您创建一个新项目（例如按 Ctrl+Shift+K 执行任务）时，新项目会在活动帐户的默认文件夹中创建。

我尝试拦截新项目的检查器并移动它，但没有任何效果。这是代码的要点（省略了检查以避免非新项目）：

Dim WithEvents inspectors As Outlook.inspectors

Private Sub Application_Startup()
    Set inspectors = Application.inspectors
End Sub

Private Sub inspectors_NewInspector(ByVal Inspector As Inspector)
    Dim item As Object
    Set item = Inspector.CurrentItem
    If item Is Nothing Then Exit Sub
    If item.Class <> olTask Then Exit Sub
    item.Move Application.GetNamespace("MAPI").GetDefaultFolder(olFolderTasks)
End Sub

很遗憾，Move 方法无效。有什么想法吗？

Answer 1

您不能移动未保存的项目。你是如何创建项目的？

使用Items.Add 方法在特定文件夹中添加项目（即创建项目）。如果您使用 CreateItem 方法，它将始终在该项目类型的默认文件夹中创建。

与其尝试使用现有功能来尝试创建任务（我不确定这是否可能或容易），我认为您最好创建一个在您想要的文件夹中创建任务的宏，然后添加宏到工具栏按钮。或者您可以先尝试保存该项目，然后再移动它。请注意，您当前的代码会将项目移动到默认的 Tasks 文件夹。