Copy a URL to the clipboard that links to the current Mail.app message.

URL for Current Mail Message.scpt

-- Copy a URL to the clipboard that links to the current Mail.app message.
-- Bonus: the URL will work on both iOS and macOS.
-- By David@Pinney.org on 18 June 2017

on run
	tell application "Mail"
		set s to selection
		if (count of s) is not 1 then
			display dialog "Please select exactly one message." buttons {"OK"}
			return
		else
			set msg to item 1 of s
			set msgUrl to "message://" & "%3c" & (message id of msg) & "%3e"
			set the clipboard to msgUrl
			display dialog "Message URL copied to clipboard." buttons {"OK"} default button 1
		end if
	end tell
end run