Perl 通过Gmail发送电子邮件
我的电子邮件发送代码无法正常工作,但没有任何错误消息(我说的“不工作”是指所有接缝都正常,但我的邮箱中没有任何消息):Perl 通过Gmail发送电子邮件,perl,email,gmail,ssl,Perl,Email,Gmail,Ssl,我的电子邮件发送代码无法正常工作,但没有任何错误消息(我说的“不工作”是指所有接缝都正常,但我的邮箱中没有任何消息): 你能给我一个提示吗?有一个可以让你的生活更轻松的方法。不相关但过去时的“find”是“find”而不是“find”。谢谢。我会努力学习我的英语。谢谢你给我指这个模块!现在我在我的代码中使用它,但问题仍然在我脑海中:为什么这个代码不起作用? use strict; use warnings; use Email::Send; use Email::Simple::Creator;
你能给我一个提示吗?有一个可以让你的生活更轻松的方法。不相关但过去时的“find”是“find”而不是“find”。谢谢。我会努力学习我的英语。谢谢你给我指这个模块!现在我在我的代码中使用它,但问题仍然在我脑海中:为什么这个代码不起作用?
use strict;
use warnings;
use Email::Send;
use Email::Simple::Creator;
report_update();
sub report_update {
my $mailer = Email::Send->new(
{
mailer => 'SMTP::TLS',
mailer_args => [
Host => 'smtp.gmail.com',
Port => 587,
User => $CONFIG{EMAIL_USER},
Password => $CONFIG{EMAIL_PASS},
Hello => 'localhost',
]
}
);
my $email = Email::Simple->create(
header => [
From => $CONFIG{EMAIL_USER},
To => $CONFIG{TARGET_EMAIL},
Subject => 'Updated info finded!',
],
body => 'Updated info finded!',
);
eval { $mailer->send($email) };
die "Error sending email: $@" if $@;
print "Finished!\n";
}