Moving...
I have moved this blog to http://scottyp.blogsome.com/ Check it out there for all the new entries (hah! It's only a few, since I've been so busy!) you have been missing for the last few months!
of ScottyP is made of 1s and 0s
--*************************
-- Multiple Contact Tagger
-- How to use this script: Select multiple contacts in Address Book, then run this script (via the script menu or Quicksilver are the best ways), and it will let you enter the tag (ex: [Family] ) you want and then apply it to the selected contacts by appending it into the Note section of each contact. You may then want to create Smart Groups that search for that tag in its criteria, and then Smart Folders in Mail that use the Smart Groups in its criteria
-- Author: Scott Paulis
-- Last Modified: May 17, 2005
tell application "Address Book"
set thePeople to selection
display dialog "What tag would you like to apply to the selected contacts?" buttons {"Cancel", "Apply"} default button "Apply" default answer "[tag]"
set dialogInfo to result
set selectedButton to button returned of dialogInfo
set tagString to text returned of dialogInfo
if selectedButton is "Apply" then
repeat with aPerson in thePeople
set currentNote to the note of aPerson
if currentNote is missing value then set currentNote to ""
set newNote to currentNote & tagString
set note of aPerson to newNote
end repeat
end if
end tell
--**************************