[英]perl Email::MIME not working intermittent
以下代码有时会起作用,有时则不起作用。 它在linux上运行,安装了postfix,我禁用它并停止了服务。 这需要postfix运行吗?
当我在终端中运行此测试代码时,我得到没有错误, 没有电子邮件。
#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
use Email::MIME;
use Email::Sender::Simple qw(sendmail);
my $sub='test';
my $exitCode=0;
my $emailTo='raxxxx@xxxx.com';
my $bcc='';
if ($exitCode == 0){$exitCode = '';}
my @mesgBody = ("test\n","email\n");
my $message = Email::MIME->create(
header_str => [
From => '"Rajeev" <'.$emailTo.'>',
To => $emailTo,
Subject => $sub,
],
attributes => {
'X-Priority' => 1,
'X-MSMail-Priority' => 'High',
encoding => 'quoted-printable',
charset => 'ISO-8859-1',
},
body_str => "@mesgBody"."\n".$exitCode, #old body_str => $sub."\n".$mesg."\n".$exitCode,
);
#sendmail($message);
if ($bcc eq ''){
my $result=sendmail(
$message,
{
from => '"Rajeev" <'.$emailTo.'>',
to => [$emailTo],
}
);
print "result=".Dumper($result)."\n";
} else {
sendmail(
$message,
{
from => '"Rajeev" <'.$emailTo.'>',
to => [$emailTo, $bcc],
}
);
}
输出: - > result = $ VAR1 = bless({},'Email :: Sender :: Success');
所以,如果这是成功的,为什么我没有收到任何电子邮件?
我在系统日志中也看不到任何内容 。
谢谢。
# service postfix start
解决了这个问题。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.