hara.platform.mail.remote — hara/platform 3.0.8

*default-access* clj

*default-folder* clj

*default-ports* clj

access-map clj

connect clj

(connect {:keys [type host port security auth params]} get-service-fn)

creates a service given method and settings

(connect -test-smtp- get-transport) ;;=> #service "smtps://..." => com.sun.mail.smtp.SMTPSSLTransport

get-store clj

(get-store session protocol)

gets the mailbox store for a particular session

(get-store (Session/getInstance (Properties.)) "imap") ;;=> #service "imap://..." => com.sun.mail.imap.IMAPStore

get-transport clj

(get-transport session protocol)

gets the transport for a particular session

(get-transport (Session/getInstance (Properties.)) "smtp") ;; #service "smtps://" => com.sun.mail.smtp.SMTPTransport

mailbox-folder clj

(mailbox-folder {:keys [state] :as mailbox})

returns the folder for message retrieval, contains connection state

(def -box- (-> (mail/create-mailbox (config/resolve {:type :pop3 :host [:env "TEST_HARA_MAILBOX_MAIL"] :auth -test-auth-})) (component/start)))

(time (mailbox-folder -box-)) ;; initial

(time (mailbox-folder -box-)) ;; faster than before => com.sun.mail.pop3.POP3Folder

remote-folder clj

(remote-folder connection)

(remote-folder connection name access)

returns the folder for message retrieval

(type (remote-folder (connect -test-imap- get-store) "INBOX" :read-write)) ;; #folder {:count <>, :name "INBOX"} => com.sun.mail.imap.IMAPFolder

remote-state clj

(remote-state mailbox)

returns both the storage and folder connection

(remote-state (config/resolve {:type :pop3 :host [:env "TEST_HARA_MAILBOX_MAIL"] :folder "INBOX" ;; default :access :read-only ;; default :read-write :security :none ;; default :auth -test-auth-})) ;; {:connection #service "pop3://..." ;; :folder #folder {:count <>, :name "INBOX"}} => (contains {:connection com.sun.mail.pop3.POP3Store :folder com.sun.mail.pop3.POP3Folder})

send clj

(send mailer message)

creates a service given method and settings

(send -test-smtp- (config/resolve {:from [:env "TEST_HARA_MAILBOX_ID"] :to [[:env "TEST_HARA_MAILBOX_ID"]] :subject "Test" :body "Hello There"}))

send-bulk clj

(send-bulk mailer messages)

creates a service given method and settings

(send-bulk -test-smtp- (config/resolve [{:to [[:env "TEST_HARA_MAILBOX_ID"]] :subject "Test A" :body "Hello There A"} {:to [[:env "TEST_HARA_MAILBOX_ID"]] :subject "Test B" :body "Hello There B"}]))