（Perl的淨:: SMTP）使用Gmail的SMTP服務器

Question

我寫了一個perl腳本使用Gmail的SMTP服務器發送電子郵件驗證失敗：smtp.gmail.com -

use Net::SMTP; 

my $smtp = Net::SMTP->new('smtp.gmail.com', 
        Port=> 587, 
        Timeout => 20, 
        Hello=>'user@gmail.com' 
        ); 
print $smtp->domain,"\n"; 
$sender = "user@gmail.com"; 
$password = "mypassword"; 
$smtp->auth ($sender, $password) or die "could not authenticate\n"; 
$receiver = "user@gmail.com"; 

$subject = "my custom subject"; 
$smtp->mail($sender); 
$smtp->to($receiver); 
$smtp->data(); 
$smtp->datasend("To: <$reciever> \n"); 
$smtp->datasend("From: <$sender> \n"); 
$smtp->datasend("Content-Type: text/html \n"); 
$smtp->datasend("Subject: $subject"); 
$smtp->datasend("\n"); 
$smtp->datasend('the body of the email'); 
$smtp->dataend(); 
$smtp->quit(); 
print "done\n\n"; 

對於 '用戶'，我有我的Gmail用戶名和'mypassword'我有密碼。但是當我運行這段代碼時，它停止在auth本身給出：無法進行身份驗證。

我能夠連接到谷歌的smtp serever，因爲我得到：'mx.google.com'作爲結果：
print $ smtp-> domain，「\ n」;

這是什麼，我做錯了？請幫忙。

Answer 1

use Net::SMTP; 
my $smtp = Net::SMTP->new .... 

據我所知，您需要使用加密連接通過Gmail來發送，使用的Net :: SMTP :: TLS或的Net :: SMTP :: SSL（與端口465）

Hello=>'user@gmail.com' 

「你好」不是一個電子郵件地址，把你的主機名，而不是有

$sender = "user@gmail.com"; 
... 
$receiver = "user@gmail.com"; 

把這些單引號中

如果您仍然「無法驗證」。確保你已經安裝了模塊MIME :: Base64和Authen :: SASL。

$smtp->datasend("To: <$reciever> \n"); 

應該$接收機，不$ reciever

Answer 2

Gmail使用TLS/STARTTLS on port 587, SSL on port 465。請按照Sending email through Google SMTP from Perl。或者，您可以使用Email::Send::SMTP::Gmail。我推薦這個，因爲它更容易使用並且有更多的功能。