Posted to tcl by nscerqueira at Fri May 20 14:12:00 GMT 2016view raw

  1. package require mime
  2. package require smtp
  3. package require tls
  4.  
  5.  
  6. # tls::init -tls1 true -ssl2 false -ssl3 false
  7.  
  8. proc send_email {from to subject body} {
  9.  
  10. set opts {}
  11. lappend opts -servers smtp.gmail.com
  12. lappend opts -ports [list 587]
  13. lappend opts -debug 1
  14. lappend opts -username zzzz@gmail.com
  15. lappend opts -password zzzz
  16. lappend opts -header [list "Subject" $subject]
  17. lappend opts -header [list "From" $from]
  18. lappend opts -header [list "To" $to]
  19.  
  20. set mime_msg [mime::initialize -canonical "text/plain" -encoding "7bit" -string $body]
  21. smtp::sendmessage $mime_msg {*}$opts -queue false -atleastone false -usetls true
  22. mime::finalize $mime_msg
  23. }
  24. puts "in"
  25.  
  26. send_email "zzzz@gmail.com" "zzzz@gmail.com" \
  27. "Test" {
  28. This is my mail message.
  29. }
  30.  
  31. puts "out"