Makro Telefonnummer aus dem Domino Directory

[kloeti]

Hi all...

Vielleicht hat das ein anderer schon gepostet, dann sorry und bitte löschen. Ansonsten ...

Hab vor einiger Zeit ein Makro gefunden, dass vielleicht dem einen oder anderen nützlich sein kann. Unsere User lieben es. Wenn man die Formel auf einem SmartIcon ablegt und dann anklickt öffnet sich ein Dialog bei dem man den Namen einer Person eingibt.  Das Script sucht danach das Domino Directory nach der Telefonnummer der Person durch und zeigt alle gefundenen Hits, Office und Mobile an.

Die Replic ID 862567F2:005AE3D4, muss natürlich durch die eigene ersetzt werden.

Gruzz
kloeti

tempname := @Trim(@Prompt([OKCANCELEDIT]; "ePhone Lookup"; "Enter surname (eg. kloter), firstname (eg. sandro), or fullname (eg. sandro kloter).";""));

surname := @If(@RightBack(tempname; " ") = ""; tempname;@RightBack(tempname; " "));

templist1 := @DbLookup(""; "862567F2:005AE3D4"; "($Users)"; tempname; 2);

templist2 := @If(@IsError(templist1); @DbLookup(""; "862567F2:005AE3D4"; "($Users)"; @Soundex(surname); 2); templist1);

templist3 := @If(@IsError(templist2); @Do(@Prompt([OK]; "ePhone Error";
"The name " + tempname + " you entered was not found in the address book. Please try again"; ""); @Return(0)); templist2);

templist4 := @DbLookup("";   "862567F2:005AE3D4"; "($Users)"; templist3;
"OfficePhoneNumber");

templist5 := @DbLookup("";  "862567F2:005AE3D4"; "($Users)"; templist3;
"CellPhoneNumber");

templist7:=@DbLookup
("";  "862567F2:005AE3D4"; "($Users)";templist3;"Firstname");

templist8:=@DbLookup
("";  "862567F2:005AE3D4"; "($Users)";templist3;"Lastname");

phonelist := @Unique(templist7) + " " + @Unique(templist8) + "  " + "Tel: " + @Unique(templist4) + " Mobile: " + @Unique(templist5);

@Prompt([OKCANCELLIST]; "ePhone Lookup"; "List of names and numbers. Thanks for using ePhone !"; ""; phonelist)