返回顶部

收藏

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

更多

变量定义

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;

标签:smtp,发送邮件,Delphi

收藏

0人收藏

支持

0

反对

0

相关聚客文章
  1. sunny 发表 2013-11-05 15:19:35 FAST-REPORT FMX 完全手工编译安装方法
  2. 童燕群 发表 2014-08-07 15:46:35 WordPress建站必备实用插件
  3. 博主 发表 2014-03-14 00:00:00 Record of installing RxLibrary 2.7.5 in Delphi XE5
  4. 河石子 发表 2015-12-22 18:54:00 Chrome新标签扩展程序Momentum
  5. DJun 发表 2011-10-01 12:46:57 分享:Delphi函数大全-2
  6. BccSafe 发表 2013-12-28 15:35:24 delphi 低级键盘钩子
  7. BccSafe 发表 2014-10-14 10:32:18 64位下操作注册表
  8. 博主 发表 2014-04-01 00:00:00 how i get a 3GQQ on Delphi
  9. webx32 发表 2015-12-02 03:17:06 GitLab-CE配置smtp发送邮件
  10. 博主 发表 2017-04-03 00:00:00 POP3/IMAP/SMTP 常用命令总结
  11. asuncool@gmail.com(轻 发表 2013-12-30 23:54:12 delphi directui 做界面的一个例子
  12. Sam 发表 2014-08-23 03:00:44 用Go实现发送邮件