如何将VBA创建的Outlook新任务存入非默认任务文件夹？

我来帮你搞定这个问题！你当前的代码用CreateItem(olTaskItem)创建任务时，默认会指向Outlook的主任务列表，这就是为什么新任务没出现在你想要的「Certification Requests」文件夹里。要指定目标文件夹，我们需要先定位到这个自定义文件夹，然后在它内部创建任务，而不是用全局的CreateItem方法。

修改后的代码 #

Sub CreateNewTask(Item As Outlook.MailItem)
    Dim obApp As Outlook.Application
    Dim targetTaskFolder As Outlook.Folder
    Dim NewTask As Outlook.TaskItem
    
    Set obApp = Outlook.Application
    
    ' 定位到你的"Certification Requests"任务文件夹
    ' 这里假设该文件夹是主任务文件夹的子文件夹
    Set targetTaskFolder = obApp.GetDefaultFolder(olFolderTasks).Folders("Certification Requests")
    
    ' 在目标文件夹内创建新任务
    Set NewTask = targetTaskFolder.Items.Add(olTaskItem)
    
    With NewTask
        .Subject = Item.Subject
        .Body = Item.Body
        .Importance = olImportanceHigh
        .Save ' 现在任务会直接保存到指定文件夹中
    End With
    
    ' 释放对象资源
    Set NewTask = Nothing
    Set targetTaskFolder = Nothing
    Set obApp = Nothing
End Sub

关键说明 #

1. 定位目标文件夹：
   代码里用GetDefaultFolder(olFolderTasks)先获取Outlook的主任务文件夹，再通过.Folders("Certification Requests")找到你的自定义子文件夹。如果你的「Certification Requests」不在主任务文件夹下（比如在某个独立PST文件里），可以改成这样定位：

   Dim ns As Outlook.NameSpace
   Set ns = obApp.GetNamespace("MAPI")
   ' 替换成你的PST文件名称和文件夹路径
   Set targetTaskFolder = ns.Folders("我的自定义任务PST").Folders("Certification Requests")
   

2. 创建任务的方式：
   改用targetTaskFolder.Items.Add(olTaskItem)代替全局的CreateItem，这样新任务会直接归属到目标文件夹，而不是默认的主任务列表。

3. 注意事项：

   • 确保文件夹名称完全匹配（包括大小写和空格），否则会抛出找不到文件夹的运行时错误。
   • 测试前可以先手动确认文件夹的层级路径，避免路径错误。

内容的提问来源于stack exchange，提问作者CaptCarlucci