私はこのコードを作成しました(GmailからGmailにメールを送信するため):
use MIME::Lite;
use Net::SMTP::SSL;
my $smtps = Net::SMTP::SSL->new ("www.gmail.com", Port=> 465);
$msg = MIME::Lite->new(
From =>'testeotest1234@gmail.com',
To =>'xxx',
# Cc =>'some@other.com, some@more.com',
Encoding => 'base64',
Subject =>'Helloooooo, nurse!',
Data =>"How's it goin', eh?"
);
MIME::Lite->send('smtp','smtp.gmail.com', Port=> 465, Debug=>1, Hello =>'www.gmail.com',AuthUser=>'testeotest1234', AuthPass=>'xxx');
$msg->send();
しかし、私はこのエラーを受け取ります:
Port=> 465MIME::Lite::SMTP>>> MIME::Lite::SMTP
MIME::Lite::SMTP>>> Net::SMTP(2.31)
MIME::Lite::SMTP>>> Net::Cmd(2.29)
MIME::Lite::SMTP>>> Exporter(5.65)
MIME::Lite::SMTP>>> IO::Socket::INET(1.31)
MIME::Lite::SMTP>>> IO::Socket(1.32)
MIME::Lite::SMTP>>> IO::Handle(1.31)
MIME::Lite::SMTP=GLOB(0x244c0d4)<<< 220 mx.google.com ESMTP kn18sm4777324veb.5 -
gsmtp
MIME::Lite::SMTP=GLOB(0x244c0d4)>>> EHLO www.gmail.com
MIME::Lite::SMTP=GLOB(0x244c0d4)<<< 250-mx.google.com at your service, [12.226.1
28.130]
MIME::Lite::SMTP=GLOB(0x244c0d4)<<< 250-SIZE 35882577
MIME::Lite::SMTP=GLOB(0x244c0d4)<<< 250-8BITMIME
MIME::Lite::SMTP=GLOB(0x244c0d4)<<< 250-STARTTLS
MIME::Lite::SMTP=GLOB(0x244c0d4)<<< 250-ENHANCEDSTATUSCODES
MIME::Lite::SMTP=GLOB(0x244c0d4)<<< 250 PIPELINING
SMTP auth() command not supported on smtp.gmail.com
mail :: sender:easyを使用してみました(インストールできません。試してみるとエラーが発生します)。SSL行を使用して以前に接続を作成しようとしました(Gmail接続の動作が原因ですが、役に立ちません)。