Determining Default Information Store (*.pst):   Return to List

To learn which store is the Default store, you can use the DefaultStoreRoot() function
(below) to get the root folder for the default store from the Parent property of the Inbox:

Public Function DefaultStoreRoot() as MAPIFolder
    Dim objApp as Application
    Dim objNS as Namespace
    Dim objInbox as MAPIFolder
    Set objApp = CreateObject("Outlook.Application")
    Set objNS = objApp.GetNamespace("MAPI")
    Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
    Set DefaultStoreRoot = objInbox.Parent
End Function

Note to Webmaster