Skip to content

Instantly share code, notes, and snippets.

@carboleum
Last active September 5, 2023 16:23
Show Gist options
  • Save carboleum/cf03b4c16655f257d96bda8f41f51471 to your computer and use it in GitHub Desktop.
Save carboleum/cf03b4c16655f257d96bda8f41f51471 to your computer and use it in GitHub Desktop.
Send gmail with common lisp cl-smtp

Autoriser les applications moins sécurisées

Dans Google, paramètres du compte, sécurité

use cl-smpt library

(ql:quickload :cl-smtp)
(let ((from "USERNAME@gmail.com")
      (to "RECIPIENT")
      (subject "test")
      (message "Hello ;-)")
      (login "USERNAME@gmail.com")
      (passwd "PASSWORD"))
  (cl-smtp:send-email "smtp.gmail.com" from to subject message 
                      :ssl :tls :authentication `(,login ,passwd)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment