-- Based on a script posted by Paul Berkowitz to microsoft.public.mac.office.entourage some time ago
-- First names will go into Custom 1
tell application "Microsoft Entourage"
set allContacts to every contact
repeat with aContact in my allContacts
tell aContact
set {fName} to {first name}
if fName ≠ "" then
set newName to fName
else
set newName to ""
end if
set its custom field one to newName
end tell
end repeat
beep
activate
display dialog "All done!" buttons {"OK"} default button 1 with icon 1
end tell
Note that you may wish to turn off the option to "Warn before allowing an external application to access the address book" located in Entourage > Preferences / General Preferences / Security before running the script.
Hope this helps.
On 6/24/06 11:10 PM, "Pitch" <[EMAIL PROTECTED]> wrote:
I'm trying to figure out a method of being able to view my entire Address book in Encourage 2004 by first name. I know I can do a Command-F find for first name, but I'd prefer to be able to do it while viewing the entire Address book.
One solution would be to add "Custom 1" to the columns, and then be sure that everyone's first name be also placed in that Custom 1 field.
Is there an existing script that could do this, or is it a difficult script to write.
Thanks for ideas on this.
--
Mickey Stevens (Microsoft MVP for Office:mac)
PowerPoint FAQ featuring PowerPoint:mac: <http://www.pptfaq.com/>
Entourage Help Page: <http://www.entourage.mvps.org/>
