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 环境下运行通过。

相关阅读 >>

Delphi inputbox 输入时显示*号

Delphi获取进程的命令行参数

Delphi tcomport控件从串品读取数据

进程防杀Delphi版(dll部分)

Delphi 利用tdictionary 文本去重

Delphi 将鼠标锁定在一定范围

Delphi模仿“千千静听”滚动标题栏,非常简单!

Delphi tstrings 过滤空行

Delphi deletefile 删除文件

Delphi提示‘error loading midas.dll’的原因及解决方案

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



打赏

取消

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

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

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

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

评论

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