使用MIME :: Lite發送電子郵件Perl

Question

我只是嘗試使用Perl和MIME :: Lite發送基本電子郵件，並且收到以下錯誤：SMTP mail（）命令失敗：5.1.7無效的adderess這是我的代碼：

#!perl

use MIME::Lite;

#Create Mail
$msg = MIME::Lite->new(
From =>'someone@someplace.com',
To =>'someone@someplace.com',
Cc =>'some@other.com',
Subject =>'Subject Test',
Data =>"Data Test"
);

#Send Mail
$msg->send( "smtp", "mail.place.com" );

謝謝。

我最終解決了它：

sub EMailReport
{
    use MIME::Lite;

    my $theSubject = "Sub";

    my $theData = "Data";

    my $theEmail = MIME::Lite->new(
    From     =>'From@someplace.somewhere.com',
    To       =>'fistname.lastname@company.com',
    Subject  =>$theSubject,
    Data     =>$theData
    );

    $theEmail->add( "Type" => "multipart/mixed" );

    $theEmail->send( "smtp", "somemail.company.com" );
}

Answer 1

您需要傳遞給send（）我認為的smtp參數 。