354結束數據有 <CR><LF> 。 <CR><LF> Perl使用Net :: SMTP：

Question

我正在寫一個用於發送電子郵件和附加zip文件的perl腳本，但是有錯誤

下面是運行代碼時的錯誤：

        Net::SMTP::SSL=GLOB(0x1b79e68)>>> RCPT TO:<ttranquang@tiaxa.as>
        Net::SMTP::SSL=GLOB(0x1b79e68)<<< 250 2.1.5 Ok
        Net::SMTP::SSL=GLOB(0x1b79e68)>>> DATA
        Net::SMTP::SSL=GLOB(0x1b79e68)<<< 354 End data with <CR><LF>.<CR><LF>

======

$msg = MIME::Lite->new(
        To =>'ttranquang@tiaxa.as',
        Subject =>'VTT:Daily Report ['.$TimeDate.']',
        Type    => 'multipart/mixed'
    );
    ### Create a part:
    $part = MIME::Lite->new(
        Top      => 0,
        Type     =>'text/html',
        Data     =>'<H1>Daily Report</H1>',
    );
    $part->attr('content-type.charset' => 'UTF-8');

    $part->add('X-Comment' => 'A report for you');
    $msg->attach($part);
          $msg->attach(
                        Type     => 'application/zip',
                        Path     => '/home/appaxa/scripts/rommel/send_report',
                        Filename => 'dailyreport.zip',
                        Dispostion => 'attachment'
                    );
    $msg->send();

my $smtp;
$smtp = Net::SMTP::SSL->new($host, Port=>465, Debug   => 1,
                           SSL     => 0,) or die "Can't connect";
$smtp->auth($user, $pass)                 or die "Can't authenticate:".$smtp->message();
$smtp->mail('xtime@tel.co')       or die "Error:".$smtp->message();
$smtp->to('ttranquang@tiaxa.as') or die "Error:".$smtp->message();

$smtp->data()                    or die "Error:".$smtp->message();
$smtp->datasend($msg) or die "Error:".$smtp->message();
$smtp->dataend()                 or die "Error:".$smtp->message();
$smtp->quit()                    or die "Error:".$smtp->message()

這是什么問題？ 謝謝大家

Answer 1

 $smtp->datasend($msg) or die "Error:".$smtp->message(); 

$msg是MIME :: Lite對象，而不是字符串。 您想要的是一個字符串，即$msg->as_string 。

除此之外，您$msg->send更早地調用$msg->send ，這意味着它已經嘗試通過默認傳輸方式發送郵件。 除非您想發送兩次消息，否則這實際上沒有任何意義。