用PB编写邮件应用程序（2）
发表时间：2025-12-12 来源：浏览器大全整理相关软件相关文章人气：
数据库，简而言之可视为电子化的文件柜——存储电子文件的处所，用户可以对文件中的数据进行新增、截取、更新、删除等操作。所谓“数据库”是以一定方式储存在一起、能与多个用户共享、具有尽可能小的冗余度、与应用程序彼此独立的数据集合。
2．阅读邮件
用户信息在服务器上通过验证以后，一个有效的邮件会话就建立了，接下来要做的工作就是接发邮件。
PB用一个mailMessage对象来描述一封邮件，该对象封装了邮件的主题、地址、消息体和附件等信息。图1是邮件应用程序的阅读界面，它列出了收件箱中的所有邮件，可选择其中一封进行阅读。主窗口Open事件的代码为：
…… //连接到邮件服务器
MyMail.mailGetMessages()
//用收件箱中的邮件填充MyMail对象
iNum=UpperBound(MyMail.MessageID[])
//获取收件箱中的邮件数目
For i=1 To iNum //读取收件箱中的每一封邮件，并将其主题添加到列表框中
MyMail.mailReadMessage(MyMail.MessageID[i],msg, mailEntireMessage!,True)
tab—1.tabpage—1.plb—1.AddItem(msg.Subject,1)
Next //msg为mailMessage类型的实例变量
在plb—1控件的SelectionChanged事件中加入下列代码：
MyMail.mailReadMessage(MyMail.MessageID[index],msg, mailEntireMessage!,True)
sle—1.Text=msg.Subject
//显示当前邮件的主题
sle—2.Text=msg. Recipient[1].Address
//显示发件人地址
sle—3.Text=msg.DateReceived
//显示收件时间
mle—1.text=msg.NoteText
//显示邮件的消息体
iAttachmentFileNum=UpperBound(msg.AttachmentFile[])
//获取当前邮件的附件数目
For i=1 To iAttachmentFileNum
strAttFile= strAttFile ＋msg.AttachmentFile[i].PathName＋″～r～n″
Next //strAttFile为String类型的实例变量 |
在“附件”按钮的Clicked事件中加入下列代码：
| MessageBox(″邮件附件″, strAttFile) //显示当前邮件的附件及其在硬盘上存放的位置 |
全新的路由器不仅让你更稳定快速地连接无线网络，更可以让家中的智能设备连接在一起。
