Question

我是perl的新手。我正在尝试使用Mime :: Lite。我看了他们的网站我尝试以这种方式发送邮件

#!/usr/bin/perl
use MIME::Lite;
$msg = MIME::Lite->new(
    From     =>'cassidy@hotmail.com',
    To       =>'ericafb77@gmail.com',
    Cc       =>'some@other.com, some@more.com',
    Subject  =>'Helloooooo, nurse!',
    Data     =>"AAA"
);
$msg->send;

但邮件没有来到我的邮件地址。我该怎么办？

Answer 1

什么平台？

在配置良好的Linux / UNIX机器上，这通常可以正常工作，但如果您使用的是Windows，则可能需要告诉它如何发送邮件。

以下应该可以解决问题：

#!/usr/bin/perl

use strict;
use warnings;

my $msg = MIME::Lite->new(
    From => 'me@example.com',
    To => 'you@example.com',
    Cc => 'her@example.com,him@example.com',
    Subject => 'Hello, World!',
    Data => 'Test.',
);
$msg->send(smtp => 'smtp.example.com');

其中smtp.example.com是您的互联网服务提供商要求您使用的SMTP服务器。

Answer 2

您是否使用wireshark等数据包嗅探器验证您的主机是否使用SMTP实际发送了电子邮件？如果没有，请执行此操作并在此处报告您的发现。

Perl Mime问题

2 个答案: