This is my attempt at this using the itemchange event but the code does not work on moving the task any idea why. It is finding the right task as the categories are being removed it just will not move to the Completed folder. Any help would be very much appreciated. The code I have is as follows:
Private WithEvents Items As Outlook.Items
Private Sub Class_Initialize()
Dim Ns As Outlook.NameSpace
Dim DestFolder As Outlook.Folder
Set Ns = Application.GetNamespace("MAPI")
Set TaskFolder = Ns.GetDefaultFolder(olFolderTasks)
Set Items = TaskFolder.Items
Set DestFolder = TaskFolder.Folders("Completed") ' Subfolder of the Task Folder
End Sub
Private Sub Items_ItemChange(ByVal Item As Object)
Dim Task As Outlook.TaskItem
Dim TaskCopy As Outlook.TaskItem
If TypeOf Item Is Outlook.TaskItem Then
Set Task = Item
If Task.Status = olTaskComplete Then
Task.Categories = ""
Task.Save
Task.Move DestFolder
End If
End If
End Sub
Private WithEvents Items As Outlook.Items
Private Sub Class_Initialize()
Dim Ns As Outlook.NameSpace
Dim DestFolder As Outlook.Folder
Set Ns = Application.GetNamespace("MAPI")
Set TaskFolder = Ns.GetDefaultFolder(olFolderTasks)
Set Items = TaskFolder.Items
Set DestFolder = TaskFolder.Folders("Completed") ' Subfolder of the Task Folder
End Sub
Private Sub Items_ItemChange(ByVal Item As Object)
Dim Task As Outlook.TaskItem
Dim TaskCopy As Outlook.TaskItem
If TypeOf Item Is Outlook.TaskItem Then
Set Task = Item
If Task.Status = olTaskComplete Then
Task.Categories = ""
Task.Save
Task.Move DestFolder
End If
End If
End Sub