Perlモジュールでメールを処理するためにoutlook.office365.comに接続できませんMail :: IMAPClient

Question

私は数日間は検索しましたが、最終的にオプションがなくなりました。クライアントの1人がメールアカウントを"outlook.office365.com "、私のperlスクリプトはすべてプラットフォーム上で異なる設定をしているので失敗するので、すべてのスクリプトを書き直して、すべての作業をやり直す必要がありました。モジュールで電子メールを送ることができました" Email： ：Sender :: Transport :: SMTP :: TLS "しかし、私は以前のモジュールを使って、同じメールアドレスを" Mail :: POP3Client "のように読んで処理しませんでした。

これは試してみるのコードです：

use Mail::IMAPClient; 
use Email::MIME; 

my $username = 'user'; 
my $password = 'pass'; 
my $server = 'outlook.office365.com'; 


print "Anon connect to IMAP\n"; 
my $imap = Mail::IMAPClient->new(
    Server => $server, 
    Username => $username, 
    Password => $password, 
    Port => 993, 
    Ssl => 1, 
    Authmechanism => "PLAIN", 
    Debug => 1, 
)or die "Cannot connect to $mailhost as $username: $@"; 

print "upgrading connection to TLS \n"; 
$imap->starttls 
(
    SSL_verify_mode => 0, 
) or die "starttls failed: $@\n"; 

$imap->User($username); 
$imap->Password($password); 

print "Logging In\n"; 
$imap->login() or die "imap login failed: $@\n"; 

これは私がstackoverflowの上で発見したソリューションですが、それは私のために働くdoes notの、私は私のファイアウォール設定を確認し、すべてがOKです。

これが出力されます。

Anon connect to IMAP 
Started at Fri Dec 16 13:54:25 2016 
Using Mail::IMAPClient version 3.38 on perl 5.022001 
Connecting with IO::Socket::SSL PeerAddr outlook.office365.com PeerPort 993 Proto tcp Timeout 600 Debug 1 
ERROR: Unable to connect to outlook.office365.com: at C:/Perl64/site/lib/Mail/IMAPClient.pm line 370. 
     Mail::IMAPClient::connect(Mail::IMAPClient=HASH(0xcac170)) called at C:/Perl64/site/lib/Mail/IMAPClient.pm line 314 
     Mail::IMAPClient::new("Mail::IMAPClient", "Server", "outlook.office365.com", "Username", "user", "Password", "pass", "Port", 993, ...) called at dont.pl line 10 
Cannot connect to as user: Unable to connect to outlook.office365.com: at dont.pl line 10. 

私のSSL接続を確認するには：

openssl s_client -connect outlook.office365.com:993 

結果：

* OK The Microsoft Exchange IMAP4 service is ready. 

ので、任意のアイデア？このコードで何が間違っているの？

Answer 1

EDIT：マックスのおかげで、ついに解決：startlsを削除するとログインステップに到達できます。私のマシン上で

use Mail::IMAPClient; 
use Email::MIME; 

my $username = 'user'; 
my $password = 'pass'; 
my $server = 'outlook.office365.com'; 


print "Anon connect to IMAP\n"; 
my $imap = Mail::IMAPClient->new(
    Server => $server, 
    Port => 993, 
    Ssl => 1, 
    Authmechanism => "PLAIN", 
    Debug => 1, 
)or die "Cannot connect to $mailhost as $username: $@"; 

$imap->User($username); 
$imap->Password($password); 

print "Logging In\n"; 
$imap->login() or die "imap login failed: $@\n"; 

は、これを出力します。私は、有効なアカウントを持っていないとして、通常で

Anon connect to IMAP 
Started at Fri Dec 16 16:59:31 2016 
Using Mail::IMAPClient version 3.38 on perl 5.022001 
Read: * OK The Microsoft Exchange IMAP4 service is ready. [RABCADYAUABSADAAMgAwADEAQwBBADAAMAAyADcALgBlAHUAcgBwAHIAZAAwADIALgBwAHIAbwBkAC4AbwB1AHQAbABvAG8AawAuAGMAbwBtAA==] 
upgrading connection to TLS 
Sending: 1 CAPABILITY 
Sent 14 bytes 
Read: * CAPABILITY IMAP4 IMAP4rev1 AUTH=PLAIN AUTH=XOAUTH2 SASL-IR UIDPLUS MOVE ID UNSELECT CHILDREN IDLE NAMESPACE LITERAL+ 
     1 OK CAPABILITY completed. 
Logging In 
Sending: 2 AUTHENTICATE PLAIN 
Sent 22 bytes 
Read: + 
Sending: [Redact: Count=2 Showcredentials=OFF] 
Sent 18 bytes 
Read: 2 NO AUTHENTICATE failed. 
ERROR: 2 NO AUTHENTICATE failed. at /usr/local/share/perl/5.22.1/Mail/IMAPClient.pm line 3261. 
     Mail::IMAPClient::authenticate(Mail::IMAPClient=HASH(0x14f6a30), "PLAIN", undef) called at /usr/local/share/perl/5.22.1/Mail/IMAPClient.pm line 562 
     Mail::IMAPClient::login(Mail::IMAPClient=HASH(0x14f6a30)) called at imapt.pl line 30 
imap login failed: 2 NO AUTHENTICATE failed. 

。