How to add person to address book when replying to them

R

rfuste

In advance, thank you to whoever can help me.

I know how to select an individual message and then add the
corresponding sender of that message to me into the addressbook.

Is there a way, like in PC Outlook Express, to set it so that anytime I
reply to someone, that someone is added to my adress book
automatically?

Again, thanks!
 
B

Barry Wainwright

In advance, thank you to whoever can help me.

I know how to select an individual message and then add the
corresponding sender of that message to me into the addressbook.

Is there a way, like in PC Outlook Express, to set it so that anytime I
reply to someone, that someone is added to my adress book
automatically?

Again, thanks!
Click to expand...

Add an outgoing mail rule to run a script add the recipient to the address
book.

This script should do it:

http://tinyurl.com/4lsbd

If that url doesn't work, here's the script in full:

tell application "Microsoft Entourage"
set thisMessage to item 1 of (get current messages)
set theRecipients to every recipient of thisMessage
repeat with aRecipient in theRecipients

set theAddress to address of address of aRecipient
if (find theAddress) is {} then
try
set firstName to word 1 of (get display name of address of
aRecipient)
on error
set firstName to ""
end try
try
set lastName to words 2 thru -1 of (get display name of
address of aRecipient)
on error
set lastName to ""
end try
make new contact with properties {first name:firstName, last
name:lastName, email address:{contents:theAddress, label:work}}
end if
end repeat
end tell
 
Top