Copyright	(c) digitally induced GmbH 2020
Safe Haskell	None

IHP.Mail

Description

Synopsis

data MailServer
- = SES {
  - accessKey :: ByteString
  - secretKey :: ByteString
  - region :: Text
  }
- | Sendmail
- | SendGrid {
  - apiKey :: Text
  - category :: Maybe Text
  }
- | SMTP {
  - host :: String
  - port :: PortNumber
  - credentials :: Maybe (String, String)
  }
class BuildMail mail where
- subject :: (?mail :: mail) => Text
- to :: (?context :: context, ConfigProvider context) => mail -> Address
- from :: (?mail :: mail, ?context :: context, ConfigProvider context) => Address
- html :: (?context :: context, ConfigProvider context) => mail -> Html
- text :: (?context :: context, ConfigProvider context) => mail -> Text
- attachments :: (?context :: context, ConfigProvider context) => mail -> [MailAttachment]
sendMail :: (BuildMail mail, ?context :: context, ConfigProvider context) => mail -> IO ()
sendWithMailServer :: MailServer -> Mail -> IO ()

Documentation

data MailServer Source #

Configuration for a mailer used by IHP

Constructors

SES	Uses AWS SES for sending emails
Fields accessKey :: ByteString secretKey :: ByteString region :: Text
Sendmail	Uses the local Sendmail binary for sending emails. Avoid this with IHP Cloud
SendGrid	Uses SendGrid for sending emails
Fields apiKey :: Text category :: Maybe Text
SMTP	Uses a generic SMTP for sending emails
Fields host :: String port :: PortNumber credentials :: Maybe (String, String)

class BuildMail mail where Source #

Minimal complete definition

subject, to, from, html

Methods

subject :: (?mail :: mail) => Text Source #

You can use ?mail to make this dynamic based on the given entity

to :: (?context :: context, ConfigProvider context) => mail -> Address Source #

The email receiver

Example:

to ConfirmationMail { .. } = Address { addressName = Just (get #name user), addressEmail = get #email user }

Example: Send all emails to a fixed email address while in development mode

to CreateAccountMail { .. } = Address
    { addressName = Just (fullName admin)
    , addressEmail =
        if isDevelopment then
            "staging@example.com"
        else
            get #email admin
    }

from :: (?mail :: mail, ?context :: context, ConfigProvider context) => Address Source #

Your sender address

Example:

from = Address { addressName = "Acme Inc.", addressEmail = "hi@example.com" }

html :: (?context :: context, ConfigProvider context) => mail -> Html Source #

Similiar to a normal html view, HSX can be used here

text :: (?context :: context, ConfigProvider context) => mail -> Text Source #

When no plain text version of the email is specified it falls back to using the html version but striping out all the html tags

attachments :: (?context :: context, ConfigProvider context) => mail -> [MailAttachment] Source #

Optional, mail attachments

Example:

attachments = [ MailAttachment { name = "attached_file.xml", contentType = "application/xml", content = "<xml><hello/></xml>" } ]

sendMail :: (BuildMail mail, ?context :: context, ConfigProvider context) => mail -> IO () Source #

Sends an email

Uses the mail server provided in the controller context, configured in Config/Config.hs

sendWithMailServer :: MailServer -> Mail -> IO () Source #