delphi 发邮件_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