Mega Code Archive

 

Categories / VisualBasic Script / Outlook

 

Accessing Default Folders within the NameSpace Object

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