Delphi发送邮件的源码

答案：
很容易就能实现啊~
在主form1上添加 两个button，一个IdSMTP1，一个IdMessage1。
然后，
1，先连接服务器
代码：
procedure TMainForm.Button1Click(Sender: TObject);
begin
IdSMTP1.Username :='XXXX'; //服务器上的用户名
IdSMTP1.Password :='XXXX'; //服务器上的密码
IdSMTP1.Host :='XXX.XXX.com'; //服务器SMTP地址
IdSMTP1.Port :=25; //服务器端口
IdSMTP1.Connect; //建立连接
end;
2，发送邮件
代码：
procedure TMainForm.Button2Click(Sender: TObject);
begin
IdMessage1.Body.Add( ' 呵呵，感谢Edw@rd吧' ); //邮件正文件内容
IdMessage1.From.address :='XXX@XXX.com'; //发件人地址
IdMessage1.Recipients.EMailAddresses :='XXX@XXX.com'; //收件人地址，这里改为你的EMAIL地址
IdMessage1.Subject:='发送邮件就这么简单' ; //邮件标题
IdMessage1.Priority := mphigh; //优先级，mphigh为最高级。
IdSMTP1.Send(IdMessage1); //发送邮件
end;
//注意以上XXX为代指，以实际情况而定。测试看看吧。

上一个：学delphi中该注意什么
下一个：sql数据库课程设计 delphi