## proste wysylanie maila
# + 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