请在下面找到我的代码片段,它用cc向某人和他的朋友发送邮件。在抄送列表中,我还有一个DL。
use MIME::Lite;
$to = 'ABC@DOMAIN1.com';
$from = 'MAILER@DOMAIN2.com';
$subject = 'How are you doing';
$message = 'This is test email sent by Perl Script';
my @cc=('XYZ@DOMAIN2.com','DL@DOMAIN2.com');
$msg = MIME::Lite->new(
From => $from,
To => $to,
Cc =>@cc,
Subject => $subject,
Data => $message
);
$msg->send('smtp','smtpserver', Timeout => 60 );
print "Email Sent Successfullyn";
问题是这个人和DL没有收到邮件。api MIME::Lite中是否有任何日志,我可以在其中检查错误(如果有的话),或者你认为问题可能是什么?
也许您需要仔细查看MIME::Lite的文档。这是大纲中的第一个例子。
use MIME::Lite;
### Create a new single-part message, to send a GIF file:
$msg = MIME::Lite->new(
From => 'me@myhost.com',
To => 'you@yourhost.com',
Cc => 'some@other.com, some@more.com',
Subject => 'Helloooooo, nurse!',
Type => 'image/gif',
Encoding => 'base64',
Path => 'hellonurse.gif'
);
$msg->send; # send via default
此处的Cc
参数以包含逗号分隔的电子邮件地址的文本字符串的形式发送。您正在传递对一组电子邮件地址的引用。