缺少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

從ActiveState的倉庫與teacup安裝SMTP包 -

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