Getting Address from Address Book

please forgive a little shameless begging here ;-)

I'd like to be able to add contact info from one of my Apple Address Book entries to a message in Mailsmith. it appears to be possible, looking at the AB applescript dictionary. does anyone have such an applescript that might be useful as a starting point?

Well, there doesn't seem to be anyway to access the "current" entry in the Address Book, so you can't be looking at an entry and run a script which inserts data from that entry into Mailsmith.

If you know the id of the entry you want you can use the script below. This will insert some of the data from a specific person into the current message window.


tell application "Address Book"
	set my_text to ""
	set p_prop to properties of person 1
	set p_addr to properties of address 1 of person 1
	set my_text to name of p_prop
	set my_text to my_text & return & organization of p_prop
	set my_text to my_text & return & street of p_addr
	set my_text to my_text & return & city of p_addr & ", " & state of p_addr & " " & zip of p_addr
end tell

tell application "Mailsmith"
	set selection of message window 1 to my_text
end tell