使用 gmail 和 Indy 发送电子邮件
Send e-mail using gmail and Indy
我正在尝试使用 gmail 从 Delphi 发送电子邮件。
我有 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, [mbOK], 0);
except
On E:Exception do
begin
MessageDlg('Error while sending a message: ' +
E.Message, mtWarning, [mbOK], 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[...],但我什么都没告诉我。
这是因为Google以这种方式阻止了登录。
因此,在花了 10 个小时三次检查代码中的每个可能设置后,我找到了这个页面:
https://www.google.com/settings/security/lesssecureapps
并为 "less secure apps" 启用了访问权限。
更新:
之后尝试使用 Delphi 发送电子邮件,如果失败,请登录您的 Gmail 帐户并访问以下 2 个页面:
https://myaccount.google.com/device-activity
https://myaccount.google.com/secureaccount
并确认这个新 "unknown device" 是您本人(这是您的 Delphi 应用)。
我正在尝试使用 gmail 从 Delphi 发送电子邮件。 我有 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, [mbOK], 0);
except
On E:Exception do
begin
MessageDlg('Error while sending a message: ' +
E.Message, mtWarning, [mbOK], 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[...],但我什么都没告诉我。
这是因为Google以这种方式阻止了登录。 因此,在花了 10 个小时三次检查代码中的每个可能设置后,我找到了这个页面:
https://www.google.com/settings/security/lesssecureapps
并为 "less secure apps" 启用了访问权限。
更新:
之后尝试使用 Delphi 发送电子邮件,如果失败,请登录您的 Gmail 帐户并访问以下 2 个页面:
https://myaccount.google.com/device-activity
https://myaccount.google.com/secureaccount
并确认这个新 "unknown device" 是您本人(这是您的 Delphi 应用)。