tell application "Microsoft Outlook"
    -- get the currently selected message or messages
    -- NOTE in this version it fails if the Outlook Reminder window is open, even if you select a message in the main window.
    set selectedMessages to current messages

    -- if there are no messages selected, warn the user and then quit
    if selectedMessages is {} then
        display dialog "Please select a message first and then run this script." with icon 1
        return
    end if

    set aMessage to item 1 of selectedMessages
    set emailAcct to account of aMessage
    set inBoxFolder to folder "Inbox" of emailAcct
    set ArchiveFolder to folder "IZ - Archive" of inbox

    repeat with theMessage in selectedMessages
        move theMessage to IZArchiveFolder
    end repeat
end tell