如何用Perl向Gmail发送带有附件的邮件？

如何使用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",
);

您可以使用撰写邮件，然后将其发送到本地sendmail进程。然而，为了与gmail的服务器通话，你需要。上面可能有更详细的说明。

用于与GMail对话

---

请参见上的示例。

如果您想向Gmail发送邮件，请执行与在任何地方发送邮件相同的操作。如果你想通过Gmail发送邮件，这里有一个模块。仅仅在谷歌上输入你的问题就让我找到了马克·桑伯恩。

到了Gmail，有了Gmail（也就是说，一旦我通过了Gmail的身份验证，然后用这个Gmail向其他帐户发送邮件），我就能够发送邮件而不需要附件。在下一篇评论中，我将上传脚本。my$mailer=Email:：Send->new（{mailer=>'SMTP:：TLS'，mailer_args=>[Host=>'SMTP.gmail.com'，Port=>587，User=>'hari）。sujith@gmail.com，密码=>'xxx'，]}）；使用电子邮件：：Simple：：Creator；#或其他电子邮件：：使用File：：Slurp@arrIrc=read_文件（$ircFile）；我的$email=email:：Simple->create（header=>[From=>'hari。sujith@gmail.com，To=>“$configList{email}”，Subject=>“日志文件$channelName的摘要”，]，body=>“@arrIrc”，）；你的意思是说，一旦手动设置了SSL证书，那么我就可以使用MIME:：Lite向gmail发送带有附件的邮件（前提是我提供了gmail帐户的用户名和密码）。对吗？SMTP是用于传输的。如果您有一封格式正确的邮件（Mime Lite可以帮助您），那么它会很高兴地发送您交给它的任何东西。不幸的是，Mark的文章使用的是Net:：SMTP:：TLS，它已严重损坏且未维护。例如，如果您尝试添加附件，它将复制并破坏您的附件。现在有了Net:：SMTP:：TLS:：ButMaintened，它可以工作，但会造成严重的命名空间污染。看见