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

本文整理自网络，侵删。

 
var 
 smtp: TIdSMTP;
 MgeSend: TIdMessage;

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

 

相关阅读 >>

Delphi tms web core js callproc

Delphi中分隔字符串函数的使用

Delphi 删除internet临时文件

Delphi mailurlmaybeinvalid 检测邮箱地址有效性

Delphi获取闲置时间

Delphi 随机生成汉字

Delphixe4 版本中，已针对移动平台 引入了 arc 模型

Delphi 关于动态数组指针操作的两个例子

Delphi ansi与unicode编码互转

Delphi tbutton.onclick 匿名函数用法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi通过IdSmtp发送邮件的简单代码