电子邮件程序在发送时失败，并带有"Exception EldProtocolReplyError [英] email program fails on send with 'Exception EldProtocolReplyError

问题描述

以下是我使用Delph 7编写的非常基本的电子邮件程序程序.
该程序在执行

The following is a very basic email program program I wrote using Delph 7.
The program bombs out when executing

SMTP.Send(Email);

时会炸裂 该消息是00025AB4的模块SendEmail.exe中的 Exception EldProtocolReplyError.
5.7.0必须首先发出STARTTLS命令. co1sm11098818vdc.10

The message is Exception EldProtocolReplyError in Module SendEmail.exe at 00025AB4.
5.7.0 Must issue a STARTTLS command first. co1sm11098818vdc.10

program SendEmail;

{$APPTYPE CONSOLE}

uses
  SysUtils,IdSMTP,IdMessage;

 Var
  SMTP        : TIdSMTP;
  Email: TIdMessage;

begin
SMTP := TIdSMTP.Create(nil);
Email := TIdMessage.Create(nil);
try
SMTP.Host  := ''smtp.gmail.com'';
SMTP.Port := 25;
SMTP.Username := ''username'';
SMTP.Password := ''password'';
Email.From.Address := ''[e-mail]'';
Email.Recipients.EMailAddresses := ''[e-mail]'';
Email.Subject := ''system message'';
Email.Body.Text := ''Hello, It is Just for test'';
SMTP.Connect;

// This is where the Exception occurs
SMTP.Send(Email);

finally
SMTP.Free;
Email.Free;
end;

readln;
end.

请告诉我我需要做些什么才能使该程序运行.

谢谢

Please advice me what I need to do to make this program run.

Thank you

推荐答案

APPTYPE CONSOLE} 用途 SysUtils，IdSMTP，IdMessage; Var SMTP:TIdSMTP； 电子邮件:TIdMessage; 开始 SMTP:= TIdSMTP.Create(nil); 电子邮件:= TIdMessage.Create(nil); 尝试 SMTP.Host:=''smtp.gmail.com''; SMTP.Port:= 25; SMTP.Username:=``用户名''; SMTP.Password:=``密码''; Email.From.Address:=``[e-mail]''; Email.Recipients.EMailAddresses:=``[e-mail]''; Email.Subject:=``系统消息''; Email.Body.Text:=``你好，这只是为了测试''; SMTP.Connect; //这是发生异常的地方 SMTP.Send(电子邮件); 最后 SMTP.免费； 电子邮件免费； 结尾; readln; 结束.

APPTYPE CONSOLE} uses SysUtils,IdSMTP,IdMessage; Var SMTP : TIdSMTP; Email: TIdMessage; begin SMTP := TIdSMTP.Create(nil); Email := TIdMessage.Create(nil); try SMTP.Host := ''smtp.gmail.com''; SMTP.Port := 25; SMTP.Username := ''username''; SMTP.Password := ''password''; Email.From.Address := ''[e-mail]''; Email.Recipients.EMailAddresses := ''[e-mail]''; Email.Subject := ''system message''; Email.Body.Text := ''Hello, It is Just for test''; SMTP.Connect; // This is where the Exception occurs SMTP.Send(Email); finally SMTP.Free; Email.Free; end; readln; end.

请告诉我我需要做些什么才能使该程序运行.

谢谢

Please advice me what I need to do to make this program run.

Thank you

这篇关于电子邮件程序在发送时失败，并带有"Exception EldProtocolReplyError的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！