Tcl Library Source Code

Artifact 3ab1f5eb099451d208b79c66d0d6e8d57779754489309a26ac2ebdf8e8e1abbc:

Attachment "test.tcl" to ticket [e599462c22] added by anonymous 2019-10-05 08:09:40. (unpublished)

---

source smtp1.tcl
package require smtp 1.6
package require mime
package require tls
tls::init -tls 1

proc send_tls_smtp {recipient email_server subject body} {
     set token [mime::initialize -canonical text/plain -string $body]
     mime::setheader $token Subject $subject
     smtp::sendmessage $token\
 	-usetls 1 -tlsimport 0 -originator [email protected] -recipients $recipient -servers $email_server -ports 25\
	-debug 1
     mime::finalize $token 
}  
proc send_ssl_smtp {recipient email_server subject body} {
     set token [mime::initialize -canonical text/plain -string $body]
     mime::setheader $token Subject $subject
     smtp::sendmessage $token\
 	-usetls 0 -tlsimport 1 -originator [email protected] -recipients $recipient -servers $email_server -ports 465\
	-debug 1
     mime::finalize $token 
}


send_tls_smtp [email protected] alt1.gmail-smtp-in.l.google.com \
     "This is the subject." "This is the message."
send_ssl_smtp [email protected] smtp.gmail.com \
     "This is the subject." "This is the message."