Outlook Archived

archive.scpt

-- Put this into your Outlook scripts folder (~/Library/Application Support/Microsoft/Office/Outlook Script Menu Items/)

on run {}
	tell application "Microsoft Outlook"
		set msgs to current messages
		if ((count of msgs) < 1) then return
		
		set mailFolders to mail folders
		repeat with fld in mailFolders
			if (name of fld is "Archived") then
				set target to fld
				-- TODO: break? I have no clue how to applescript
			end if
		end repeat
		
		try
			target
		on error
			display dialog "You need to create a folder named Archived."
			return
		end try
		
		repeat with msg in msgs
			if (class of account of msg is not imap account) then
				-- IMAP currently not supported
				move msg to target
			end if
		end repeat
		
	end tell
end run