尝试通过邮件发送某些附件时，smtp :: sendmessage给出“ 400：服务器的文件过早终止”

如何解决尝试通过邮件发送某些附件时，smtp :: sendmessage给出“ 400：服务器的文件过早终止”

有时，我们的TCL应用程序有时无法发送包含附件的电子邮件。我有3个示例文件，可以用（PDF，DOCX和PPTX）来始终如一地重现此问题。我整理了以下测试案例以在TCL Shell中重现此问题（在Windows 2012上，我没有尝试过其他操作系统）。 PDF文件can be downloaded here。

要重现此问题，请下载上述PDF文件并将其保存在本地驱动器中，例如“ c：/ tmp / Raptor 1NT.pdf”。将以下代码保存到本地临时目录中的新TCL文件中，例如c：/tmp/mail-fail.tcl。编辑代码以将filename变量更改为保存PDF的位置。您还应该适当地更改smtpHost和smtpport。在TCL Shell源中运行该脚本的脚本，例如source c:/tmp/mail-fail.tcl（注意，我刚刚更新了测试案例，以使用mime 1.6和smtp 1.4.5）。

package require mime 1.6
package require smtp 1.4.5
#package require mime 1.4
#package require smtp 1.4

proc mail_test { } {

    set filename "c:/tmp/Raptor 1NT.pdf" ;#change this to wherever you saved the file    
    set smtpHost 192.168.1.7 ;#change these to your smtp host and port
    set smtpport 25

    puts "Start\n"
    set from_addr "[e-mail]"
    set originator "[e-mail]"
    set reply_to $from_addr
    set to_addr $from_addr
    set mime_type "application/pdf"
    set title "Raptor PDF"
    set name "=Raptor 1NT.pdf"


    set tokens [mime::initialize \
        -param [list name  $title] \
        -header [list "Content-Disposition" "attachment; filename=\"$name\""] \
        -header [list Content-Description $title] \
        -canonical $mime_type \
        -file "$filename"]

    set tokens [mime::initialize -canonical "multipart/mixed" -parts $tokens]

    set message_id [mime::uniqueID]
    mime::setheader $tokens "message-id" $message_id

    set clock [clock seconds]
    set date [clock format $clock -format "%Y-%m-%d %H:%M:%S"]
    set message_date [mime::parsedatetime $date proper]        
    mime::setheader $tokens date $message_date

    set encoded_subject "=?UTF-8?Q?My_test_mail?="
    mime::setheader $tokens Subject $encoded_subject

    set headers_list [list [list From $from_addr]  [list Reply-To $reply_to]  [list To [join $to_addr ","]]]
    set cmd [list smtp::sendmessage $tokens -originator $originator]
    foreach header $headers_list {
        lappend cmd -header $header
    }
    lappend cmd -servers $smtpHost -ports $smtpport
    puts "cmd=$cmd \n"

    if {[catch $cmd errorMsg]} {
        puts "\n$errorMsg \n" 
    } else {
        puts "Mail successfully sent \n" 
    }

    puts "\nThe end." 
}

mail_test

运行此脚本时得到的输出是：

cmd=smtp::sendmessage ::mime::27 -originator [e-mail] -header {From [e-mail]} -header {Reply-To [e-mail]} -header {To [e-mail]} -servers 192.168.1.7 -ports 25

400: premature end-of-file from server

现在，此应用程序已经成功地发送了数千封带有附件的电子邮件，但是我发现的这几个示例都没有发送。

任何建议如何进行？

解决方法

万一其他人来这里想知道解决方案是什么，这里的问题就是防火墙规则阻止了附件。经验教训-遇到邮件问题时检查日志！