Accessing Other Folders within the NameSpace Object : Outlook NameSpace « Outlook « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Outlook
  3. Outlook NameSpace

Accessing Other Folders within the NameSpace Object

 
'A list of all the folders contained in the namespace:
Sub List_All_NameSpace_Folders()
    Dim myNS As NameSpace
    Dim myFolder As MAPIFolder
    Dim mySubfolder As MAPIFolder

    strFolderList = "Your Outlook NameSpace contains these folders:" 

    Set myNS = Application.GetNamespace("MAPI")
    With myNS
        For Each myFolder In myNS.Folders
            strFolderList = strFolderList & myFolder.Name & vbCr
            For Each mySubfolder In myFolder.Folders
                Debug.Print mySubfolder.Name 
            Next mySubfolder
        Next myFolder
    End With
End Sub








Related examples in the same category

1.Creating a New Folder
2.Deleting a Folder
3.Understanding General Methods for Working with Outlook Objects
4.Returns the NameSpace and uses the CurrentUser property to display the name of the current user in a message box:
5.Accessing Default Folders within the NameSpace Object
6.olFolderContacts
7.olFolderDeletedItems,
8.olFolderDrafts,
9.olFolderInbox,
10.olFolderJournal,
11.olFolderNotes,
12.olFolderOutbox,
13.olFolderSentMail,
14.olFolderTasks,
15.olPublicFoldersAllPublicFolders.
16.Using the NewMail Event and NewMailEx Event