Network.Mail.Mime でのメール送信方法

Network.Mail.Mime を使えば UTF-8 ですごく簡単にメール送信ができる。sendmail コマンドが呼び出せることが前提。

simple.hs

{-# LANGUAGE OverloadedStrings #-}

import Network.Mail.Mime

main :: IO ()
main =
  renderSendMail $ simpleMail'
    (Address Nothing "[e-mail]")
    (Address Nothing "[e-mail]")
    "件名"
    "本文"

この方法だと to に複数メールアドレスを設定することができない。複数アドレスに同時にメールを送信したい場合、少しだけ複雑になる。

complex.hs

{-# LANGUAGE OverloadedStrings #-}

import Network.Mail.Mime

main :: IO ()
main = renderSendMail mail'
 where
  from = Address Nothing "[e-mail]"
  mail = addPart [plainPart "本文"] $ emptyMail from
  mail' = mail { mailHeaders = [ ("to", "[e-mail], [e-mail]")
                               , ("subject", "件名")
                               ]   
               }   

ポイントは emptyMail で from アドレスだけ持つ Mail インスタンスを作成し、mailHeaders で自由にヘッダを設定するところ。今回のサンプルでは addPart で text/plain の本文をひとつだけ追加しているが、HTML パートも添付ファイルも簡単にできる。

Network.Mail.Client.Gmail でのメール送信方法もご参考ください。