annotate unixSoft/otherbin/Archive Message.applescript @ 439:2325dea339ca

smailq: vendor script to ease handling outgoing mail From commit 5b83ca873f1dc9117a9b3590f0aa07fe2806fce9 of http://git.sthu.org/repos/smailq.git - documented at https://www.sthu.org/code/smailq.html.
author Augie Fackler <raf@durin42.com>
date Sat, 15 Jul 2017 12:57:17 -0400
parents ca0e1cff654c
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
215
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
1 tell application "Mail"
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
2 set selectedMails to the selection
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
3 if the length of selectedMails is greater than 0 then
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
4 repeat with theMessage in selectedMails
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
5 if the name of the mailbox of theMessage is "INBOX" then
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
6 # Set "gmail" to whatever your account is called in Mail.app's preferences
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
7 if the account of the mailbox of theMessage is account "gmail" then
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
8 # Note: instead of "All Mail" below, I had to use "[Gmail]/All Mail" -Simon, using Mail 3.5 (930.3) & Gmail w/ IMAP
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
9 move theMessage to mailbox "[Gmail]/All Mail" in account "Gmail"
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
10 # Add custom accounts with custom names and custom archive mailboxes here
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
11 else if the account of the mailbox of theMessage is account "Google" then
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
12 move theMessage to mailbox "[Gmail]/All Mail" in account "Google"
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
13 else
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
14 say "Your mail didn't belong to any account I know."
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
15 end if
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
16 else
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
17 say "Only mails in inbox can be moved"
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
18 end if
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
19 end repeat
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
20 else
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
21 say "You have to select mails first"
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
22 end if
ca0e1cff654c Add an applescript I use to archive messages in Mail.app
Augie Fackler <durin42@gmail.com>
parents:
diff changeset
23 end tell