delphi 发邮件

delphi 发邮件发邮件再程序里是很平常的业务以前我都是直接配置sqlserver发邮件当然delphi也是可以的一下是d7的发邮件代码:procedureTfrm1.btnTestClick(Sender:TObject);varMai

delphi

 发邮件再程序里是很平常的业务

以前我都是直接配置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

(0)
编程小号编程小号

相关推荐

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注