Delphi中发送邮件的代码,不完全参考

 indy10组件的 发送邮件代码,不完全

[本文由iuprg 发表]

[http://www.newsoftstudio.com]

====================================

我的发送代码,仅供参考:

...
...
     SMTP.Username   := SmtpServerUser;
     SMTP.Password := SmtpServerpassword ;
     SMTP.Host := SmtpServerName;

     case   SmtpAuthType of
     0: SMTP.Authtype :=atdefault ;
     1:
       SMTP.Authtype :=atNone ;
     2:
       SMTP.Authtype :=atSASL ;
     end;

     SMTP.Port := SmtpServerPort;
  
   // 'IdMsgSend:tidMsgsend
   with IdMsgSend do

      begin
         Clear;

         Priority := TIdMessagePriority(mpNormal); { Message Priority }
         From.Address:= UserEmail;
     
         Subject := trim(dbeditex3.Text) ; { Subject: header }
         Recipients.EMailAddresses := trim(dbeditex1.Text) ; { To: header }

         Body.Clear;
         Body.Add(dbmemo1.Text);
        /// 附件 ：
         for i:=0 to listview2.Items.Count -1 do
         begin
          TIdAttachmentFile.Create(IdMsgSend.MessageParts,
           listview2.Items[i].SubItems.Strings[1]);
          // 9.0版本 TIdAttachment.Create(IdMsgSend.MessageParts,
          // listview2.Items[i].SubItems.Strings[1]);
          //这里是indy 10组件
         end;
          if chkReturnReciept.Checked then
            begin {We set the recipient to the From E-Mail address }
               ReceiptRecipient.Text := From.Text;
            end
           else
            begin {indicate that there is no receipt recipiant}
               ReceiptRecipient.Text := '';
            end;

      end; // idsendmsg

    {authentication settings}

//[本文由iuprg 发表]

//[http://www.newsoftstudio.com]

  try

    if not smtp.Connected then
     SMTP.Connect;

     /// 开始批量发送
     if radiobutton2.Checked then
     begin
       gressbar(listview1.Items.Count,'正在发邮件...');

          IdMsgSend.Recipients.EMailAddresses :=
                listview1.Items[i].SubItems.strings[0];
          try
            if not smtp.Connected then
             SMTP.Connect;
             try
              SMTP.Send(IdMsgSend);
             finally
              smtp.Disconnect;
             end;  // 每次发送必须建立一次连接，因为 有的 mail系统会限制一次连接
                  // 只能发送 2封邮件，而会提示“too many letters during this connection”
          except 
             if showmess(2,1,'往'+listview1.Items[i].SubItems.strings[0]+'发送邮件不成功！请检查输入的邮件地址是否正确/网络连接是否正常,您要继续么？')=1 then
             begin
                 if  smtp.Connected then
                 SMTP.disConnect;
                 break;
             end;
           
          end;

          gresspos(i);

       self.Caption:='发送完毕';
       gressrelease;
     end;

     if  radiobutton1.Checked then
     begin
      gressbar(listview1.Items.Count,'正在发送邮件...');
     if smtp.Connected then
        SMTP.Send(IdMsgSend);

      gresspos(10);
      gressrelease;
     end;

       savemail('1');                     // 保存 邮件，    
  
   if  smtp.Connected then
       SMTP.Disconnect;

    speedbutton2.Enabled :=false;
    showmess(0,9,'邮件发送成功。');
  except

    datamd.adoq_mail.cancel;
     gressrelease;
    if  smtp.Connected then
       SMTP.Disconnect;
    showmess(2,9,'邮件发送不成功！');
  end 

[本文由iuprg 发表]

2006-7-2

[http://www.newsoftstudio.com]