To get the SMTP address of an Exchange public folder

Every folder in the Exchange Server Public Folders hierarchy can have an email address. If you know the SMTP address, you can send messages -- even meeting requests -- directly to the folder. This sample code shows how to get the folder address using the Redemption library to avoid triggering security prompts.

You could also use the same technique with the CDO AddressEntry object, but it would trigger security prompts in many Outlook environments.

Code Sample

Use this version with the third-party Redemption library (SafeOutlookLibrary), version 3.2 or later, to avoid the security prompts generated by attempts to access address objects and properties when the Outlook E-mail Security Update is present.

Function R_GetPFAddress(objFolder) Dim oSafeFolder 'As New Redemption.MAPIFolder Dim objUtils 'As Redemption.MAPIUtils Dim arrBytes Dim strAddress, strEntryID 'As String Dim oAE 'As Redemption.AddressEntry Const PR_ADDRESS_BOOK_ENTRYID = &H663B0102 Const PR_EMAIL = &H39FE001E On Error Resume Next Set objUtils = CreateObject("Redemption.MAPIUtils") Set oSafeFolder = CreateObject("Redemption.MAPIFolder") oSafeFolder.Item = objFolder arrBytes = oSafeFolder.Fields(PR_ADDRESS_BOOK_ENTRYID) strEntryID = objUtils.HrArrayToString(arrBytes) Set oAE = objUtils.GetAddressEntryFromID(strEntryID) R_GetPFAddress = oAE.Fields(PR_EMAIL) End Function

More Information

Sharing with Microsoft Exchange Server Public and Mailbox Folders


	© 2002-6 TurtleFlock, LLC All right reserved. About OutlookCode.com Send comments to webmaster@outlookcode.com Designed and Implemented by TerraLink USA FrontPage Integration by RobsonDesignWorks


get Sue's code \| forums \| share your own code \| registration