Question

我创建了一个新的任务文件夹“ Certification Requests”，该文件夹未连接到与收件箱绑定的主任务文件夹。我希望将我的VBA创建的这些新任务放到新文件夹中，而不是主任务列表中。

我已经编写了VBA代码，并且可以正常工作，但是这些任务正在我的主要任务列表中创建。该脚本正在基于创建的规则运行。

Sub CreateNewTask(Item As Outlook.MailItem)
    Dim obApp As Object
    Dim NewTask As TaskItem

    Set obApp = Outlook.Application
    Set NewTask = obApp.CreateItem(olTaskItem)

    With NewTask
        .Subject = Item.Subject
        .Body = Item.Body
        .Importance = olImportanceHigh
        .Save
    End With

    Set obApp = Nothing
    Set NewTask = Nothing
End Sub

我希望创建的新任务在规则运行时可以直接移动到此新任务文件夹“证书请求”中。非常感谢您提供任何帮助，因为我仍然不了解VBA。

Answer 1

只需AFTER: string the_date Oct 05 181005 190103 190103 Move到相关文件夹。

NewTask

或者，您可以Sub CreateNewTask(Item As Outlook.MailItem) Dim myNamespace As Outlook.NameSpace Dim myFolder As Outlook.Folder Dim NewTask As Outlook.TaskItem Set myNamespace = Application.GetNamespace("MAPI") Set myFolder = myNamespace.Folders("johndoe@outlook.com").Folders("Certification Requests") Set NewTask = Application.CreateItem(olTaskItem) With NewTask .Subject = Item.Subject .Body = Item.Body .Importance = olImportanceHigh .Save .Move myFolder End With End Sub在文件夹中新建一个任务项目。

Add

您可能必须根据“ Certification Requests”文件夹在文件夹层次结构中的位置来修改Sub CreateNewTask(Item As Outlook.MailItem) Dim myNamespace As Outlook.NameSpace Dim myFolder As Outlook.Folder Dim NewTask As Outlook.TaskItem Set myNamespace = Application.GetNamespace("MAPI") Set myFolder = myNamespace.Folders("johndoe@outlook.com").Folders("Certification Requests") Set NewTask = myFolder.Items.Add(olTaskItem) With NewTask .Subject = Item.Subject .Body = Item.Body .Importance = olImportanceHigh .Save End With End Sub。

如何将新的Outlook任务（使用VBA创建）移动到未连接到我的电子邮件的单独的任务文件夹中？

1 个答案: