Slightly off-topic, and probably preaching to the choir, but: It's definitely worthwhile setting up two-factor authentication for your Google account.
After you do so, you can generate per-application passwords (as Matthias mentioned). For example you'd ask Google to generate one for your Racket program using SMTP. You can view all your per-application passwords, see when they were last used, and revoke them individually. I found it was actually much easier than I imagined, to set up and to use. https://support.google.com/accounts/bin/answer.py?hl=en&answer=180744 On Thu, May 9, 2013 at 1:03 PM, Kejia柯嘉 <w.ke...@gmail.com> wrote: > thanks a lot for your helps. the following is my code for archiving: > `` > #! /usr/local/bin/racket > > #lang racket > > (require net/dns) > (require net/head) > (require net/smtp) > (require openssl/mzssl) > > (smtp-send-message > (dns-get-address (dns-find-nameserver) "smtp.gmail.com") > "send...@gmail.com" > '("recipie...@hotmail.com") > (standard-message-header > "X Sender <send...@gmail.com>" > '("X Recipient <recipie...@hotmail.com>") > '() ; CC > '() ; BCC > "saying hello") > '("hello world!") > #:port-no 465 > #:auth-user "senderx" > #:auth-passwd "thesenderxpassword" > #:tcp-connect ssl-connect) > '' > > -------------- > daniel > > ☵☯☲ > > > > 2013/5/8 Matthias Felleisen <matth...@ccs.neu.edu>: >> >> 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") >> "matth...@ccs.neu.edu" >> to >> (standard-message-header "matth...@ccs.neu.edu" to '() >> '("matth...@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 <theu...@gmail.com>" >>> '("w2 <w...@hotmail.com>") >>> (standard-message-header >>> "w1 <theu...@gmail.com>" >>> '("w2 <w...@hotmail.com>") >>> '() ; CC >>> '() ; BCC >>> "Subject") >>> '("Hello World!") >>> #:port-no 587 >>> #:auth-user "theu...@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 ____________________ Racket Users list: http://lists.racket-lang.org/users
