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

最新推荐文章于 2026-04-05 00:04:52 发布

原创最新推荐文章于 2026-04-05 00:04:52 发布 · 3k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#delphi #listview #radiobutton #authentication #header

企业应用同时被 2 个专栏收录

19 篇文章

订阅专栏

Win32开发

8 篇文章

订阅专栏

本文提供了一个使用Indy10组件发送电子邮件的示例代码，详细展示了如何设置SMTP服务器参数、邮件内容及附件，并介绍了批量发送邮件的方法。

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]