perl - 如何在 Perl 中将带有附件的邮件发送到 Gmail？

Question

如何使用 Perl 将邮件发送到 Gmail？这是我正在尝试的：

my $mailer = Email::Send->new(
    {
        mailer      => 'SMTP::TLS',
        mailer_args => [
            Host     => 'smtp.gmail.com',
            Port     => 587,
            User     => 'xxx',
            Password => 'xxx',
        ]
    }
);

use Email::Simple::Creator;    # or other Email::

use File::Slurp;
@arrIrc = read_file("$ircFile");
my $email = Email::Simple->create(
    header => [
        From    => 'xxx',
        To      => "$configList{email}",
        Subject => "The summary of logfile $channelName",
    ],
    body => "@arrIrc",
);

Answer 1

使用Net::SMTP::SSL与 GMail 对话。

有关示例，请参阅Perlmonks上的MIME::Lite 内联图像。

Answer 2

如果您想向 Gmail 发送邮件，您可以执行与在任何地方发送邮件相同的操作。如果您想通过 Gmail 发送邮件，可以使用Email::Send::Gmail模块。只需在 Google 中输入您的问题，我就可以通过 Mark Sanborn使用 Perl 通过 Gmail 发送邮件。

Answer 3

您可以使用MIME::Lite撰写邮件，然后将其发送到本地 sendmail 进程。但是，为了与 gmail 的服务器通信，您需要设置 SSL 证书。在superuser上可能有更详细的说明。