Perl脚本不发送电子邮件

时间:2014-11-21 21:15:04

标签: perl smtp mime

我正在尝试使用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";

2 个答案:

答案 0 :(得分:2)

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

答案 1 :(得分:0)

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

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

看看MIME::Lite sending section