for each Recip in obj.Recipients MsgBox Recip.Address next.
-- Dmitry Streblechenko (MVP) http://www.dimastr.com/ OutlookSpy - Outlook, CDO and MAPI Developer Tool - "Salad" <oil[ at ]vinegar.com> wrote in message news:K6-dnc5owa7HxNDUnZ2dnUVZ_qninZ2d[ at ]earthlink.com...
[Quoted Text] > Michael Bauer [MVP - Outlook] wrote: >> >> In the To property you see the display name of a recipient. For the >> address >> see the Recipients collection. >> > Thanks for the help Michael. I guess I need need more help here. I have > as my code > > Dim objFolder As Object > Dim obj as Object > Dim objA As Object > Dim objR As Object > > > et objFolder = objSession.GetDefaultFolder(FOLDER_INBOX) > olApp.GetNamespace("MAPI").GetDefaultFolder(FOLDER_INBOX) > olApp.GetNamespace("MAPI").GetDefaultFolder(FOLDER_INBOX) > ' Loop all items in the Inbox\ Folder > For i = 1 To objFolder.Items.Count > set obj = objFolder.Items.Item(i) > > 'here's where I get mixed up. I didn't see many/any examples > Set objR = obj.Recipients > Set objA = objR.AddressEntry(0) > MsgBox objA.Address > Next > > Could you help me out?
|