I hope you're not bored with vacation mail by now
I hope you're not bored with vacation mail by now
- Subject: I hope you're not bored with vacation mail by now
- From: Michelle Steiner <email@hidden>
- Date: Thu, 1 Apr 2004 00:59:28 -0700
I hope this is the final version. If anyone would like to do a code
review, I'd appreciate it.
thanks,
-- Michelle
tell application "Mail"
perform mail action with messages messages_to_process for rule
"vacation"
repeat with message_to_process in messages_to_process
if junk mail status of message_to_process is false then
set the_sender to the sender of the message_to_process
my add_to_vacation(extract address from the_sender)
set the_reply_message to reply the message_to_process
set the content of the_reply_message to ,
"I'm on vacation; I'll get back to you after I get home."
send the_reply_message
end if
end repeat
end tell
to add_to_vacation(email_sender)
tell application "Address Book"
set the newbie to make new person at after the people of group
"Vacation"
make new email at after the emails of the newbie with properties
{label:"Vacation", value:email_sender}
save addressbook
end tell
end add_to_vacation
--
"I'll do the best I can do because that's the best I can do!"
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.