Макрос, который автоматизирует перемещение задач из списка дел в папку задач «Запросы»

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 в верхней части вашего модуля, и это поможет обнаружить эти вещи.