发邮件再程序里是很平常的业务
以前我都是直接配置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
今天的文章delphi 发邮件分享到此就结束了,感谢您的阅读。
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。
如需转载请保留出处:http://bianchenghao.cn/76057.html