Move message to saved___cmd-d (AppleScript)

Saturday, February 26, 2005

(* -- this should work, but doesn’t
using terms from application "Mail"
   on perform mail action with messages selectedMessages
   end perform mail action with messages
end using terms from

on moveMessages(selectedMessages)
move down to next message
tell application "System Events" to tell process "Mail" to key code 125
tell application "Mail"
local theMessage, savedName, theMailbox
local uiucInbox, sabiInbox, uiucSaved, sabiSaved
set uiucInbox to mailbox "INBOX" of account "UIUC"
set sabiInbox to mailbox "+/INBOX" of account "UIUC"
set savedName to my yearMonth()
set uiucSaved to mailbox savedName of account "UIUC"
set sabiSaved to mailbox ("+/" & savedName) of account "UIUC"
repeat with theMessage in selectedMessages
if theMessage's mailbox is uiucInbox then
move theMessage to uiucSaved
else if theMessage's mailbox is sabiInbox then
move theMessage to sabiSaved
display dialog "Can’t file message “" & theMessage's subject & ¬
                  "” because its containing mailbox is not one of the UIUC or inboxes."
buttons ¬
                  {"Cancel", "Skip"}
default button 2
end if
end repeat
end tell
on error ee number en
if en ≠ -128 then display dialog ee & " " & en buttons {"Cancel"}
end try
end moveMessages

on yearMonth()
local theDate, yearMonth
set theDate to current date
set yearMonth to theDate's month as number as string
if length of yearMonth is 1 then set yearMonth to "0" & yearMonth
return (theDate's year as number as string) & "-" & yearMonth
end yearMonth

on run
tell application "Mail" to my moveMessages(selected messages of front message viewer)
end run
Top | Made with Script Debugger 3.0