开发者

Send an Email Perl Using MIME::Lite

I am just trying to send a basic email using Perl and MIME::Lite and I am receiving the following error: SMTP mail() command failed: 5.1.7 Invalid adderess Here is my code:

#!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" );

Thanks.

I ended up solving it:

sub EMailReport
{
    use MIME::Lite;

    my $theSubject = "Sub";

    my $theData = "Data";

    my $theEmail = MIME::Lite->new(
    From     =>'From@someplace.somewhere.com',
    To       =>'fistname.la开发者_如何学运维stname@company.com',
    Subject  =>$theSubject,
    Data     =>$theData
    );

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

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


You need to pass to send() the smtp arguments I think.

0

上一篇:

下一篇:

精彩评论

暂无评论...
验证码 换一张
取 消

最新问答

问答排行榜