NetSendEmail - Cookbook - s c h e m a t i c s : c o o k b o o k

Sending Email

Problem

You want to send an email from a Scheme program

Solution

Use the smtp.ss or sendmail.ss modules, and the head.ss module, all in the net collection. Since SMTP is more universal the sendmail, the examples will use SMTP.

The function send-email below uses the libraries to send an email to a single recipient. It requires you specify the name of your SMTP server, and you should replace "your-email-address" with your actual email address.

(require (lib "smtp.ss" "net")
         (lib "head.ss" "net"))

;; send-email : string string string string
(define (send-email server recipient subject body)
  (let ((header
         (insert-field
          "Subject"
          subject
          (insert-field
           "From"
           "your-email-address"
           (insert-field
            "To"
            recipient
            empty-header)))))
    (smtp-send-message server
                       "your-email-address"
                       (list recipient)
                       header
                       (list body))))

Discussion

SMTP stands for Simple Mail Transport Protocol, and is the Internet standard for email.

To send encrypted mail;

(require (lib "smtp.ss" "net")
         (lib "dns.ss" "net")
         (lib "mzssl.ss" "openssl")
         (lib "head.ss" "net")
         )
(printf "ssl-available? ~s~n" ssl-available?) ; just checking
(smtp-send-message 
 (dns-get-address (dns-find-nameserver) "smtp.gmail.com") ; server-string
 "username@gmail.com" ; from-string
 '("someone@else.com") ; to-list-of-strings
 (insert-field "From" "spdegabrielle@gmail.com" 
   (insert-field "To" "someone@else.com" empty-header)) ;; header
 '("This works!" "#:tcp-connect ssl-connect") ;; message-list-of-strings/bytes
 #:port-no 465
 #:auth-user "username"  ; for gmail don't include the @gmail.com
 #:auth-passwd "yourpass"
 #:tcp-connect ssl-connect
 ;#:tls-encode ports->ssl-ports ; the other option
 )

an example.

-- StephenDeGabrielle - 14 Nov 2007

How about a retrieval example?

-- StephenDeGabrielle - 21 Nov 2007

Comments about this recipe

Contributors

-- NoelWelsh - 12 Jan 2006

CookbookForm
TopicType:	Recipe
ParentTopic:	NetRecipes
TopicOrder:	999

PLT Scheme	SISC
Scheme48	SCM
MIT Scheme	scsh
JScheme	Kawa
Chicken	Guile
Bigloo	Tiny
Gambit	LispMe
Gauche	Chez