In my self-assigned role as a code technical reviewer, I'd like to encourage
whoever next tweaks this thing to collapse part of the below into a
procedure.
Presupposing that the argument passing works appropriately in AppleScript to
do so. And there's no performance penalty. ;-)
mikel
> set homeNumber to home phone number of theContact
> set workNumber to business phone number of theContact
> set otherHomeNumber to other home phone number of theContact
> set otherWorkNumber to other business phone number of theContact
> set mobileNumber to mobile phone number of theContact
> set mainNumber to main phone number of theContact
> set assistantNumber to assistant phone number of theContact
> set pagerNumber to pager phone number of theContact
> set homeFaxNumber to home fax phone number of theContact
> set workFaxNumber to business fax phone number of theContact
> set custom1 to custom phone number one of theContact
> set custom2 to custom phone number two of theContact
> set custom3 to custom phone number three of theContact
> set custom4 to custom phone number four of theContact
>
> if homeNumber is not "" then set end of phoneList to ("Home: " &
> homeNumber)
> if workNumber is not "" then set end of phoneList to ("Work: " &
> workNumber)
> if otherHomeNumber is not "" then set end of phoneList to ("Home 2: " &
> otherHomeNumber)
> if otherWorkNumber is not "" then set end of phoneList to ("Work 2: " &
> otherWorkNumber)
> if mobileNumber is not "" then set end of phoneList to ("Mobile: " &
> mobileNumber)
> if mainNumber is not "" then set end of phoneList to ("Main: " &
> mainNumber)
> if assistantNumber is not "" then set end of phoneList to ("Assistant: "
> & assistantNumber)
> if pagerNumber is not "" then set end of phoneList to ("Pager: " &
> pagerNumber)
> if homeFaxNumber is not "" then set end of phoneList to ("Home Fax: " &
> homeFaxNumber)
> if workFaxNumber is not "" then set end of phoneList to ("Work Fax: " &
> workFaxNumber)
> if custom1 is not "" then set end of phoneList to (custName1 & ": " &
> custom1)
> if custom2 is not "" then set end of phoneList to (custName2 & ": " &
> custom2)
> if custom3 is not "" then set end of phoneList to (custName3 & ": " &
> custom3)
> if custom4 is not "" then set end of phoneList to (custName4 & ": " &
> custom4)
--
To unsubscribe: <mailto:[EMAIL PROTECTED]>
To search the archives:
<http://www.mail-archive.com/entourage-talk%40lists.boingo.com/>
