> Is there a way to obtain the smtp address from an AddressEntry
> in the Global Address Book without using CDO?

> Extended MAPI is the only other way I know of.

> --
> Ken Slovak
> [MVP - Outlook]
> http://www.slovaktech.com
> Lead Author, Professional Outlook 2000 Programming, Wrox Press
> Lead Author, Beginning VB 6 Application Development, Wrox Press
> Attachment Options
> http://www.slovaktech.com/attachmentoptions.htm
> Extended Reminders
> http://www.slovaktech.com/extendedreminders.htm

> > Is there a way to obtain the smtp address from an AddressEntry
> > in the Global Address Book without using CDO?

> Is there a way to obtain the smtp address from an AddressEntry
> in the Global Address Book without using CDO?

> Try AddressEntry.Fields(&H39FE001E)

> Dmitry Streblechenko (MVP)
> http://www.dimastr.com/
> OutlookSpy  - Outlook, CDO
> and MAPI Developer Tool

> > Is there a way to obtain the smtp address from an AddressEntry
> > in the Global Address Book without using CDO?

> > Sorry, I didn't catch that you don't want to use CDO. Ken is right, the only
way
> > to do that is to use Extended MAPI. What language are you using? Extended
MAPI
> > is C++/Delphi only.

> Delphi!

> try

>   MP:= IUnknown(myAddressEntry.MAPIOBJECT) as IMailUser;
> except
>   MP:= IUnknown(myAddressEntry.MAPIOBJECT) as IDistList;
> end; {try..except}

> > try
>     // Error - No such Interface supported!
> >   MP:= IUnknown(myAddressEntry.MAPIOBJECT) as IMailUser;
> > except
> >   MP:= IUnknown(myAddressEntry.MAPIOBJECT) as IDistList;
> > end; {try..except}

> Did you even try the code I posted?

> > No, it is off the top of my head. What was the problem?

> I wanted to get SMTP addresses of Global AddressBook entries.

> I finally got this to work but I am getting an Access Violation in the
> MAPIUninitialize...

> unit Unit1;

> interface

> uses
>   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
>   Outlook2000, StdCtrls, OleAuto, MAPIDefs, MAPIUtil;

> type
>   TForm1 = class(TForm)
>     ListBox1: TListBox;
>     Button1: TButton;
>     procedure Button1Click(Sender: TObject);
>   private
>     { Private declarations }
>   public
>     { Public declarations }
>   end;

> var
>   Form1: TForm1;

> implementation

> {$R *.DFM}

> procedure TForm1.Button1Click(Sender: TObject);
> var
>   pProp : PSPropValue;
>   MP : IMAPIProp;
>   strAddress : String;
>   i, j: Integer;
>   myOlApp: Variant;
>   myNameSpace: Variant;
>   myAddressList: AddressList;
>   myAddressLists: AddressLists;
>   myAddressEntries: AddressEntries;
>   myAddressEntry: AddressEntry;
> begin
>   myOlApp := CreateOleObject('Outlook.Application');
>   myNameSpace := myOlApp.GetNameSpace('MAPI');
>   MAPIInitialize(nil);
>   myAddressLists := IUnknown(myNameSpace.AddressLists) as AddressLists;
>   for i := 1 to myAddressLists.Count do
>   begin
>     myAddressList := myAddressLists.Item(i);
>     if Pos('Global', myAddressList.Name) > 0 then
>     begin
>       myAddressEntries := myAddressList.AddressEntries;
>       for j := 1 to myAddressEntries.Count do
>       begin
>         myAddressEntry := myAddressEntries.Item(j);
>         try
>           // Error No such interface supported!!!
>           MP:= IUnknown(myAddressEntry.MAPIOBJECT) as IMailUser;
>         except
>           MP:= IUnknown(myAddressEntry.MAPIOBJECT) as IDistList;
>         end; {try..except}
>         if S_OK = HrGetOneProp(MP, $39FE001E, pProp) then
>         begin
>           strAddress:=pProp.Value.lpszA;
>           MAPIFreeBuffer(pProp);
>         end;
>         ListBox1.Items.Add(myAddressEntry.Name + ' : ' +
>                            {myAddressEntry.Address + ' :' +}
>                            strAddress);
>         Application.ProcessMessages;
>       end; {for}
>     end; {if}
>   end; {for}
>   MAPIUninitialize;
> end;

> end.

> This is a known problem if you call Init/Uninit functions without letting the
> message pump run. Move MAPIInitialize() to the FormCreate() handler and
> MAPIUninitialize() to the FormDestroy() handler.