【通知】
【通知】充值首选支付宝,未及时到账,请邮件联系 youjianqunfa@qq.com 备注用户名。
当前位置:首页 > 邮件群发问答百科 > 正文内容
七月3日

时间:2020-07-03 17:48

在Delphi中使用Indy控件实现邮件群发

0
分类:邮件群发问答百科 | 评论:0人 | 浏览:43次   

摘要:本文通过对Indy控件集中TIdMessage、TIdSMTP控件的属性、方法分析,介绍了一种使你的计算机具有邮件群发功能的方法,使你与大量朋友之间的沟通更为方便。可以不加修改地应用于Delphi应用程序中,具有很强的实用性。

关键字:Delphi,Indy控件集,邮件群发

随着人们交往的不断扩大,人与人、单位与单位之间的邮件通讯日益普及,通过邮件群发,可以将会议通知、产品说明、产品报价等通过邮件方式把大量邮件送到用户的邮箱中,既加快了信息的传递,又节省了费用。目前网上有许多邮件群发是基于Delphi 5中的TNMSMTP控件的,很多的SMTP邮件服务器要对发送邮件的用户进行身份验证,即要求给出用户名和密码信息,否则无法发送,包括163.net,263.net,sina.com,sohu.com等均在此列,而Delphi 5的TNMSMTP构件本身未提供身份验证方面的属性,如此就不能在这些邮件服务器上通过TNMSMTP控件发送邮件,因此Delphi的高版本中去掉了这组控件,取而代之的是Indy控件集。本文介绍在Delphi 7中使用Indy控件集实现邮件群发的功能。

一、    实现原理

Indy的全名是Internet Direct(也叫Winshoes),它是一套开放源代码的Internet控件集,它支持大部分流行的Internet协议,包括TCP、UDP、DNS、ICMP、FINGER、FTP、GOPHER、HTTP、POP3、SMTP、TELNET、WHOIS等,支持BASE64、MD2、MD4、MD5等编解码,提供INTERNET流行协议的客户端和服务器控件。Indy控件集的客户端和服务器控件都有完整、详细的源代码例程和帮助文件,用户可以根据这些例子,简单方便快速的创建各种服务器程序,如:WEB服务器、TELNET服务器、IRC服务器、TCP、UDP服务器等,而这些服务器都是支持多线程的。用户也可以很方便地编写出各种客户端程序,如EMAIL、FINGER、FTP、PING、TELNET等。

如果你使用的是Delphi 6以前的版本,请先到Indy主页http://www.nevrona.com/Indy/Download.html下载并安装该控件集。

二、    用到的核心控件

Indy控件集包含了大量Internet控件,为了实现邮件群发功能,使用了以下三个控件:

1. TIdMessage

TIdMessage控件用来构建要发送的邮件信息。它通过以下几个主要属性及子属性构建发送的邮件信息:

l         Subject:             邮件主题;

l         Body:                邮件正文;

l         From.Text:         发件人邮件地址;

l         Priority:             邮件优先级

l         Recipients.EmailAddresses:       目的地址;

l         CCList.EmailAddresses:            抄送地址;

l         BccList.EmailAddresses:           暗送地址;

l         ReceiptRecipient.Text:              收条地址;

l         MessageParts:                         附件信息。

2. TIdSMTP

l         Username:                 帐户名;

l         Password:                 密码;

l         Host:                        SMTP服务器地址;

l         Port:                         端口号;

l         AuthenticationType:   身份验证方式;

l         Connect方法:           连接SMTP服务器;

l         Send方法:                发送创建的邮件;

l         Disconnect方法:       断开服务器连接。

3. TidAntiFreeze

由于Indy是以同步的方式进行工作的,在读或写操作完成之前,其它代码无法执行,加入TidAntiFreeze可以在每隔一段时间通过呼叫Application.ProcessMessage方法响应来自外界的消息,因此TidAntiFreeze可以确保Indy控件在工作时程序能响应来自外界的消息。

三、    界面设计

邮件群发需要使用二个窗体:一个是邮件发送窗体,另一个是SMTP参数设置窗体。在邮件发送窗体上放置一个TEdit控件,二个TMemo控件,一个TComboBox控件(其Items属性值依次为Highest,High,Normal,Low,Lowest),一个TCheckBox控件和五个TBitBtn控件,用到的Indy控件为TIdSMTP、TIdMessage和TidAntiFreeze。其中TIdMessage用来创建要发送的邮件信息,TIdSMTP用来发送邮件。

邮件发送窗体界面如图一所示 (箭头所指向的文字标识了该控件的名字)。窗体的Name属性值设为FormMail。

图一:SMTP参数设置窗体

SMTP参数设置窗体用来设置邮件发送服务器的参数。在SMTP参数设置窗体上放置五个TEdit控件,一个TComboBox控件(其Items属性值依次为None,Simple Login,表示发送邮件时是否使用身份验证)和一个TBitBtn控件。

SMTP参数设置窗体界面如图二所示 (箭头所指向的文字标识了该控件的名字)。窗体的Name属性值设为fmSMTPOption。

四、    程序设计与系统实现

1. 邮件发送窗体的单元代码如下(单元定义部分略):

图二:SMTP参数设置窗体

uses UnitSMTPOption;             // 引用SMTP参数设置单元

// 添加附件

procedure TFormMail.btnAttachmentClick(Sender: TObject);

begin

if OpenDialog1.Execute then begin // 增添一个附件

    TIdAttachment.Create(IdMsgSend.MessageParts, OpenDialog1.FileName);

    ResetAttachmentListView; // 邮件列表显示

end;

end;

// 邮件列表显示

procedure TFormMail.ResetAttachmentListView;

var li: TListItem;

     idx: Integer;

begin

lvFiles.Items.Clear;

for idx := 0 to Pred(IdMsgSend.MessageParts.Count) do begin

    li := lvFiles.Items.Add; // 添加一行

    if IdMsgSend.MessageParts.Items[idx] is TIdAttachment then begin

      li.ImageIndex := 0;

      li.Caption := TIdAttachment(IdMsgSend.MessageParts.Items[idx]).Filename;

      li.SubItems.Add(TIdAttachment(IdMsgSend.MessageParts.Items[idx]).ContentType);

    end

end;

end;

// 发送邮件:

procedure TFormMail.bbtnOkClick(Sender: TObject);

var

i:           Integer;

MailAddresses: String;

begin

// 根据用户所填写的内容创建邮件

for i:= 0 to pred(MemoMailList.Lines.Count) do begin

    MailAddresses := MemoMailList.Lines[i];

    with IdMsgSend do begin

      Subject := edtSubject.Text; //邮件主题

      Body.Assign(Memo1.Lines); //邮件正文

      From.Text := fmSMTPOption.edtEmail.Text; //发件人地址

      ReplyTo.EMailAddresses := From.Text; //回复地址

      Priority := TIdMessagePriority(cboPriority.ItemIndex); // 邮件优先级

      Recipients.EMailAddresses := MailAddresses; //目的地址

//    CCList.EMailAddresses := edtCC.Text; {CC}

//    BccList.EMailAddresses := edtBCC.Text; {BBC}

      if chkReturnReceipt.Checked then // 返回收条

        ReceiptRecipient.Text := From.Text

      else // 不返回收条

        ReceiptRecipient.Text := ”;

    end;

    if SMTP.Connected then

      SMTP.Disconnect; //断开服务器连接

// 身份验证

    case fmSMTPOption.cboAuthType.ItemIndex of

      0: SMTP.AuthenticationType := atNone;

      1: SMTP.AuthenticationType := atLogin;       // 需要身份验证

    end;

    SMTP.Username := fmSMTPOption.edtAccount.Text; // 帐户名

    SMTP.Password := fmSMTPOption.edtPassword.Text; // 密码

    SMTP.Host := fmSMTPOption.SMTPServer.Text;     // SMTP地址

    SMTP.Port := StrToIntDef(fmSMTPOption.SMTPPort.Text, 25); //端口(默认25)

    Try             // 发送邮件

      SMTP.Connect; //连接服务器

      try

        SMTP.Send(IdMsgSend); // 发送创建的邮件

        StatusBar1.SimpleText:=’成功发送邮件:’+MailAddresses;

      except

        StatusBar1.SimpleText:=’不能发送邮件:’+MailAddresses+’,请检查网络或参数配置的设置!’;

      end;

    finally

      SMTP.Disconnect; //断开服务器连接

    end;

end;

Showmessage(‘发送邮件完毕!’);

end;

// 设置属性按钮:

procedure TFormMail.BitBtn1Click(Sender: TObject);

begin

fmSMTPOption.ShowModal;

end;

procedure TFormMail.bbtnCancelClick(Sender: TObject);

begin

Close;

end;

procedure TFormMail.SMTPConnected(Sender: TObject);

begin

StatusBar1.SimpleText:=’已经连接到网上’;

end;

// SMTP控件的OnStatus事件:

procedure TFormMail.SMTPStatus(ASender: TObject; const AStatus: TIdStatus;

const AStatusText: String);

begin

if StatusBar1<>nil THEN StatusBar1.SimpleText:=AStatusText;

end;

// 删除选定附件

procedure TFormMail.btnDelAttachmentClick(Sender: TObject);

begin

if lvFiles.ItemIndex>=0 then // 删除选定的附件

    IdMsgSend.MessageParts.Delete(lvFiles.ItemIndex);

ResetAttachmentListView;

end;

2. SMTP参数设置窗体的单元代码如下(单元定义部分略):

uses Inifiles;            // 引用.Ini文件处理单元

procedure TfmSMTPOption.FormCreate(Sender: TObject);

var

MailIni: TIniFile;

begin

MailIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + ‘Mail.ini’);

with MailIni do begin // 从配置文件中取出参数

    SMTPServer.Text := ReadString(‘Smtp’, ‘ServerName’, ‘smtp.server.com’);

    SMTPPort.Text := ReadString(‘Smtp’, ‘ServerPort’, ’25’);

    edtAccount.Text := ReadString(‘Smtp’, ‘ServerUser’, ‘your_login’);

    edtPassword.Text := ReadString(‘Smtp’, ‘ServerPassword’, ‘your_password’);

    cboAuthType.ItemIndex := ReadInteger(‘Smtp’, ‘SMTPAuthenticationType’, 0);

    edtEmail.Text := ReadString(‘Email’, ‘PersonalEmail’, ‘axmanj@21cn.com’);

end;

MailIni.Free;

end;

// 确定按钮

procedure TfmSMTPOption.BitBtnOkClick(Sender: TObject);

var

MailIni: TIniFile;

begin

MailIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + ‘Mail.ini’);

with MailIni do begin // 参数存入配置文件

    WriteString(‘Smtp’, ‘ServerName’, SMTPServer.Text);

    WriteString(‘Smtp’, ‘ServerPort’, SMTPPort.Text);

    WriteString(‘Smtp’, ‘ServerUser’, edtAccount.Text);

    WriteString(‘Smtp’, ‘ServerPassword’, edtPassword.Text);

    WriteString(‘Email’, ‘PersonalEmail’, edtEmail.Text);

    WriteInteger(‘Smtp’, ‘SMTPAuthenticationType’, cboAuthType.ItemIndex);

end;

MailIni.Free;

end;

五、    结束语

发送邮件前,先在SMTP参数设置窗体上输入SMTP服务器的参数设置,并按“确定”按钮保存SMTP服务器的参数信息,以便为以后的邮件发送服务。然后在MemoMailList对象中输入需群发邮件的地址,格式为每行一个邮件地址,发送邮件时,程序到该列表中依次取出每个邮件地址,并将用户输入的信息作为邮件信息,发送到各个客户的邮箱中。

由于篇幅有限,本程序中没有对邮件地址的格式进行检测,实际使用时,用户最好加上邮件地址格式的检测功能,以免程序运行出错。该程序在Windows 2000Server中调试通过

  • 评论:(0)
  • 有图有真相

已有 0 位网友发表了一针见血的评论,你还等什么?

你必须 登录 才可以留言.