自动将任务从待办事项列表移动到“查询”任务文件夹

Question

我正在尝试创建一个自动将任务从待办事项列表移动到“查询”任务文件夹的宏。优选地，它应该移动任务而不必选择它。这是我的代码，但是当我测试它时，它给了我错误：

  

'运行时错误'424'对象必需'

任何帮助都将不胜感激。

来自https://www.slipstick.com/outlook/macro-move-folder/的原始代码

Sub MoveTask()

Dim objOutlook As Outlook.Application
Dim objNamespace As Outlook.NameSpace
Dim objSourceFolder As Outlook.MAPIFolder
Dim objDestFolder As Outlook.MAPIFolder
Dim objItem As TaskItem
Dim strSignifier As String

Set objOutlook = Application
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objSourceFolder = objNamespace.GetDefaultFolder(olFolderTasks)
Set objItem = objFolder.Items.Add(olTaskItem) ' this line has the error
Set objDestFolder = objNamespace.GetDefaultFolder(olFolderTasks).Folders("Inquiries")

strSignifier = "#CT-"

If Left(Item.subject, Len(strSignifier)) = strSignifier Then
    objItem.Move objDestFolder
End If

Set objDestFolder = Nothing
End Sub

Answer 1

您还需要Dim和Set objFolder才能使用它，或者根据您尝试的内容将其更改为objDestFolder或objSourceFolder要做。

将Option Explicit放在模块的顶部，它将有助于检测这些内容。