[archive] Find a contact in Outlook

[Migrated content. Thread originally posted on 03 May 2005]

I tried a lot of things but not the good one. What I have to do for making the next statement working for every other name and to search for 2 searchobjects at one time (customerid)?

MODIFY olContacts
Items::Find("[FullName] = 'Peter Baier'")
GIVING olItem.

I haven't tried this, but I figure it will be:

MODIFY olContacts
Items::Find("[FullName] = 'Santa Claus' or [customerid]='1200'")
GIVING olItem.


Will that suffice?

[Migrated content. Thread originally posted on 03 May 2005]

I tried a lot of things but not the good one. What I have to do for making the next statement working for every other name and to search for 2 searchobjects at one time (customerid)?

MODIFY olContacts
Items::Find("[FullName] = 'Peter Baier'")
GIVING olItem.

Thanks for the repsone but what I ment is the follow isue.

I want to look for Jaap Voerman or Olaf Koss or any other fullname without putting it straight in the sourcecode. The"or i can can thang to and .

[Migrated content. Thread originally posted on 03 May 2005]

I tried a lot of things but not the good one. What I have to do for making the next statement working for every other name and to search for 2 searchobjects at one time (customerid)?

MODIFY olContacts
Items::Find("[FullName] = 'Peter Baier'")
GIVING olItem.

Thanks for the repsone but what I ment is the follow isue.

I want to look for Jaap Voerman or Olaf Koss or any other fullname without putting it straight in the sourcecode. The"or i can can thang to and .

[Migrated content. Thread originally posted on 03 May 2005]

I tried a lot of things but not the good one. What I have to do for making the next statement working for every other name and to search for 2 searchobjects at one time (customerid)?

MODIFY olContacts
Items::Find("[FullName] = 'Peter Baier'")
GIVING olItem.

By searching wich google I fond a VB source-line wich give me the tip for solving the mistake (not must experience jet) i had made. That mistake was : starting and ending character " in de datafield H12-ZOEKWAARDE.
Down here is the solution I made. Can I optimize it?


F60 SECTION.
******************************************************
* CONTROLE OP AANWEZIGHEID VAN CONTACT *
******************************************************
F6001.
INITIALIZE CONTACT-HANDLE
H12-ZOEKWAARDE
EMAIL-OUTL
H91-AANTL.
CALL "C$JUSTIFY" USING NAAM-OUTL "R".
INSPECT NAAM-OUTL TALLYING H91-AANTL
FOR LEADING SPACES.
SUBTRACT H91-AANTL FROM 32
GIVING H91-AANTL.
IF H91-AANTL = ZEROES
MOVE "99" TO STATUS-OUTL
GO TO F6099
END-IF.
CALL "C$JUSTIFY" USING NAAM-OUTL "L".
STRING "[FullName] = '" DELIMITED BY SIZE
NAAM-OUTL (1:H91-AANTL) DELIMITED BY SIZE
"'" DELIMITED BY SIZE
" AND [Customerid] = '" DELIMITED BY SIZE
NUMMER-OUTL DELIMITED BY SPACE
"'" DELIMITED BY SIZE
INTO H12-ZOEKWAARDE.
MODIFY CNTCTMAP-HANDLE ITEMS::FIND(H12-ZOEKWAARDE)
GIVING CONTACT-HANDLE.
IF CONTACT-HANDLE = ZEROES
MOVE "11" TO STATUS-OUTL
ELSE
MOVE "00" TO STATUS-OUTL
INQUIRE CONTACT-HANDLE @EMAIL1ADDRESS
EMAIL-OUTL
END-IF.
F6099.
EXIT.