code33.txt

来自「一个用数据库编写的学生信息管理系统！做课程设计的同学可以做为参考！」· 文本 代码 · 共 27 行

程序段33
　　下面这段程序在多行编辑器中显示邮件用户ghy接收到的且尚未读
过的邮件信息的某一条。

mailSession mSes
mailMessage mMsg
int mNbr
mailReturnCode mReturn
mSes=create mailSession
//邮件用户“ghy”注册
mReturn <> mailReturnSuccess! then
   MessageBox("MAIL LOGON",'MA MAIL LOGON FAILURE!')
   Return
end if
//得到“ghy”收到的但尚未读过的信息 ID
mReturn=mSes.mailGetMessages(TRUE)
if mReturn <> mailReturnSuccess! then
   MessageBox("Mail Get Message",'MA MAIL MAIL GET'+'MESSAGE FAILURE!')
   Return
end if
//得到“ghy”收到的但尚未读过的信息有多少个
mNbr=upperbound(mSes.MessageID[mNbe],mMsg, mailEntireMessage!,TRUE)
//把信息放在多行编辑器 mle_1 中
mle_1.text=mMsg.NoteText
mSes.mailLogoff( )
destroy mSes