我有Indy 10.5.9.0和Delphi XE3.
我从下面得到了示例代码:
http://www.andrecelestino.com/delphi-xe-envio-de-e-mail-com-componentes-indy/
我也尝试了其他示例代码,但结果相同.
我从这里有libeay32.dll和ssleay32.dll:
http://www.andrecelestino.com/wp-content/files/DLLs-SSL-DelphiXE.rar
但我也尝试过:
http://indy.fulgan.com/SSL/openssl-1.0.2d-i386-win32.zip
没有运气.
我的代码(全部):
uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComCtrls,IdBaseComponent,IdComponent,IdTCPConnection,IdTCPClient,IdExplicitTLSClientServerBase,IdMessageClient,IdSMTPBase,IdMessage,IdSMTP,IdioHandler,IdioHandlerSocket,IdioHandlerStack,IdSSL,IdSSLOpenSSL,IdText; procedure TForm1.Button1Click(Sender: TObject); var // variáveis e objetos necessários para o envio IdSSLIOHandlerSocket: TIdSSLIOHandlerSocketopenSSL; IdSMTP: TIdSMTP; IdMessage: TIdMessage; IdText: TIdText; sAnexo: string; begin // instanciação dos objetos IdSSLIOHandlerSocket := TIdSSLIOHandlerSocketopenSSL.Create(Self); IdSMTP := TIdSMTP.Create(Self); IdMessage := TIdMessage.Create(Self); try // Configuração do protocolo SSL (TIdSSLIOHandlerSocketopenSSL) IdSSLIOHandlerSocket.SSLOptions.Method := sslvSSLv23; IdSSLIOHandlerSocket.SSLOptions.Mode := sslmClient; // Configuração do servidor SMTP (TIdSMTP) IdSMTP.IOHandler := IdSSLIOHandlerSocket; IdSMTP.UseTLS := utUseImplicitTLS; IdSMTP.AuthType := satDefault; IdSMTP.Port := 465; IdSMTP.Host := 'smtp.gmail.com'; IdSMTP.Username := 'MYLOGIN@gmail.com'; IdSMTP.Password := 'MYPASS'; // Configuração da mensagem (TIdMessage) IdMessage.From.Address := 'MYLOGIN@gmail.com'; IdMessage.From.Name := 'John Smith'; IdMessage.ReplyTo.EMailAddresses := IdMessage.From.Address; IdMessage.Recipients.Add.Text := 'receiver@example.com'; IdMessage.Subject := 'Hello World'; IdMessage.Encoding := meMIME; // Configuração do corpo do email (TIdText) IdText := TIdText.Create(IdMessage.MessageParts); IdText.Body.Add('The body of the e-mail goes here'); IdText.ContentType := 'text/plain; charset=iso-8859-1'; // Conexão e autenticação try IdSMTP.Connect; IdSMTP.Authenticate; except on E:Exception do begin MessageDlg('Cannot authenticate: ' + E.Message,mtWarning,[mbOK],0); Exit; end; end; // Envio da mensagem try IdSMTP.Send(IdMessage); MessageDlg('Message sent successfully!',mtinformation,0); except On E:Exception do begin MessageDlg('Error while sending a message: ' + E.Message,0); end; end; finally // liberação dos objetos da memória FreeAndNil(IdMessage); FreeAndNil(IdSSLIOHandlerSocket); FreeAndNil(IdSMTP); end; end;
但我只从Gmail收到此错误:
https://accounts.google.com/ContinueSignIn?sarp=1&scc=1sdf[…]请通过网络浏览器登录
然后再试一次.
了解更多信息
https://support.google.com/mail/answer/78754 t1sm2526415lcc.25 – gsmtp
我登录https://accounts.google.com/ContinueSignIn?sarp=1&scc=1sdf[…],但我没有告诉我任何事情.
解决方法
所以在花了10个小时三次检查我的代码中的每个可能设置后,我找到了这个页面:
https://www.google.com/settings/security/lesssecureapps
并启用“不太安全的应用程序”的访问权限.
更新:
之后尝试使用Delphi发送电子邮件,然后如果失败则登录到您的Gmail帐户并访问以下2个页面:
https://myaccount.google.com/device-activity
https://myaccount.google.com/secureaccount
并确认这个新的“未知设备”是你(这是你的Delphi应用程序).
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。