comparison unixSoft/otherbin/Archive Message.applescript @ 215:ca0e1cff654c

Add an applescript I use to archive messages in Mail.app
author Augie Fackler <durin42@gmail.com>
date Sat, 14 Aug 2010 20:42:58 -0500
parents
children
comparison
equal deleted inserted replaced
214:2a4efba0fe8b 215:ca0e1cff654c
1 tell application "Mail"
2 set selectedMails to the selection
3 if the length of selectedMails is greater than 0 then
4 repeat with theMessage in selectedMails
5 if the name of the mailbox of theMessage is "INBOX" then
6 # Set "gmail" to whatever your account is called in Mail.app's preferences
7 if the account of the mailbox of theMessage is account "gmail" then
8 # Note: instead of "All Mail" below, I had to use "[Gmail]/All Mail" -Simon, using Mail 3.5 (930.3) & Gmail w/ IMAP
9 move theMessage to mailbox "[Gmail]/All Mail" in account "Gmail"
10 # Add custom accounts with custom names and custom archive mailboxes here
11 else if the account of the mailbox of theMessage is account "Google" then
12 move theMessage to mailbox "[Gmail]/All Mail" in account "Google"
13 else
14 say "Your mail didn't belong to any account I know."
15 end if
16 else
17 say "Only mails in inbox can be moved"
18 end if
19 end repeat
20 else
21 say "You have to select mails first"
22 end if
23 end tell