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