QTP Script to enumerate all folders in Microsoft Outlook

Enumerating all the folders in the outlook. For this example make sure that Microsoft Outlook is open (I have used Outlook 2007). Write the below code in a new test in QTP and run it. As you can see above it shows all the folders and its subfolders in a message box. You can also compare it with the Outlook screenshot.

'using the CreateObject method to create an Outlook Application object.
Set olApp = CreateObject("Outlook.Application")
'GetNameSpace - Returns a NameSpace object of the specified type. It exists because outlook was designed to be usable with different kinds of data, each of which would be identified by its own namespace. So far, only one kind of data is supported in Outlook, MAPI data (Messaging Applicaiton Programming Interface).
Set olns = olApp.GetNameSpace("MAPI")

For each F in olns.folders   
   FL = FL & F.Name  & vbcrlf     
      For each SF in F.folders       
        FL = FL & "       " & SF.Name & vbcrlf     
      Next
Next
msgbox FL

Also See:

QTP & Microsoft Outlook Object Model
QTP Script to get inbox folder name in messagebox
QTP Script to count emails in any Outlook folder
QTP Script to send an email from Outlook
QTP Script to send an email with attachment from Outlook
QTP Script to read an email from Outlook
QTP Script to download an email attachment from Outlook