|Become a Columnist Microsoft Exchange Site Microsoft Support SiteMSDN Exchange Site|
Find a folder by Name
Function OpenMAPIFolder(ByVal szPath As String) As Outlook.MAPIFolder
Dim app As New
Len(Application.PathSeparator)) = Application.PathSeparator Then
While szPath <>
If i Then
If flr Is Nothing Then
Set OpenMAPIFolder = flr
Once you have the folder, you could save the EntryID, and use that to reopen the folder...
Disclaimer: Your use of the information contained in these pages is at your sole risk. All information on these pages is provided "as is", without any warranty, whether express or implied, of its accuracy, completeness, fitness for a particular purpose, title or non-infringement, and none of the third-party products or information mentioned in the work are authored, recommended, supported or guaranteed by Stephen Bryant or Pro Exchange. OutlookExchange.Com, Stephen Bryant and Pro Exchange shall not be liable for any damages you may sustain by using this information, whether direct, indirect, special, incidental or consequential, even if it has been advised of the possibility of such damages.
Copyright Stephen Bryant 2008