如何使用Tcl的sendmail

Question

如何使用Tcl中的sendmail向To和Cc中的多个收件人发送邮件？

Answer 1

您可以使用smtp包,例如:SMTP package docu或Wiki.

我想你可以这样做:

  package require smtp
  package require mime

  set token [mime::initialize -canonical text/plain -string $body]
  smtp::sendmessage $token \
          -header [list Subject $subject] \
          -header [list To [join $recipient_list ","]] \
          -header [list Cc [join $cc_list ","]]
  mime::finalize $token