Mac Outlook 2011 Archive Macro

Here's my AppleScript macro for Mac Outlook 2011 to archive the selected messages and mark them as read.

tell application "Microsoft Outlook"
set selectedMessages to current messages
if selectedMessages is {} then
display dialog "Please select a message first and then run this script." with icon 1
end if
repeat with theMessage in selectedMessages
set theMessage's is read to true
move theMessage to folder "Archive" of on my computer
on error
display dialog "An error occurred and the messages were not moved. Does the folder exist?" buttons {"Quit Script"} default button 1 with icon stop
end try
end repeat
end tell