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 <f...@example.com>"
;; '("Barney Rubble <bar...@example.com>")
;; "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 racket-users+unsubscr...@googlegroups.com.
To view this discussion on the web visit
https://groups.google.com/d/msgid/racket-users/7dd13674-5f20-4e4d-92de-0da0e2bc7c95%40googlegroups.com.
