(*

 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