smtp for gmail

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"