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 httpserver 使用方法

Delphi编程实现sql server挂起清除

Delphi实现ftp上传与下载

elphi中取出字符串中指定位置的几个字符

Delphi通过将数据放入exe的资源信息中的方式制作自已的安装工具

Delphi串口通信编程

Delphi 时间到就触发事件

Delphi 根据特殊符号字符获取字符串前或后的字符

移植Delphi7的tclientsocket,tserversocket

Delphi 高速替换大文本字符串内容

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

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