Hi
I'm trying to use a call to the AddressBookk function to bring up the
global address book and get a name. However, every time I put a name in the
"To" box in the Address List and click okay, the function returns as nothing.
Can somebody tell me what I'm doing wrong? I'm not being prompted for
security concerns, so I don't think it's that. Here's what I have: (This is
being done in VB.net btw):


Public Function AddressBook_Click(ByVal myChoice As String) As String

Dim objSession As Object 'As MAPI.Session

Dim objRecipients As Microsoft.Office.Interop.Outlook.Recipients

On Error Resume Next
objSession = CreateObject("MAPI.Session")
objSession.Logon(, , False, False)
objRecipients = objSession.AddressBook(, "Choose an address", True,
True, 1, "mychoice")

AddressBook_Click = objRecipients.Item(1).AddressEntry

End Function


Thanks for your help
-Josh

Session.AddressBook returns CDO Recipients, not Outlook Recipients.

CDO isn't supported for .NET use. It might work, it might not, it might just
until you deploy your app and break at the customer site.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Dewey" <(E-Mail Removed)> wrote in message
news:2B9ED753-CEB4-4F47-ADAC-(E-Mail Removed)...
> Hi
> I'm trying to use a call to the AddressBookk function to bring up the
> global address book and get a name. However, every time I put a name in
> the
> "To" box in the Address List and click okay, the function returns as
> nothing.
> Can somebody tell me what I'm doing wrong? I'm not being prompted for
> security concerns, so I don't think it's that. Here's what I have: (This
> is
> being done in VB.net btw):
>
>
> Public Function AddressBook_Click(ByVal myChoice As String) As String
>
> Dim objSession As Object 'As MAPI.Session
>
> Dim objRecipients As Microsoft.Office.Interop.Outlook.Recipients
>
> On Error Resume Next
> objSession = CreateObject("MAPI.Session")
> objSession.Logon(, , False, False)
> objRecipients = objSession.AddressBook(, "Choose an address", True,
> True, 1, "mychoice")
>
> AddressBook_Click = objRecipients.Item(1).AddressEntry
>
> End Function
>
>
> Thanks for your help
> -Josh