Thanks.
----- Ken Slovak - [MVP - Outlook] wrote: -----
Function R_GetPFAddress(objFolder As MAPI.Folder)
Dim strAddress As String
Dim strEntryID As String
Dim oAE As MAPI.AddressEntry
Const PR_ADDRESS_BOOK_ENTRYID = &H663B0102
Const PR_EMAIL = &H39FE001E
On Error Resume Next
strEntryID = objFolder.Fields(PR_ADDRESS_BOOK_ENTRYID)
' m_objSession is a module level reference to an existing CDO Session
Set oAE = m_objSession.GetAddressEntry(strEntryID)
R_GetPFAddress = oAE.Fields(PR_EMAIL)
Set oAE = Nothing
End Function
Kenneth M. said:
Is there a way to get the email address of a public folder using
CDO? I
have looked at the code on Slipstick
(
http://www.outlookcode.com/d/code/getpfaddy.htm) for getting it using
Redemption, and it says that it's possible with CDO, but I can't figure it
out. I do not care about the security warning, so would like to do it using
CDO.