邮件发送（方法二）

运用ActiveX控件cdonts.dll

首先在delphi里加入cdonts.dll

然后拖动到Form上，并命名为：mNewMail，配置好相关属性，相关代码如下：

 

  try
    FNewMail:= CreateOleObject('CDONTS.NewMail') ;
    try
      FNewMail.From := 'MOD@digitalchina.com';
      FNewMail.To := xSendTo;
      if xCCTo<>'' then
        FNewMail.Cc := xCCTo;

      if (xAttachFile<>'') and (xFilename<>'') then
        FNewMail.AttachFile(xAttachFile,xFilename,1);

      FNewMail.MailFormat := 0;
      FNewMail.BodyFormat := 0;
      FNewMail.Subject := xSubject;
      FNewMail.Body := me1.text;
      FNewMail.Send;

    except

    end;
  finally
    FNewMail := Unassigned;
  end;