Outlook VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Outlook
  4. Accessing Default Folders within the NameSpace Object
'olFolderCalendar, 
Sub folder()
    Dim myCal As MAPIFolder
    Set myCal = Application.GetNamespace("MAPI") _
        .GetDefaultFolder(FolderType:=olFolderCalendar)
End Sub