# + wczesniej wykonac ". e_tls" i zaladowac pakiet "tls"
# + ten przyklad wysyla mail prosty
# tekst moze zawierac dowolne znaki unicode
# + czy dziala z smtp.amu.edu.pl ? odp: TAK
# From: musi byc prawdziwe
# To: i From: musza byc podane w sendmessage, a nie w mime... ?!?!?!
# cos nie tak z nr portu (inny niz w seamonkey/mail)... ?!?!!?!?
#
# ...
lappend auto_path ~/tcl; package re tls
#% 1.50
tls::version
#% OpenSSL 0.9.7c 30 Sep 2003
#tls::init -tls1 1
# + czy to pomoze z nr portu !?!?! odp: nie!
package re mime
#% 1.5.4
package re smtp
#% 1.4.5
set m1 [mime::initialize -canonical text/plain \
-encoding 8bit -param {charset UTF-8} \
-string [encoding convertto utf-8 \
{111111 A ku ku !!! ³³³ ¶¶¶ ¦¦¦
2 A ku ku !!!
3 A ku ku !!!
4 A ku ku !!!}]]
#mime::setheader $m1 To "mhanckow@amu.edu.pl";
#mime::setheader $m1 From "mhanckow@amu.edu.pl";
#mime::setheader $m1 Subject "qqq1"
# + To i From nie dzialaja w tym miejscu, Subject mozna podac!
mime::getproperty $m1
#% params {charset UTF-8} size 81 encoding 8bit content text/plain
# + przed wyslaniem przetestowac przez mime::buildmessage
mime::buildmessage $m1
#% MIME-Version: 1.0
Content-ID: <21387.1429975359.1@localhost>
Content-Type: text/plain;
charset="UTF-8"
Content-Transfer-Encoding: 8bit
111111 A ku ku !!! ??? ??? ???
2 A ku ku !!!
3 A ku ku !!!
4 A ku ku !!!
set pass ???
smtp::sendmessage $m1 -servers {smtp.amu.edu.pl} -ports {587} \
-username mhanckow -password $pass \
-header {From "mhanckow@amu.edu.pl";} \
-header {To "mhanckow@amu.edu.pl";} \
-header {Subject "qqq5"}
# + zamiast -header mozna uzyc -recipients i -originator
# + Subject moze byc dolaczony bezp. do mime
# + dlaczego nr portu= 465 nie dziala, choc w seamonkey/mail dziala !?!?!
mime::finalize $m1
exit