1package require mime 2package require smtp 3 4set sndr "tcl-test-script@localhost" 5set rcpt "tcllib-test@localhost" 6set msg "This is a sample message send from Tcl.\nAs\ 7always, let us check the transparency function:\n. <-- there\ 8should be a dot there.\nBye" 9 10set tok [mime::initialize -canonical text/plain -encoding 7bit -string $msg] 11mime::setheader $tok Subject "Testing from Tcl" 12smtp::sendmessage $tok -servers localhost \ 13 -header [list To $rcpt] \ 14 -header [list From $sndr] 15 16