hara.platform.mail — hara/platform 3.0.8

clear-mail clj

(clear-mail mailbox)

clears mail for the entire mailbox

(let [box (mailbox {:id :test :type :mock :addresses ["[e-mail]"]})] (-> (mailer {:type :mock}) (send-bulk [{:to ["[e-mail]"] :body "Test A"} {:to ["[e-mail]"] :body "Test B"} {:to ["[e-mail]"] :body "Test C"}])) (clear-mail box) (count-mail box)) => 0

copy-mailbox clj

(copy-mailbox from to)

copies the contents of one mailbox to another

(def boxA (mailbox -test-imap-))

(def boxB (mailbox {:id :test :type :mock}))

(copy-mailbox boxA boxB)

(= (mapv (comp :all-headers object/to-data) (list-mail boxA)) (mapv (comp :all-headers object/to-data) (list-mail boxB))) => true

count-mail clj

(count-mail mailbox)

counts the number of mail in the mailbox

(let [box (mailbox {:id :test :type :mock :addresses ["[e-mail]"]})] (-> (mailer {:type :mock}) (send-bulk [{:to ["[e-mail]"] :body "Test A"} {:to ["[e-mail]"] :body "Test B"} {:to ["[e-mail]"] :body "Test C"}])) (count-mail box)) => 1

create-mailbox clj

(create-mailbox m)

creates a mailbox for use with hara.core.component

(create-mailbox {:type :mock :addresses ["[e-mail]"]})

(create-mailbox -test-imap-)

create-mailer clj

(create-mailer m)

creates a mailer for use with hara.core.component

(create-mailer {:type :mock})

(create-mailer {:type :local})

(create-mailer -test-smtp-)

get-mail clj

(get-mail mailbox i)

retrieves mail at a given index

(let [box (mailbox {:id :test :type :mock :addresses ["[e-mail]"]})] (-> (mailer {:type :mock}) (send-mail {:to ["[e-mail]"] :body "Test A"})) (-> (get-mail box 0) (object/to-data))) => (contains {:to ["[e-mail]"] :body "Test A"})

init-mail clj

(init-mail mailbox messages)

sets the mailbox with the inital messages (let [box (mailbox {:id :test :type :mock})] (init-mail box (mapv message [{:to ["[e-mail]"] :body "Test A"}])) (count-mail box)) => 1

list-mail clj

(list-mail mailbox)

retrieves all mail in the mailbox

(let [box (mailbox {:id :test :type :mock :addresses ["[e-mail]"]})] (-> (mailer {:type :mock}) (send-bulk [{:to ["[e-mail]"] :body "Test A"} {:to ["[e-mail]"] :body "Test B"} {:to ["[e-mail]"] :body "Test C"}])) (-> (list-mail box) (object/to-data))) => (contains-in [{:body "Test A"} {:body "Test B"} {:body "Test C"}])

mailbox clj

(mailbox m)

creates an active mailbox

(mailbox {:type :mock}) ;; => #mailbox.mock{:id "8c465d04-fdaa-4401-997e-cd6ed3d9d732", ;; :messages 0, :addresses #{}}

(mailbox -test-pop3-)

mailer clj

(mailer m)

creates an active mailer

(mailer {:type :mock})

(mailer -test-smtp-)

message clj

(message {:keys [from to cc bcc subject content text reply-to] :as m})

constructs a MimeMessage from a map

(-> (message {:from "[e-mail]" :cc ["[e-mail]"] :bcc ["[e-mail]" "[e-mail]"] :reply-to ["[e-mail]"] :subject "Hello There" :body "This is Cool"}) (object/to-data) (select-keys [:all-headers :subject :body])) => {:all-headers [["From" "[e-mail]"] ["Reply-To" "[e-mail]"] ["Cc" "[e-mail]"] ["Bcc" "[e-mail], [e-mail]"] ["Subject" "Hello There"]] :subject "Hello There" :body "This is Cool"}

send-bulk clj

(send-bulk mailer messages)

sends a list of mail to the given address

(-> (mailer {:type :mock}) (send-bulk [{:to ["[e-mail]"] :body "Test A"} {:to ["[e-mail]"] :body "Test B"} {:to ["[e-mail]"] :body "Test C"}]))

send-mail clj

(send-mail mailer {:keys [to cc bcc subject body] :as message})

sends mail to the given address

(-> (mailer {:type :mock}) (send-mail {:to ["[e-mail]"] :body "Test"}))