I could use some hlep with a simple script to add a contact to a group

Question

Aloha,
I am using Apple's Mail. I have a special email address set up (add-hiker@...) to add someone to my group of hiking friends in my address book. I would like to automate the process. Can someone please give me some guidance? I am a strong programmer, well, I was years ago, but I don't have much experience with Applescript. I'd also like to write a similar rule to remove a contact from the hiking group when they send an email to remove-hiker@...
TIA,
Thad

Answer 1

Save the source code below; and via 'Mail's 'Preferences' 'Rule' setting - locate the resultant save file as the AppleScript script to call when an e-Mail message is received by 'add-hiker@...'.
-- Code starts here.
property hikingGroup : "Hiking Group" -- Assumed name of 'Company'.
using terms from application "Mail" -- Focus on 'Mail' commands.
on perform mail action with messages tMessages -- Execute on a 'Rule' activation.
-- Obtain 'hikingGroup' account list. The list should contain only one entry.
tell application "Address Book" to set tPersons to (every person whose name is hikingGroup)
repeat with i in tMessages -- Cycle through received e-Mail messages.
set tSender to (sender of i) -- Obtain 'Sender's e-Mail address.
tell application "Address Book" -- Focus on 'Address Book' commands.
repeat with j in tPersons -- Cycle through every 'hikingGroup' account.
-- Add a new e-Mail message with a 'Work' label, and e-Mail address of 'Sender'.
make new email at end of emails of j with properties {label:"Work", value:tSender}
end repeat
quit -- Quit 'Address Book'.
end tell
end repeat
end perform mail action with messages
end using terms from
-- Code ends here.
Edit the code according to your particular needs.