Highlighted
Absent Member.
Absent Member.
272 views

[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.
0 Likes
3 Replies
Highlighted
Absent Member.
Absent Member.

RE: [archive] Find a contact in Outlook

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?
0 Likes
Highlighted
Absent Member.
Absent Member.

RE: [archive] Find a contact in Outlook

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 .
0 Likes
Highlighted
Absent Member.
Absent Member.

RE: [archive] Find a contact in Outlook

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.
0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.