Check Profile info

  • Thread starter Thread starter MB34
  • Start date Start date
Status
Not open for further replies.
M

MB34

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.

(I am using Delphi but can translate the VBA, if needed)
 
On Jun 29, 8:36 am, MB34 <mrbasebal...@hotmail.com> wrote:
> 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.

> (I am using Delphi but can translate the VBA, if needed)

OK, found the answer based on a 7yr 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;
 
Status
Not open for further replies.
< Add Multiple Attachments Sources using VBA in Word | Data validation >
Similar threads
Thread starter Title Forum Replies Date
P turn off the default "all day" check box in new calendar items. How? Using Outlook 1
L Help: set flag for sent mail to check if received an answer Outlook VBA and Custom Forms 2
Witzker Outlook 2019 Macro to check Cursor & Focus position Outlook VBA and Custom Forms 8
CWM330 Saving Data: Don't check certain folders Using Outlook 2
Victor.Ayala Automated way to check the option "Show this folder as an email Address Book" Outlook VBA and Custom Forms 2
D Spell check Outlook VBA and Custom Forms 3
L Spell-check dictionary confusion Using Outlook 0
S How to export urls from email to excel and check the status of the url ? Using Outlook 5
N Private check box in table view Using Outlook 0
S Outlook to check for specific text Outlook VBA and Custom Forms 3
C Custom Outlook Form - Populate Information from Radio Button / Check Box Using Outlook 0
O Outlook 2016 This rule will only run when you check your email in Outlook.... Using Outlook 4
A Check for words in subject header before sending email Outlook VBA and Custom Forms 4
R Using "check for duplicates" for existing contacts Using Outlook 2
P Suppress dialog box on email check error? Using Outlook 5
Potty Ash MS Outlook 2010 custom form - validation or formula to request user to check a checkbox Outlook VBA and Custom Forms 16
I Check if sent email has been replied Outlook VBA and Custom Forms 1
K adding more rules to 'different domains check' macro Outlook VBA and Custom Forms 2
R Macro to check file name with outlook address book Outlook VBA and Custom Forms 0
Diane Poremsky Check Contacts before moving them to Hotmail Contacts folder Using Outlook 0
Diane Poremsky Check for missing attachments before sending a message Using Outlook 1
R Outlook 2010 Modify Style "Do not check spelling or grammar" not saving Outlook VBA and Custom Forms 0
K check for sender, follow to my personal adress and delete the sent folder. Outlook VBA and Custom Forms 1
J Send and Receive Button - only check default account? Using Outlook 1
A Check for attachment code not working Outlook VBA and Custom Forms 1
Diane Poremsky Check Message Size Before Sending Using Outlook 0
B Check for different domains macro to be triggered by specific domains only Outlook VBA and Custom Forms 2
V Check/convert to emailaddresses Outlook VBA and Custom Forms 11
JorgeDario how to check a MailItem has a digital signature (SMIME) with vba? Outlook VBA and Custom Forms 1
O Unable to check name. Using Outlook 3
R Outlook Custom form check if there an attachment Outlook VBA and Custom Forms 2
L Trying to check for the absence of mail. Outlook VBA and Custom Forms 1
S Check if two organisition is added then i have to give managers passward creteria to send mail Using Outlook 1
Peter H Williams check for new email automaticlly Using Outlook 12
C Unusual Signature & Spell Check Query Using Outlook 1
M Calendar navigation displays previous field records.check calendar is shared.. Using Outlook 3
A Can Rule Check Category Contact is assigned? Using Outlook 1
T Outlook 2007 forms: Check boxes and free text boxes not retaining data Using Outlook 1
L check if send message appears in SendItems forder before moving Using Outlook 0
C Create a rule to only check new content in email - disregard original content Using Outlook 3
M Outlook Rules check for new line character Using Outlook 1
G Outlook rule check for messages not received Outlook VBA and Custom Forms 2
E Outlook could not create the work file. Check the temp environment variable Using Outlook 8
B Custom real time, time format check Outlook VBA and Custom Forms 1
B BCM shuts down everytime I try to import/export or check for error BCM (Business Contact Manager) 10
D Check whether mail item is proper for sending or not Outlook VBA and Custom Forms 5
P Check for the distribution list existence Outlook VBA and Custom Forms 1
H out to check whether outlook configured or not Outlook VBA and Custom Forms 1
L Check sent email and reply if have specific words Outlook VBA and Custom Forms 2
Z Check if email was sent Outlook VBA and Custom Forms 1

Similar threads

Back
Top