返回顶部

收藏

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

发表评论