make new action with properties {xml:"<dict>
<key>DisplayKind</key>
<string>None</string>
<key>HonourFailureSettings</key>
<true/>
<key>IncludeStdErr</key>
<false/>
<key>MacroActionType</key>
<string>ExecuteAppleScript</string>
<key>Path</key>
<string></string>
<key>Text</key>
<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>
<key>TimeOutAbortsMacro</key>
<true/>
<key>TrimResults</key>
<true/>
<key>TrimResultsNew</key>
<true/>
<key>UseText</key>
<true/>
</dict>"}