Let's Talk Tech How To

Move_Messages.scpt

try
	tell application "Mail"
		set msgs to selection
		if length of msgs is not 0 then
			repeat with msg in msgs
				try
					move msg to mailbox "App Testing" of account "iCloud"
				on error errmsg
					return errmsg
				end try
			end repeat
			return "Moved " & length of msgs & " messages to App Testing in iCloud Account'"
		else
			return "Please Choose Some Messages."
		end if
	end tell
on error errmsg
	return errmsg
end try