HOWTO:: Display Outlook Folder Names

• Microsoft Visual Basic Control Creation, Learning,

   Enterprise Editions for Windows, version 5.0

SUMMARY

The following code sample demonstrates how to print the names of all folders grouped under a specified Outlook folder. The sample assumes that the Microsoft Outlook mail client is installed.

MORE INFORMATION

The code below uses a recursive routine to iterate through a mail folder to produce a list of all its sub-folders in the Immediate Window.

Step-by-Step Example

1. Install Microsoft Outlook if it is not already installed.

2. Open a Standard EXE project in Microsoft Visual Basic.

3. Add a reference to the Microsoft Outlook 8.0 Object Library (msoutl8.olb) using the Project item on the References menu.

4. Set the Startup Object to "Sub Main" from the Project

1. Add a Standard Module (.BAS) file to the project.

2. Insert the following code into the module: (Modify the

   constant in the code below as appropriate and Execute.)

      Option Explicit
   
      Private Sub Main()
        Dim olMAPI As Outlook.NameSpace
        Dim Folder As Outlook.MAPIFolder
        Const FOLDER_TO_OPEN = "Mailbox - John Doe"  '// Modify as
   appropriate
   
        Set olMAPI = GetObject("",
   "Outlook.application").GetNamespace("MAPI")
        Call PrintFolderNames(olMAPI.Folders(FOLDER_TO_OPEN), "-
   >")
        Set olMAPI = Nothing
      End Sub
   
      Sub PrintFolderNames(tempfolder As Outlook.MAPIFolder, a$)
        Dim i As Integer
        If tempfolder.Folders.Count Then
          Debug.Print a$ & " " & tempfolder.Name
          For i = 1 To tempfolder.Folders.Count
            Call PrintFolderNames(tempfolder.Folders(i), a$ & "-
   >")
          Next i
        Else
          Debug.Print a$ & " " & tempfolder.Name
        End If
      End Sub

Keywords          : vb5all vb5howto
Version           : WINDOWS:5.0
Platform          : WINDOWS
Issue type        : kbhowto