Question

怎样用Delphi程序发邮件

Answer 1

使用 delphi 来实现发邮件功能，通常使用 IdSmtp 控件，以下是参考代码：

procedure TForm1.Button1Click(Sender: TObject)
begin
  SMTP.Host:='smtp.163.com';         //邮件服务器地址
  smtp.Username:='用户名@163.com';    //用户名
  smtp.Password:='密码';
  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;