Question

我的问题是：为什么gmail会给我这个错误：

不接受用户名和密码。了解更多信息 http://support.google.com/mail/bin/answer.py?answer=14257 lp8sm18275694wic.17 - gsmtp

我尝试了所有方法，一大堆选项：SSL，TSL，SASL，但仍然没有。在某个地方我发现google要求在Indy中完成一些OAUTH2 SASL方法。

当然在Delphi 6和Indy 9上使用ssl在端口465上使用适当的eay dll可以正常工作。任何人都知道如何处理它？</ p>

当然我安装了http://slproweb.com/products/Win32OpenSSL.html我有人问过......

这是代码：

procedure send(Recipientemail, AccountName, Pass, EmailSMTP,EmailPortNo :string);
var
  lTextPart: TIdText;
  lImagePart: TIdAttachmentfile;
  IdSMTP1: TIdSMTP;
  IdMsg: TIdMessage;
  SSLHandler:TIdSSLIOHandlerSocketOpenSSL;
  IdUserPassProv1: TIdUserPassProvider;

  IdSASLLogin1: TIdSASLLogin;
  IdSASLCRAMMD5: TIdSASLCRAMMD5;
  IdSASLCRAMSHA1: TIdSASLCRAMSHA1;
  IdSASLPlain: TIdSASLPlain;
  IdSASLLogin: TIdSASLLogin;
  IdSASLSKey: TIdSASLSKey;
  IdSASLOTP: TIdSASLOTP;
  IdSASLAnonymous: TIdSASLAnonymous;
  IdSASLExternal: TIdSASLExternal;
begin

  IdSMTP1:=TIdSMTP.Create(nil);
  IdMsg:=TIdMessage.Create(nil);
  IdSMTP1.Host:=EmailSMTP;
  IdSMTP1.Port:=EmailPortNo;
  //IdSMTP1.Username:=trim(AccountName);//tried with or without
  //IdSMTP1.Password:=trim(Pass);//tried with or without



    TIdSSLContext.Create.Free;
    SSLHandler:=TIdSSLIOHandlerSocketOpenSSL.Create(IdSMTP1);
    SSLHandler.SSLOptions.Method := sslvSSLv3;
    SSLHandler.SSLOptions.Mode := sslmClient;
    IdSMTP1.IOHandler := SSLHandler;

    if (IdSMTP1.port = 465) then
        IdSMTP1.UseTLS := utUseImplicitTLS
      else
        IdSMTP1.UseTLS := utUseExplicitTLS;

    IdSASLLogin1:=TIdSASLLogin.Create(IdSMTP1);
    IdUserPassProv1:=TIdUserPassProvider.Create(IdSMTP1);
    IdUserPassProv1.Password:=trim(EmailHasloKonta);
    IdUserPassProv1.Username:=trim(EmailNazwaKonta);

    IdSMTP1.AuthType:=satSASL;

    IdSASLCRAMSHA1 := TIdSASLCRAMSHA1.Create(idSMTP1);
    IdSASLCRAMSHA1.UserPassProvider := IdUserPassProv1;
    IdSASLCRAMMD5 := TIdSASLCRAMMD5.Create(idSMTP1);
    IdSASLCRAMMD5.UserPassProvider := IdUserPassProv1;
    IdSASLSKey := TIdSASLSKey.Create(idSMTP1);
    IdSASLSKey.UserPassProvider := IdUserPassProv1;
    IdSASLOTP := TIdSASLOTP.Create(idSMTP1);
    IdSASLOTP.UserPassProvider := IdUserPassProv1;
    IdSASLAnonymous := TIdSASLAnonymous.Create(idSMTP1);
    IdSASLExternal := TIdSASLExternal.Create(idSMTP1);
    IdSASLLogin := TIdSASLLogin.Create(idSMTP1);
    IdSASLLogin1.UserPassProvider:=IdUserPassProv1;
    IdSASLPlain := TIdSASLPlain.Create(idSMTP1);
    IdSASLPlain.UserPassProvider := IdUserPassProv1;

    IdSMTP1.SASLMechanisms.Add.SASL := IdSASLCRAMSHA1;
    IdSMTP1.SASLMechanisms.Add.SASL := IdSASLCRAMMD5;
    IdSMTP1.SASLMechanisms.Add.SASL := IdSASLSKey;
    IdSMTP1.SASLMechanisms.Add.SASL := IdSASLOTP;
    IdSMTP1.SASLMechanisms.Add.SASL := IdSASLAnonymous;
    IdSMTP1.SASLMechanisms.Add.SASL := IdSASLExternal;
    IdSMTP1.SASLMechanisms.Add.SASL := IdSASLLogin1;
    IdSMTP1.SASLMechanisms.Add.SASL := IdSASLPlain;

  IdMsg.CharSet:=CmbEncod.Text;
  IdMsg.From.Address:=EmailAdresNadawcy;
  IdMsg.From.Name:=ToISO_8859_2(true, EmailNadawca);

  IdMsg.Recipients.Add.Address:=email;
  if EmailDoWiad<>'' then IdMsg.BccList.Add.Address:=EmailDoWiad;

  IdMsg.ContentType:='multipart/relative';//; charset='+CmbEncod.Text;
  IdMsg.Subject:=ifthen(TytulEmaila='',translate('Potwierdzenie rezerwacji'),TytulEmaila);
  IdMsg.Body.Clear;
  IdMsg.Body.Text:='';

  lTextPart := TIdText.Create(IdMsg.MessageParts);
  lTextPart.Body.text:='Some body text';
  lTextPart.ContentType := 'text/plain';

  try
     IdSMTP1.Connect;     
     //IdSMTP1.Authenticate; //tried with or without

     try

      try
      IdSMTP1.Send(IdMsg);
      except
        on e: exception do
         MessageDlg('Sending error:'#13+
                  e.message,
                  mtinformation,[mbok],0);
      end;
     finally
        IdSMTP1.Disconnect;
     end;
   finally
     IdSMTP1.Disconnect;
     IdUserPassProv1.free;
     IdSASLLogin1.free;
     IdSASLCRAMMD5.free;
     IdSASLCRAMSHA1.free;
     IdSASLPlain.free;
     IdSASLLogin.free;
     IdSASLSKey.free;
     IdSASLOTP.free;
     IdSASLAnonymous.free;
     IdSASLExternal.free;
     lTextPart.Free;
     lImagePart.Free;
     SSLHandler.free;
     IdSMTP1.Free;
     IdMsg.Free;
     SSLHandler.Free;
   end;
end;

Answer 1

使用最新的Indy版本（10.6.1），我可以使用带有SSL（端口465上为TIdSMTP）和TLS（{{1}的Indy SASL组件成功连接并验证UseTLS=utUseImplicitTLS到Gmail在端口587上使用与您显示的代码类似的代码。尽管人们普遍认为，OAUTH2还不是。

您获得人类可读的身份验证错误这一事实意味着SSL / TLS部分工作正常，因此这严格来说是SASL问题。

如果您的Gmail帐户使用两步验证，请确保您在Gmail帐户设置中创建了应用程序密码，则无法使用主Gmail密码。有关详细信息，请阅读Gmail文档：

Application-specific password required

Sign in using App Passwords

话虽如此，我建议你对你所展示的代码做出的唯一改变是：

设置UseTLS=utUseExplicitTLS属性可能会更改UseTLS属性值，因此您应首先设置Port，然后将UseTLS设置为所需的值：
```
Port
```
你不需要创建和销毁if (EmailPortNo = 465) then IdSMTP1.UseTLS := utUseImplicitTLS else IdSMTP1.UseTLS := utUseExplicitTLS; IdSMTP1.Port := EmailPortNo;对象，所以摆脱它。手动创建TIdSSLContext的唯一原因是它可以调用TIdSSLContext函数，这是公共的，因此您可以在需要时直接调用它（在这种情况下您根本不需要）。
IdSSLOpenSSL.LoadOpenSSLLibrary()不是有效的ContentType。你的意思是multipart/relative吗？您的multipart/related不包含多个部分，因此您不应该首先使用TIdMessage ContentType。
您拨打multipart的大部分内容都是多余的，因为您已将Free()指定为除TIdSMTP以外的所有内容的所有者。您无需手动释放SASL组件，您可以让TIdMessage为您执行此操作。
您正在拨打TIdSMTP两次。你不需要那样。

Answer 2

以下是解决方案：

在所有尝试之后似乎我有两个dll libeay.dll和ssleay.dll的错误版本。

Delphi XE2 Indy 10.5.92 GMail SMTP错误“用户名和密码不被接受”

2 个答案: