Posted to tcl by nscerqueira at Fri May 20 14:12:00 GMT 2016view raw
- package require mime
- package require smtp
- package require tls
- # tls::init -tls1 true -ssl2 false -ssl3 false
- proc send_email {from to subject body} {
- set opts {}
- lappend opts -servers smtp.gmail.com
- lappend opts -ports [list 587]
- lappend opts -debug 1
- lappend opts -username zzzz@gmail.com
- lappend opts -password zzzz
- lappend opts -header [list "Subject" $subject]
- lappend opts -header [list "From" $from]
- lappend opts -header [list "To" $to]
- set mime_msg [mime::initialize -canonical "text/plain" -encoding "7bit" -string $body]
- smtp::sendmessage $mime_msg {*}$opts -queue false -atleastone false -usetls true
- mime::finalize $mime_msg
- }
- puts "in"
- send_email "zzzz@gmail.com" "zzzz@gmail.com" \
- "Test" {
- This is my mail message.
- }
- puts "out"