You still have to use CDO. You can get the item's EntryID and StoreID from Outlook and then use them with the Session.GetItem method to get the corresponding item with CDO.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"David Cebrian" wrote in message ...
Hello Sue,

But if I want to use the recipient object of an email or an appointment
item, then the example don't run. Because the objects recipient from outlook
are different to the object repient of the CDO, and the property Fields
don't exists in the object recipient of outlook.


"Sue Mosher [MVP-Outlook]" escribió en el mensaje
...
You'd need to use the appropriate MAPI property tag with the CDO
AddressEntry.FIelds collection. See http://www.cdolive.com/cdo10.htm. I have
a Redemption sample at http://www.outlookcode.com/codedetail.aspx?id=594 as
well, if you want to avoid security prompts.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"David Cebrian" wrote in message
...
Hello again everybody,

I have a problem with CDO, I use the Addressbook method to search in the
contacts, stored in outlook or exhange, to select someones, when they are
selecteds I want to obtain the telephone number, when the contact is
stored
in outlook, no problem I know how i do, but the problem is when i select a
contact from exchange.

I am a VB.NET programmer, and my project is an Add-in for Outlook.

This is the code:

SMScontactes = New Collection

' start CDO session

m_CDO.Logon("outlook", , False, False)



' show address book

CDOrecips = CType(m_CDO.AddressBook(, "Seleccione los Destinatarios del
SMS", , , 1, "Destinatarios", , ), MAPI.Recipients)



For n = 1 To CType(CDOrecips.Count, Integer)

CDOrecip = CType(CDOrecips.Item(n), MAPI.Recipient)

strID = CType(CDOrecip.ID, String)

strID = Microsoft.VisualBasic.Strings.Right(strID, Len(strID) - 72)

strID = Microsoft.VisualBasic.Strings.Left(strID, Len(strID) - 6)

contacte = CType(apli.GetNamespace("mapi").GetItemFromID(strI D),
Outlook.ContactItem)

If Not contacte Is Nothing Then

SMScontactes.Add(contacte)

txtPara.Text = txtPara.Text & contacte.FullName & "(" &
contacte.MobileTelephoneNumber & ");"

Else

MsgBox("No es un contacto de Outlook")

End If

Next

' release objects

m_CDO.Logoff()



Thanks in advance.




Jaume F.