|
|
|
|
@ -3,7 +3,7 @@
|
|
|
|
|
(define-condition sendgrid-error (error)
|
|
|
|
|
((sendgrid-error-message :initarg :sendgrid-error-message :reader sendgrid-error-message)))
|
|
|
|
|
|
|
|
|
|
(defun send-email (&key api-user api-key subject to text html from reply-to)
|
|
|
|
|
(defun send-email (&key api-user api-key subject to text html from reply-to from-name)
|
|
|
|
|
(let ((r (parse (flexi-streams:octets-to-string
|
|
|
|
|
(http-request "https://sendgrid.com/api/mail.send.json"
|
|
|
|
|
:method :post
|
|
|
|
|
@ -12,6 +12,7 @@
|
|
|
|
|
("subject" . ,subject)
|
|
|
|
|
("to" . ,to)
|
|
|
|
|
("replyto" . ,reply-to)
|
|
|
|
|
("fromname" . ,from-name)
|
|
|
|
|
("text" . ,text)
|
|
|
|
|
("html" . ,html)
|
|
|
|
|
("from" . ,from))))
|
|
|
|
|
|
