Save Shortcut\cS

(*
	Microsoft Outlook Save Shortcut
	Saves selected message to the 2012 subfolder in your local inbox
*)

tell application "Microsoft Outlook"
	try
		set theMessages to current messages
	on error
		display dialog "select some messages before running this script."
		return
	end try
	try
		move theMessages to folder "2012" of folder "Inbox"
		
	on error
		display dialog "An error occurred and the messages were not moved."
		return
	end try
end tell