[plt-scheme] sending smtp tls mail

From: Stephen De Gabrielle (stephen at degabrielle.name)
Date: Tue Nov 13 18:38:52 EST 2007


I'm trying to send smtp-tls mail, but I don't think I'm getting
something really wrong

for instance
 ("spdegabrielle at gmail.com") ; to-list-of-strings
give this error : > procedure application: expected procedure, given:
"spdegabrielle at gmail.com" (no arguments)

Does anyone have an example I can look at?



(require (lib "smtp.ss" "net")
         (lib "dns.ss" "net")
         (lib "mzssl.ss" "openssl")
         (lib "url.ss" "net")
         (lib "head.ss" "net")

 (dns-get-address (dns-find-nameserver) "smtp.gmail.com") ; server-string
 "spdegabrielle at gmail.com" ; from-string
 ("spdegabrielle at gmail.com") ; to-list-of-strings
 (insert-field "From" "spdegabrielle at gmail.com" (insert-field "to"
"spdegabrielle at gmail.com" empty-header)) ;; header
 ("test") ;; message-list-of-strings/bytes
 #:port-no 587
 ; #:auth-user user-string-or-#f
 ; #:auth-passwd pw-string-or-#f
 ; #:tcp-connect proc
  (open-input-string "hello world") ;input-port
  (current-output-port) ;output-port
                  #:mode 'connect
                  ; [#:context context]
                   #:encrypt 'tls
                   #:close-original? #t
                   ;[#:shutdown-on-close? shutdown?]
                   ;[#:error/ssl error]
 ; [port-no]
 ) ; -> void



Stephen De Gabrielle
s.degabrielle at ucl.ac.uk
Telephone +44 (0)20 7679 5242 (x45242)
Mobile                  079 851 890 45
University College London Interaction Centre
Remax House - 31/32 Alfred Place
London - WC1E 7DP

Posted on the users mailing list.