邮件发送（方法二）

运用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 ;

转载于:https://www.cnblogs.com/safezone/articles/1260852.html