[racket] how to use ``smtp-send-message''?

From: John Gateley (racket at jfoo.org)
Date: Wed May 8 21:09:21 EDT 2013

The original code used port 587. This is for SSL/TLS
encrypted communication. Try the same port as  Matthias:
465.

j


On 5/8/2013 8:05 PM, Matthias Felleisen wrote:
>
> I have used the script below to send email to my students via gmail:
>
> #! /bin/sh
> #|
> exec racket -t "$0" ${1+"$@"}
> |#
>
> #lang racket
>
> ;; -----------------------------------------------------------------------------
> ;; send graded solutions located in _directory_ and label them _subject_
>
> (define directory "PCode/")
>
> ;; -----------------------------------------------------------------------------
> (require net/smtp net/dns openssl/mzssl net/head)
>
> (define subject "grade for final project, take 2")
>
> (define (main)
>    (parameterize ([current-directory directory])
>      (for ((f (directory-list)) #:when (regexp-match "\\.rkt" (path->string f)))
>        (define c (file->lines f))
>        (displayln `(doing ,f ,(second c)))
>        (define to (string-split (substring (second c) 3) ", "))
>        ; (displayln `(running ,f ,to))
>        (send to (list* "" "*** do not reply to this message ***" "" c))
>        (printf "done: ~a\n" f))))
>
> (define (send to file)
>    (smtp-send-message
>     (dns-get-address (dns-find-nameserver) "smtp.gmail.com")
>     "matthias at ccs.neu.edu"
>     to
>     (standard-message-header "matthias at ccs.neu.edu" to '() '("matthias at ccs.neu.edu") subject)
>     file
>     #:port-no 465
>     ; for gmail don't include the @gmail.com
>     #:auth-user "matthias.f@"
>     #:auth-passwd "XYZ XYZ" ; gmail special password that bypasses dual verification
>     #:tcp-connect ssl-connect))
>
> ;; http://en.wikipedia.org/wiki/MIME#Multipart_messages
> ;; attaching files?
>
> (module+ main (main))
>
>
> On May 8, 2013, at 8:39 PM, Kejia柯嘉 wrote:
>
>> hello all,
>>
>> i am trying to use ``smtp-send-message" to send emails via gmail. my
>> code is following:
>> ``
>> #! /usr/local/bin/racket
>>
>> #lang racket
>>
>> (require net/head net/smtp)
>>
>> (smtp-send-message
>> "smtp.gmail.com"
>> "w1 <theuser at gmail.com>"
>> '("w2 <w2 at hotmail.com>")
>> (standard-message-header
>>   "w1 <theuser at gmail.com>"
>>   '("w2 <w2 at hotmail.com>")
>>   '() ; CC
>>   '() ; BCC
>>   "Subject")
>> '("Hello World!")
>> #:port-no 587
>> #:auth-user "theuser at gmail.com"
>> #:auth-passwd "theauthpassword")
>> ''
>> the code does not work. the similar config works for a python program.
>> anyone knows how to do this job with racket?
>>
>> ----------------------
>> daniel
>>
>> ☵☯☲
>>
>> ____________________
>>   Racket Users list:
>>   http://lists.racket-lang.org/users
>
>
> ____________________
>    Racket Users list:
>    http://lists.racket-lang.org/users
>

Posted on the users mailing list.