Script to nuke messages in Outlook 2011

Question

I have the following script for Entourage, and thought it would work under Outlook but it does not. it hangs on the first 'message'
Anybody know how to fix this?
FYI the script deletes a selected message immediately bypassing the trash.
on run
tell application "Microsoft Outlook"
if the class of the front window is message window then
set theMsg to the displayed message of the front window
my ProcessMsg(theMsg)
else
set theMessages to the selection
repeat with theMsg in theMessages
my ProcessMsg(theMsg)
end repeat
end if
end tell
end run
-- process the messages
on ProcessMsg(theMsg)
tell application "Microsoft Outlook"
move theMsg to deleted items folder
delete theMsg
end tell
end ProcessMsg

Answer 1

Thank you for this script, it has helped solve my desire to nuke the message from my Outlook 2011. I added a dialog to the script to ask for confirmation as sometime I little to quick with the keyboard shortcuts:
tell application "Microsoft Outlook"
          set theMsgs to the current messages -- selected messages
          try
                    set question to display dialog "Permanently Delete Message(s)?" buttons {"Yes", "No"} default button 2
                    set answer to button returned of question
                    if answer is equal to "Yes" then
                              repeat with theMsg in theMsgs
  permanently delete theMsg
                              end repeat
                    end if
          on error errMsg number errNum
                    set theSubject to subject of theMsg
                    set theFolder to name of «class stor» of theMsg
  beep
                    display dialog errMsg & return & return & errNum & return & return & "(Erroring on message: " & theSubject & " in " & theFolder & ")" with icon 2
          end try
end tell