Check Profile info

I need to know how to check, when the OL Object is instantiated, the default profile's email address.
We want to check to see if the email of the user logged into our application is the same as the one in
the default profile in OL.
LVL 27
Eddie ShipmanAll-around developerAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Geert GOracle dbaCommented:
OL  ???
0
Eddie ShipmanAll-around developerAuthor Commented:
Outlook
0
Eddie ShipmanAll-around developerAuthor Commented:
Sorry, I posted the same message to the Outlook VBA newsgroup and forgot to change it for this
Delphi TA.
0
Exploring ASP.NET Core: Fundamentals

Learn to build web apps and services, IoT apps, and mobile backends by covering the fundamentals of ASP.NET Core and  exploring the core foundations for app libraries.

Eddie ShipmanAll-around developerAuthor Commented:
OK found the answer based on a 7ry old post of mine on DelphiPages:


uses ..., Outlook2000, MAPIDefs, MAPIUtil;
 
var
  pmOutlook:     _Application;
  NameSpace:     _NameSpace;
  DefaultUser:   Recipient;
  _AddressEntry: AddressEntry;
  pProp:         PSPropValue;
  MP:            IMAPIProp;
  strAddress:    String;
begin
  try
    pmOutlook    := GetActiveOleObject('outlook.application') as _Application;
  except
    try
      pmOutlook  := CreateOleObject('outlook.application') as _Application;
    except
      on e:EOleSysError do
        ShowMessage('Cannot Load Outlook:' + E.Message);
    end;
  end;
  try
    Namespace   := pmOutlook.GetNamespace('MAPI');
    MAPIInitialize(nil);
    try
      DefaultUser := NameSpace.CurrentUser;
      if DefaultUser.Address <> '' then
      begin
        _AddressEntry := DefaultUser.AddressEntry;
        MP:= IUnknown(_AddressEntry.MAPIOBJECT) as IMailUser;
        if S_OK = HrGetOneProp(MP, $39FE001E, pProp) then
        begin
          strAddress:=pProp.Value.lpszA;
          MAPIFreeBuffer(pProp);
        end;
        ListBox1.Items.Add(_AddressEntry.Name + ' : ' +  strAddress);
        Application.ProcessMessages;
      end; {if}
    finally
      MAPIUninitialize;
    end;
  finally
    pmOutlook.Application.Quit;
    pmOutlook     := Unassigned;
    Namespace     := Unassigned;
    DefaultUser   := Unassigned;
    _AddressEntry := Unassigned;
  end;
end;

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Geert GOracle dbaCommented:
hehe,
i guess you're better that you thought yourself ...
0
Eddie ShipmanAll-around developerAuthor Commented:
Yeah, I was surprised I found the post.
0
Geert GOracle dbaCommented:
congrats on your top position ...

EddieShipman-Aced.png
0
Eddie ShipmanAll-around developerAuthor Commented:
LOL, what happened to 1-4???
0
Eddie ShipmanAll-around developerAuthor Commented:
Look at the bottom, that's where they are:
overall.png
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.