Delphi通过IdSmtp发送邮件的简单代码

最新推荐文章于 2021-06-16 19:21:46 发布

转载最新推荐文章于 2021-06-16 19:21:46 发布 · 6.4k 阅读

文章标签：

#smtp

Delphi 专栏收录该内容

150 篇文章

订阅专栏

本文将演示如何使用TIdSMTP组件通过SMTP协议发送邮件，并提供了关键配置信息及发送流程。

部署运行你感兴趣的模型镜像

var 
 smtp: TIdSMTP;
 MgeSend: TIdMessage;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SMTP.Host:='smtp.163.com';
  smtp.Username:='zhm001x@163.com';
  smtp.Password:='paswrd';
  smtp.Port:=25;
  smtp.Connect();
  MgeSend.Recipients.EMailAddresses:='zhm001x@qq.com';
  MgeSend.From.Text :='zhm001x@163.com';
  MgeSend.Subject:='test';
  MgeSend.Body.Text:='发邮件测试';
  SMTP.Authenticate;
  Smtp.Send(mgeSend);
end;