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 获取memo的行数与列数

Delphi 创建快捷方式的单元文件

Delphi遍历进程并获取进程路径

Delphi monthoftheyear、weekoftheyear、weekofthemonth、dayoftheyear … 相对时间

Delphi 图像分割

Delphi 使用firedac tfdibbackup和tfdibrestore备份和还原firebird

Delphi调用rest

Delphi 判断文件名是否合法,判断文件名路径是否合法

Delphi让listbox实现即指即显功能

unigui js操作Delphi控件赋值

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



打赏

取消

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

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

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

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

评论

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