Outlook Technologies

Outlook Forms

Looking for help with Outlook programming projects — VSTO, add-ins, VBA, custom Outlook forms, etc.? You′ve come to the right place!

NEW! >> Subscribe to this site via RSS. For more RSS options, see the complete list of feeds on our main news page.

Code level: intermediate Code area: Basic Outlook Printer Friendly Version
Title: GetCDOFolderPath
Description: This routine returns the path of the cdoFolder parameter in the form of "\Public Folders\All Public Folders\Some Folder" or "\Mailbox - Username\Calendar".
Date: 28-Oct-2003 23:52
Code level: intermediate
Code area: Basic Outlook
Posted by: Josh Young
Body: Public Function GetCDOFolderPath(cdoFolder As MAPI.Folder) As String Dim strFolderPath As String Dim cdoChild As MAPI.Folder Dim cdoParent As MAPI.Folder Dim cdoTempSession As MAPI.Session Dim ParentEntryID As String Dim cdoStore As MAPI.InfoStore Dim cdoRootFolder As MAPI.Folder On Error Resume Next Set cdoTempSession = cdoFolder.Session Set cdoStore = cdoTempSession.GetInfoStore(cdoFolder.StoreID) Set cdoRootFolder = cdoStore.RootFolder strFolderPath = "\" & cdoFolder.Name Set cdoChild = cdoFolder Do ParentEntryID = cdoChild.Fields(CdoPR_PARENT_ENTRYID) Set cdoParent = cdoTempSession.GetFolder(ParentEntryID, cdoChild.StoreID) If cdoParent.IsSameAs(cdoRootFolder) Then strFolderPath = "\" & cdoStore.Name & strFolderPath Exit Do End If strFolderPath = "\" & cdoParent.Name & strFolderPath Set cdoChild = cdoParent Loop GetCDOFolderPath = strFolderPath Err.Clear Set cdoChild = Nothing Set cdoParent = Nothing Set cdoTempSession = Nothing Set cdoStore = Nothing Set cdoRootFolder = Nothing End Function
All 0comments

name email