Delphi发送邮件


本文整理自网络,侵删。

 1. 在窗体上添加一个TidSMTP控件(在Indv Clients页)和一个TidMessage控件(在Indv Misc页)。

2. 编写代码

procedure TForm1.Button1Click(Sender: TObject);
begin
  idSMTP1.Host := 'smtp.163.com'; //邮件发送服务器
  try
    idSMTP1.Connect;
  except
     ShowMessage('连接到邮箱服务器失败!');
     Exit;
  end;
  idSMTP1.AuthenticationType := atLogin; //服务器需验证
  idSMTP1.UserId := 'YourUserName';   //邮箱登录帐号
  idSMTP1.Password := 'YourPassword';  //邮箱登录密码
  try
    idSMTP1.Authenticate
  except
    ShowMessage('登录到邮箱服务器失败!');
    idSMTP1.Disconnect;
    Exit;
  end;
  idMessage1.From.Address := 'YourUserName@163.com';  //发件人
  idMessage1.Recipients.EMailAddresses := 'master@learnew.com'; //收件人
  idMessage1.Subject := 'Delphi发送的邮件';    //邮件主题
  idMessage1.Body.Text := '这里是邮件的正文!';   //邮件内容
  try
    idSMTP1.Send(idMessage1);
    ShowMessage('邮件发送成功!');
  except
    ShowMessage('邮件发送失败!');
  end;
  idSMTP1.Disconnect;
end;

3. 这段代码在 XP + Delphi 6 环境下运行通过。

相关阅读 >>

floattostr 将“浮点型”转换成“字符型”

Delphi idmessage1 idsmtp1 发送邮件支持https

Delphi inttostr 将“整数型”转换成“字符型”

Delphi cpu窗口的扩展学习

Delphi 调用百度地图api

Delphi 只用一条语句就能使tbitmap反色

Delphi if pos 多条件判断用法交流

Delphi webbrowser 加载html成web

Delphi touchkeyboard1 基本用法

Delphi drawing text 绘制文本

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...