(*
Move email to Processed folder
Original code from http://forgetmenotes.blogspot.com/2011/01/mac-outlook-2011-keyboard-shortcut-to.html
*)
on run {}
tell application "Microsoft Outlook"
-- listSelectedItems : a list of all items selected in Entourage
set listMessages to current messages
-- Check to make sure items are selected, if not then quit
if ((count of listMessages) < 1) then return
-- Iterate through selected items
repeat with objInSelection in listMessages
set listFolders to mail folders
repeat with objFolder in listFolders
if (name of objFolder is "Processed") then
set gtdFolder to objFolder
end if
end repeat
if (class of account of objInSelection is not imap account) then
-- IMAP currently not supported
move objInSelection to gtdFolder
end if
end repeat
end tell
end run