thank you very much for the guide, Greg :-) ☵☯☲
2013/5/9 Greg Hendershott <greghendersh...@gmail.com>: > 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
