adam@0: fun sendPlain r = adam@0: Mail.send (Mail.from r.From (Mail.to r.To (Mail.subject r.Subject Mail.empty))) adam@0: r.Body None; adam@0: return Sent adam@0: adam@0: fun sendHtml r = adam@0: Mail.send (Mail.from r.From (Mail.to r.To (Mail.subject r.Subject Mail.empty))) adam@0: r.Body (Some Spread the love!); adam@0: return Sent adam@0: adam@0: and main () = return adam@0:

Plain

adam@0: adam@0:
adam@0: From:
adam@0: To:
adam@0: Subject:
adam@0: Body:
adam@0: adam@0: adam@0: adam@0:

HTML

adam@0: adam@0:
adam@0: From:
adam@0: To:
adam@0: Subject:
adam@0: Body:
adam@0: adam@0: adam@0: