大家好，欢迎来到IT知识分享网。
发邮件再程序里是很平常的业务
以前我都是直接配置sqlserver发邮件
当然delphi也是可以的
一下是d7的发邮件代码：
procedure Tfrm1.btnTestClick(Sender: TObject);
var
MailBody: TStringList;
idHtmlText,idHtml: TIdText;
sContent: String;
iLoop: Integer;
begin
sContent := '您好'+#13#10+' 这是邮件服务的一封测试邮件,收到此邮件表示您可以正常使用邮件服务.';
MailBody := TStringList.Create;
MailBody.Text := sContent;
IdMsgTest.Clear;
IdMsgTest.Recipients.Clear;
IdMsgTest.CCList.Clear;
IdMsgTest.From.Text := edtEMail.Text;
IdMsgTest.Subject := '这是一封测试邮件';
IdMsgTest.Body.Text := sContent;
IdMsgTest.Priority := mpNormal;
IdMsgTest.CharSet := 'gb2312';
IdMsgTest.ContentType := 'multipart/mixed';
IdMsgTest.Recipients.Add.Address := edtEmail.Text;
IdMsgTest.CCList.Add.Address := edtEmail.Text;
idHtml := TIdText.Create(IdMsgTest.MessageParts);
idHtml.ContentType := 'text免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权，请联系删除，如若转载，请注明出处：https://yundeesoft.com/26041.html
