mirror of
https://git.nerfingen.de/nerf/choirMail.git
synced 2024-10-22 19:39:25 +00:00
19 lines
670 B
Haskell
19 lines
670 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
module Sender where
|
|
|
|
import Network.Mail.Mime
|
|
import Network.Mail.SMTP
|
|
import qualified Data.Text as ST
|
|
import qualified Data.Text.Lazy as LT
|
|
import Monad
|
|
|
|
|
|
generateMail :: ST.Text -> ST.Text -> ST.Text -> LT.Text -> Mail
|
|
generateMail to from subj = simpleMail' (Address Nothing to) (Address Nothing from) subj
|
|
|
|
-- domain -> Username -> password -> To -> From -> Subject -> Body
|
|
send :: (MonadIO m) => String -> String -> String -> ST.Text -> ST.Text -> ST.Text -> LT.Text -> m ()
|
|
send domain user pass to from subj body = liftIO $ sendMailWithLoginTLS domain user pass mail
|
|
where
|
|
mail = generateMail to from subj body
|
|
|