using terms from application "Mail"
	on perform mail action with messages TheMail
		set OldDelim to AppleScript's text item delimiters
		tell application "Mail"
			set TheSenders to {}
			repeat with ThisMail in TheMail
				set TheSenders to TheSenders & sender of ThisMail
			end repeat
			set newMessage to make new outgoing message --with properties {subject:"Laboratory Marks", content:theBody & return} 
			tell newMessage
				set visible to true
				repeat with thisOne in TheSenders
					try
						set AppleScript's text item delimiters to {"<"}
						
						set TheName to text item 1 of thisOne
						
						set TheAddress to text item 2 of thisOne
						
						set AppleScript's text item delimiters to {">"}
						
						set TheAddress to text item 1 of TheAddress
						
					end try
					make new to recipient at end of to recipients with properties {name:TheName, address:TheAddress}
				end repeat
			end tell
		end tell
		set AppleScript's text item delimiters to OldDelim
	end perform mail action with messages
end using terms from

using terms from application "Mail"
	on run
		tell application "Mail" to set sel to selection
		tell me to perform mail action with messages (sel)
	end run
end using terms from