mail-test.tcl
Go to the documentation of this file.00001 package require mime
00002 package require smtp
00003
00004 sndr = "tcl-test-script@localhost"
00005 rcpt = "tcllib-test@localhost"
00006 msg = "This is a sample message send from Tcl.\nAs\
00007 always, let us check the transparency function:\n. <-- there\
00008 should be a dot there.\nBye"
00009
00010 tok = [mime::initialize -canonical text/plain -encoding 7bit -string $msg]
00011 mime::header = $tok Subject "Testing from Tcl"
00012 smtp::sendmessage $tok -servers localhost \
00013 -header [list To $rcpt] \
00014 -header [list From $sndr]
00015
00016
