hello
I need to display AddressBook for OL 2003 ,OL 2007 & let the user
select the entries listed in addressbook.From the
selected entry I need to retrive the contactItem & retrieve its
properties(ENtryID,Phone numbers etc.)
I'm using below code -
Dim objMAPIUtils As Redemption.MAPIUtils 'Object
Dim objRecipients As Redemption.SafeRecipients
Dim objRecipient As Redemption.SafeRecipient
Dim ObjContact As Outlook.ContactItem
objMAPIUtils = CreateObject("Redemption.MAPIUtils")
objRecipients = objMAPIUtils.AddressBook(, "Address Book",
False, False, 1, "&To", "&Cc", "&Bcc")
If objRecipients.Count > 0 Then
For Each objRecipient In objRecipients
' get contactitem from ObjRecepient & retrieve its
EntryID
Next
If Not objRecipients Is Nothing Then objRecipients = Nothing
If Not objMAPIUtils Is Nothing Then objMAPIUtils = Nothing
How to get the contactitem & retrive its EntryID.For OL 2007 I can get
contact in OL 2007 by addentry.GetContact
But for OL2003 I'm not able to get contactitem.
Thanks
-sd