rhwood

on run {input, parameters}
	
	tell application "Mail"
		set theSelection to selection
		set theMessage to first item of theSelection
		set theSubject to subject of theMessage
		set theDescription to "From : " & sender of theMessage & return & content of theMessage
		set theMessageId to message id of theMessage
		set theUrl to "message:%3C" & message id of theMessage & "%3E"
	end tell