使用INDY - Delphi xe7向gmail发送电子邮件

Question

IdMessage1.Clear;
IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlersocketopenSSL.Create(nil);

IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method      := sslvTLSv1;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode        := sslmUnassigned;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyMode  := [];
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyDepth := 0;

IdSSLIOHandlerSocketOpenSSL1.Host :=  'smtp.gmail.com';
IdSSLIOHandlerSocketOpenSSL1.Port := 587;
IdSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
IdSMTP1.UseTLS := utUseExplicitTLS;
IdMessage1.Body.Append('h');
IdMessage1.From.Name := '******';
IdMessage1.From.Address :=  '****';
IdMessage1.Recipients.EMailAddresses :='*****';
IdMessage1.Subject := 'POWIADOMIENIE';
IdSMTP1.UserName := '*******';
IdSMTP1.Password  := '*******';
IdSMTP1.Host :='smtp.gmail.com';

IdSMTP1.Port := 587 ;

//IdSMTP1.AuthType := satDefault;
// IdSMTP1.Authenticate;
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;

//idSMTP1.Authenticate;
end;

您好，尝试使用INDY和Delphi XE7向gmail发送电子邮件。不幸的是，我收到了错误 ＆＃34; SSL在此服务器上不可用＆＃34; 来自Wireshark的屏幕