张静

（河南省气象培训中心，河南 郑州450002）

在互联网上，与电子邮件相关的2 个协议是POP3（邮局协议）和SMTP（简单邮件传输协议）。其中，POP3 协议用于从POP3 服务器上接收邮件，而SMTP协议用于登录SM T P 服务器来发送邮件[1-2]。C++Builder 提供了NMPOP3 控件和NMSMTP 控件来实现这2 个邮件收发协议。本文利用C++Builder 中的NMPOP3 控件，创建一个能接收电子邮件的系统。

1 NMPOP3 控件的属性和方法

NMPOP3 控件用于从POP3 协议服务器的主机中接收邮件，所有POP3 接收邮件的功能都封装在该控件中，使用者只需修改该控件的属性、访问该控件的方法并对事件进行响应即可[3-4]。

1.1 NMPOP3 控件的属性

NMPOP3 控件的主要属性如表1 所示。

表1 NMPOP3 控件的属性

1.2 NMPOP3 控件的主要方法

NMPOP3 控件的主要方法如表2 所示。

表2 NMPOP3 控件的主要方法

表2 （续）

2 电子邮件接收程序设计

2.1 与服务器建立连接

在此步骤中，单击“Connect/Account”选项卡上的“连接服务器”，如图1 所示，将触发CntBtn 事件。在此事件处理函数中，先设置NMPOP3 控件的各项属性，然后与服务器建立连接，当连接成功后，设置此邮箱中的邮件数目。其源程序如下：

图1 连接与断开连接图

void __fastcall TRveForm::CntBtn(TObject*Sender)

{

...

MyPOP31->Host=HoEdt->Text;

MyPOP31->Port=StrToInt(PtEdt->Text);

MyPOP31->UserID=UIEdt->Text;

MyPOP31->Password=PWEdt->Text;

MyPOP31->Connect();

}

当客户成功连接到POP 服务器时，将触发OnConnect 事件，其代码如下：

MyStaBar1->SimpleText= “已经连接到服务器”;

当客户试图连接到服务器而失败时，将触发OnConnectionFailed 事件，其代码如下：

void__fastcallTRveForm::MyNMPOP31Connection Failed(TObject*Sender)

{

MyStaBar1->SimpleText = “连接服务器失败”;

}

2.2 显示邮件列表

显示邮件列表调用NMPOP3 控件的List()方法，其代码如下：

void __fastcall TRveForm::ListBtnClick(TObject

*Sender)

{

MyNMPOP31->List();

}

其中，NMPOP3 控件的List()方法触发OnList 事件，其代码如下：

void __fastcall TFmMyMain::MyNMPOP3List(int Msg,int Size)

{

If(Msg<2)

{

MyMo1->Clear();

MyMo1->Lines->Add(“邮件序号/邮件大小（字节）”);

}

MyMo1->Lines->Add(IntToStr(Msg)+ “ / ”+IntToStr(Size));

}

2.3 读取邮件信息

当邮件列表显示以后，就可以输入要读取的邮件编号，单击“Get Message”按钮显示邮件的详细内容，如图2 所示。首先调用NMPOP3 控件的GetMailMessage()方法，并将Edt5 中的邮件编号取出来，得到的邮件信息被保存在MailMessage 属性中。

图2 显示邮件图

其源程序如下：

void __fastcall TFmMyMain::Btn3Click(TObject*Sender)

{

MyNMPOP31->GetMailMessage(StrToInt(Edt5->Text));

Edt7->Text=MyNMPOP31->MailMessage->Subjec;

Edt9->Text=MyNMPOP31->MailMessage->Mess ageId;

myMe1->Lines->Assign(MyNMPOP31->MailMe ssage->Head);

myMe2->Lines->Assign(MyNMPOP31->MailMe ssage->Body);

}

单击“Get Summary”按钮，调用NMPOP3 控件的GetSummary()方法，显示邮件的概要信息，其代码如下：

void __fastcall TFmMyMain::Btn6Click(TObject*Sender)

{

MyNMPOP31->GetSummary(StrToInt(Edt5->Te xt));

Edt6->Text=MyNMPOP31->Summary->From;

Edt7->Text=MyNMPOP31->Summary->Subject;

Edt8->Text=ntToStr(MyNMPOP31->Summary->Bytes);

Edt9->Text=MyNMPOP31->Summary->MessageId;

}

单击“Delete”按钮，调用NMPOP3 控件的DeleteMailMessage()方法，删除邮件，其代码如下：

void __fastcall TRveForm::Btn7Click(TObject*Sender)

{

MyNMPOP31->DeleteMailMessage(StrToInt(Edt 5->Text));

}

2.4 断开与服务器的连接

单击“Disconnect”按钮，调用NMPOP3 控件的Disconnect()方法，断开与服务器的连接，其代码如下：

void __fastcall TRveForm::Btn2Ck(TObject*Sender)

{

MyNMPOP31->Disconnect();

}

当客户断开与服务器的连接时，将触发OnDisconnect 事件，其代码如下：

void __fastcall TRveForm::MyNMPOP31Dct(TObject*Sender)

{

If(MyStatusBar1!=0)

MyStatusBar1->SimpleText= “脱机工作”;

}

3 结语

本文基于C++Builder 开发平台，讨论了在应用程序中调用NMPOP3 控件接收电子邮件的方法，并设计了具体程序，其操作界面简单，同时经试验检测，具有很好的稳定性。