缺少 TCL 包 smtp

Question

我正在使用我认为应该在默认安装中包含 smtp 的 activestate TCL。

但是，当我运行以下示例时（来自文档）：

proc send_simple_message {recipient email_server subject body} {
    package require smtp
    package require mime
    set token [mime::initialize -canonical text/plain \\
    -string $body]
    mime::setheader $token Subject $subject
    smtp::sendmessage $token \\
    -recipients $recipient -servers $email_server
    mime::finalize $token
}
send_simple_message someone@somewhere.com localhost \\
    "This is the subject." "This is the message."

我收到以下错误：

can't find package smtp

我需要做些什么来启用 Activestate TCL 中的包吗？

Answer 1

使用 teacup 从 ActiveState 存储库安装 smtp 包 -

c:\> teacup install smtp
Resolving smtp ...   (etc)