Hi
Do you mean the Tasks folder or Calendar folder?
Here I post the code about how to list the task item in both the Exchange
and the personal folder,
Sub Test2()
Dim mi As MAPIFolder
Set mi = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderTasks)
Dim t As TaskItem
For Each t In mi.Items
Debug.Print t.Subject
Next
Set mi = Application.GetNamespace("MAPI").Folders.Item("Personal
Folders").Folders("Tasks")
For Each t In mi.Items
Debug.Print t.Subject
Next
End Sub
The syntax is similar if you want to list the calendar folder.
If you still have any concern, please feel free to post here.
Best regards,
Peter Huang
Microsoft Online Partner Support
Get Secure! -
www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.