通过Gmail发送电子邮件，并使用应用程序特定密码发送电子邮件

Question

我维护和开发一个程序（除其他方面）通过Gmail发送电子邮件。

到目前为止，发送电子邮件的发送还没有问题，但是几天前，这种功能停止使用消息“不良凭据”。我仔细研究了Gmail的帮助，发现了这种解释/警告/什么是您：

从2022年5月30日开始，Google不再支持使用第三方应用程序或设备的使用，这些应用程序要求您仅使用用户名和密码登录Google帐户。

解决方案是使用“特定应用”密码。

我看着这个问题 ：

我最近的尝试是在gmail上创建一个“特定应用”密码

，但附件的代码实际上并未显示如何发送密码。

阅读问题及其答案，我对程序进行了一些更改：

Port := 995
UseTLS := utUseImplicitTLS
SSLVersions := [sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2]

这些更改后，尝试发送测试邮件（仍然没有应用程序密码），我得到答复

回复代码无效： +ok

可能意味着我的程序失败，因为它不会发送特定于应用程序的密码。

我想知道的是：如何发送该密码？

以下是我的代码，该代码是作为线程执行的，因此所有组件均在代码中定义：

 email:= TIdMessage.Create (nil);
 try
  email.LoadFromFile (FFileName);
  email.OnInitializeISO:= DoInitializeISO;
  //  DeleteFile (FFileName);

  smtp:= TIdSMTP.Create (nil);
  try
   smtp.OnFailedRecipient:= FailedRecipient;
   ssl:= TIdSSLIOHandlerSocketOpenSSL.Create (smtp);
   ssl.SSLOptions.SSLVersions:= [sslvTLSv1];

   smtp.OnStatus := DoStatus;
   smtp.IOHandler:= ssl;
   smtp.Host:= FHost;
   smtp.Password:= FPassword;   // now app passord
   smtp.Username:= FUsername;
   smtp.UseTLS:= utUseExplicitTLS;
   smtp.Port:= 587;

   smtp.Connect;
   try
    smtp.Send (email);
   finally
    smtp.Disconnect;
   end;
  finally
   ssl.free;
   smtp.Free;
  end;
 finally
  email.Free;
 end;

Answer 1

特定于应用程序的密码只是Gmail为您生成的密码，然后您使用它而不是普通密码（即，在tidsmtp.password Wordword属性中）。这在Gmail的文档中说明了：

Answer 2

您只需用应用程序密码替换普通密码即可。假设您的代码类似于下面的代码。请记住，您需要启用2FA才能创建应用程序密码。

smtp.OnStatus := DoStatus;
smtp.IOHandler:= ssl;
smtp.Host:= FHost;
smtp.Password:= AppsPassword;   // Password from Apps Password
smtp.Username:= FUsername;
smtp.UseTLS:= utUseExplicitTLS;
smtp.Port:= 587;

另一个选择是使用XOAuth2。