View Single Post
For an RTF version of the link, including the subject of the email, you could write something like:

Code:
property pTitle : "Copy selected Mail message(s) as RTF link(s)"
property pVer : "0.03"
property pAuthor : "RobTrew"

set strHTML to ""
tell application "Mail"
	activate
	repeat with oSeln in selection as list
		tell oSeln to set strHTML to strHTML & ("<font face=\"helvetica\"><a href=\"" & "message:%3C" & message id & "%3E" & "\">" & ¬
			subject & "</a></font><br>" & linefeed)
	end repeat
end tell

if strHTML ≠ "" then ¬
	do shell script "echo " & quoted form of (text 1 thru -6 of strHTML) & ¬
		"  | textutil -format html -convert rtf -inputencoding UTF-8 -stdin -stdout | pbcopy -Prefer rtf"

Last edited by RobTrew; 2013-01-08 at 09:43 AM.. Reason: Ver 3: Copies multiple selections, if required, and fixes typo