(*

 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