I was able to write a simple wrapper around smtp-send-message and get it
working through SendGrid in a few minutes (see below), but I wasn't able to
find any examples of sending emails containing both a plain text version
and HTML version. Can anyone point me to some examples?
Thanks,
Brian Adkins
#lang racket/base
(require net/head
net/smtp
openssl
racket/contract)
(require "./axio-env.rkt")
;; (module+ main
;; (send-email "Fred Flintstone <[email protected]>"
;; '("Barney Rubble <[email protected]>")
;; "Test message subject"
;; (list
;; "Message line one"
;; "line two"
;; ""
;; "line four")))
(define/contract (send-email from to subject message-lines)
(-> string? (listof string?) string? (listof (or/c string? bytes?)) any)
(smtp-send-message smtp-server
from
to
(standard-message-header from to '() '() subject)
message-lines
#:port-no smtp-port
#:auth-user smtp-username
#:auth-passwd smtp-password
#:tls-encode ports->ssl-ports))
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To view this discussion on the web visit
https://groups.google.com/d/msgid/racket-users/7dd13674-5f20-4e4d-92de-0da0e2bc7c95%40googlegroups.com.
