如何使用 Tcl 的 sendmail

Question

如何使用 Tcl 中的 sendmail 将邮件发送给“收件人”和“抄送”中的多个收件人？

Answer 1

您可以使用 smtp 包，例如：SMTP 包 docu 或 维基。

我认为你可以这样做：

  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

Answer 2

如果您想实际使用 sendmail，请将消息构建为字符串并使用 exec << 选项将其传递给 sendmail 的标准输入：

set msg {From: someone}
append msg \n "To: " [join $recipient_list ,]
append msg \n "Cc: " [join $cc_list ,]
append msg \n "Subject: $subject"
append msg \n\n $body

exec /usr/lib/sendmail -oi -t << $msg

Answer 3

这也将起作用：

echo "Subject: test" | /usr/lib/sendmail -v [email protected]