Easy way to move outlook messages to my most used folders

outlookMoveMessages.scpt

tell application "Microsoft Outlook"
	activate
	set selectedMessages to selected objects
	if selectedMessages is {} then
		display notification "Please select a message in Outlook before running the script!"
	else
		set folderChoices to {"Inbox", "2 - Action", "3 - Waiting For", "4 - Reference", "5 - Archive"}
		set selectedFolders to choose from list folderChoices with prompt "Select folder to move to:" default items "5 - Archive"
		set selectedFolder to item 1 of selectedFolders
		set destFolder to mail folder selectedFolder
		repeat with theMessages in selectedMessages
			move theMessages to destFolder
		end repeat
	end if
end tell