gistfile1.clj

(ns mail
  (import [org.apache.commons.mail
	   SimpleEmail]))

(defn sendmail [& {:keys [from to subject content charset host],
		   :or {charset "iso-2022-jp"}}]
  (doto (SimpleEmail.)
      (.setHostName host)
      (.setCharset charset)
      (.setContent content (str "text/plain; charset=" charset))
      (.setSubject subject)
      (.addTo to)
      (.setFrom from)
      (.send)))

; (sendmail :from "t.noborio@gmail.com" :to "t.noborio@gmail.com" :subject "件名" :content "ほげ" :host "localhost")