☰

当我尝试使用 Perl (MIME::Lite) 发送电子邮件时，我没有收到电子邮件

tag-icon • tag-icon perl sendmail uptime
当我尝试使用 Perl (MIME::Lite) 发送电子邮件时，我没有收到电子邮件 
#!/usr/bin/perl
use MIME::Lite;
my $to = '[email protected]';
my $from = '[email protected]';
my $subject = "Eventful";
my $message = " Hi  - Test email";
$msg = MIME::Lite->new(
             From     => $from,
             To       => $to,
             Subject  => $subject,
             Data     => $message
             );

$msg->attr('content-type' => 'text/html');
$msg->send;

我使用上述脚本通过 Perl 发送电子邮件，但有时我收不到邮件。当我检查邮件日志时，我收到了以下消息 -

 Mar 27 08:16:02 EQ-BIRDSERVER sendmail[14361]: v2RFG24m014361: to=root,     delay=00:00:00, mailer=relay, pri=30444, stat=queued
 Mar 27 08:16:15 EQ-BIRDSERVER sendmail[4168]: rejecting connections on    daemon MTA: load average: 68

有没有办法即使在机器负载很重的情况下也能发送电子邮件？

答案1

有没有办法即使在机器负载很重的情况下也能发送电子邮件？

这不是您能通过 Perl 脚本修复的问题。高负载下 sendmail 的行为取决于 sendmail 的配置，这意味着您要么需要修复此问题，要么必须确保机器上没有高负载。

或者，你可以尝试一下上述发送邮件的各种变体在文档中看看是否可以帮助解决负载限制问题。

相关内容