Cross-posting: An AppleScript way to create Keyboard Maestro Macros to implement MacSparky's move to shortcuts

Original post on MPU Talk

I thought this community could benefit and improve on it as well. So here it took the liberty of posting it here as well.

@Macsparky’s idea of using the same “Move” shortcut (^M) combined with a Keyboard Maestro Pallete is really something. But the prospect of creating and changing each rule to be somewhat tedious.

So I’ve hacked my way with AppleScript to automate the creation of these macros. (It would probably be easier to create them manually instead of figuring out the code, but what’s the fun in that?)

It will fetch a list of the folders (mailboxes in Mail parlance) for each of your accounts and ask for which ones you would like to create Macros for.

I’m sure there are many ways that this code coud be better more efficient, but hey… I’m not a dev myself and it worked fine for me. Hope it can help someone as well and, please, feel free to improve on it.

use AppleScript version "2.4" -- Yosemite (10.10) or later
use scripting additions

How this script works:
 0. Please set the variables bellow
 1. Gets the list of Accounts in Mail.App
 2. Loops for each account
 	2.1. Creates a list of every mailbox on that account
 	2.2. Asks for user selection of desired mailboxes on that list
 	2.3. Creates the corresponding set of Macros for Keyboard Maestro

-- Parameters to set up
## The Keyboard Maestro Macro Group Name (will be created if there is no such group yet).
set theMacroGroupName to "Mail Moves"

## The Keyboard Maestro Trigger
-- Keyboard Maestro sets the contents of its items properties via xml dictionaries. It's easier to copy and paste its contents from a example in Keyboard Maestro Editor window and its menu (Edit > Copy as > Copy as XML)
-- Here's the XML for using ⌃M as a trigger for this macro
set theXMLfortheTrigger to "<dict>

# The script itself

-- Scafolding, do not bother
set theList to {}

tell application "Mail"
	-- Creates account List
	set accountList to every account
	-- Loops for each account
	repeat with eachAccount in accountList
		set accountName to name of eachAccount
		-- Fetches the names for account mailboxes (folders) to create a list
		set accountMailboxes to every mailbox of eachAccount
		repeat with eachMailbox in accountMailboxes
			set the end of theList to (name of eachMailbox)
		end repeat
		-- Chooses desired Mailboxes from that list		
		set selectedMailboxes to choose from list theList with title ("Pick the desired mailboxes from " & accountName) with multiple selections allowed
		-- This if statement to allow for no selection to be passed via the Cancel button
		if (count of selectedMailboxes) > 0 then
			-- Loops the selected Mailboxes to create their corresponding Macros on Keyboard Maestro
			repeat with theMailbox in selectedMailboxes
				set theMailbox to theMailbox
				set theAccount to (name of eachAccount)
				set theMacroName to "Move to " & theAccount & " - " & theMailbox
				-- Will use the Keyboard Maestro Editor NOT the Engine
				tell application "Keyboard Maestro"
					-- Creates a Macro Group if there isn`t one named as intended.
					if macro group theMacroGroupName exists then
						set theMacroGroup to macro group theMacroGroupName
						-- Will create a New Macro Group to be used only within
						set theMacroGroup to make new macro group with properties {name:theMacroGroupName, available application xml:"<dict>
					end if
					-- Creates the Macro	
					tell theMacroGroup
						-- Creates new macro
						set theMacro to make new macro with properties {name:theMacroName}
						-- Uses a tell command to address the new Macro
						tell theMacro
							-- Creates the Trigger from the XML provided above
							make new trigger with properties {xml:theXMLfortheTrigger}
							-- Creates the AppleScript Action
							make new action with properties {xml:"<dict>
				<string>tell application \"Mail\"
		    set selMessage to selection
		    set thisMessage to item 1 of selMessage
		    set mailbox of thisMessage to mailbox \"" & theMailbox & "\" of account \"" & theAccount & "\"
		    display notification with title \"Message Moved to " & theAccount & " " & theMailbox & "\"
		end tell</string>
						end tell
					end tell
				end tell
			end repeat
			-- Resets account list for next Account iteration
			set theList to {}
		end if
	end repeat
end tell