vbscript ol Folderpath

Posted 2021-05-21

Sub Folderpaths()
    Dim olApp As Outlook.Application
    Dim nmsName As Namespace
    Dim fldFolder As MAPIFolder

    Set olApp = Outlook.Application
    'Create namespace reference
    Set nmsName = olApp.GetNamespace("MAPI")
    'create folder instance
    Set fldFolder = nmsName.GetDefaultFolder(olFolderInbox)
    'call sub program
    Call FolderInfo(fldFolder)

End Sub
Function FolderInfo(fldFolder)
'Displays information about a given folder

    MsgBox fldFolder.Name & "'s current path is " & fldFolder.FolderPath & _
             ". The current address book name is " & fldFolder.AddressBookName & "."

End Function