Tcl/Tk 使用 smtp 和 mime 发送电子邮件，附件未显示附件名

如何解决Tcl/Tk 使用 smtp 和 mime 发送电子邮件，附件未显示附件名

我可以发送带有 smtp 的电子邮件和带有附件的 mime，但是当我阅读电子邮件时，附件没有名称。

我的代码如下：

set messageT [mime::initialize -canonical text/plain      -string $TEXT]

set pdfT     [mime::initialize -canonical application/pdf -file $PDFATT]

set tok [mime::initialize -canonical multipart/mixed -parts [list $pdfT $messageT]]

smtp::sendmessage $tok -servers [list $gVar(smtp,SERVER)] -ports [list $gVar(smtp,PORT)] -usetls 1 -username $gVar(smtp,USERNAME) -password $gVar(smtp,PASSWORD) -header [list From "$FROM"] -header [list To "$TO"] -header [list Subject "$SUBJECT"] -header [list Date "[clock format [clock seconds]]"]    

mime::finalize $tok -subordinates all

任何帮助将不胜感激。

非常感谢...