perl - 如何使用 SMTP 和 Perl 向我的 Gmail 帐户发送电子邮件？

Question

我不想使用 sendmail 发送电子邮件，但更喜欢使用 SMTP。如何使用 Perl 向我的 GMAIL 帐户发送电子邮件？

Answer 1

我个人建议你使用我的模块 Email::Send::SMTP::TLS
它通过 Google Mail 的 TLS 运行良好。

谢谢。

use Email::Send;

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

use Email::Simple::Creator; # or other Email::
my $email = Email::Simple->create(
    header => [
        From    => 'username@gmail.com',
        To      => 'to@mail.com',
        Subject => 'Subject title',
    ],
    body => 'Content.',
);

eval { $mailer->send($email) };
die "Error sending email: $@" if $@;