shemaniso

set myfrom to "****@example.com" -- 自分のメールアドレス
set hatenato to "****@d.hatena.ne.jp" -- 送信先メールアドレス 

tell application "MarsEdit"
	tell document 1
		set tit to get title
		set cont to get body
		set cont to cont & (get extended entry)
	end tell
end tell