tell application "Microsoft Outlook"
	set theMessages to selection
	repeat with aMessage in theMessages
		delete category of aMessage
	end repeat
end tell