olFolderTasks,
Sub folder() Dim myCal As MAPIFolder Set myCal = Application.GetNamespace("MAPI") _ .GetDefaultFolder(FolderType:=olFolderTasks) End Sub