Guest
2013-01-07, 09:07 PM
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