Question

我正在尝试使用Perl发送我的第一封电子邮件（来自Windows机器），但我收到错误：

SMTP Failed to connect to mail server: at emailer2.pl line 18 (msg->send;)

我对Perl完全陌生，所以任何帮助都将不胜感激。以前有人遇到过这个问题吗？我已经搜索了错误，但我没有找到确切的问题。

非常感谢你的帮助！

CODE：

#!/usr/bin/perl
use MIME::Lite;

$to = 'myemail@gmail.com';
$cc = 'myemail@gmail.com';
$from = 'myemail@gmail.com';
$subject = 'Test Email';
$message = 'This is test email sent by Perl Script';

$msg = MIME::Lite->new(
                 From     => $from,
                 To       => $to,
                 Cc       => $cc,
                 Subject  => $subject,
                 Data     => $message
                 );

$msg->send;
print "Email Sent Successfully\n";

Answer 1

这表示您的计算机上没有运行邮件服务器。您需要安装一个并确保它正在运行。

Answer 2

您还可以在发送消息之前使用其他邮件服务器设置默认参数

MIME::Lite->send('smtp', "smpt.example.org", Timeout=>60, SSL=>1,
                 AuthUser=>"myself", AuthPass=>"mysecret");

看看MIME::Lite sending section。

Perl脚本不发送电子邮件

2 个答案: