code31.txt

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

程序段31
这段程序用于删除由mailGetMessages( ) 得到的第一条邮件的ID邮件信息

mailSession mSes
int mNbr
mailReturnCode mReturn
mSes=create mailSession
//邮件用户“ghy”注册
mReturn=mSes.mailLogon('ghy','PASSWORD',mailNewSession!)
if mReturn <> mailReturnSuccess! then
   MessageBox("MAIL LOGON","MS MAIL LOGON FAILURE!")
   Return
end if
//得到收到的所有邮件 ID
mReturn=mSes.mailGetMessages( )
if mReturn <> mailReturnSuccess! then
   MessageBox("Mail Get Message","MA MAIL MAIL"+"GET MESSAGE FAILURE!")
   return
end if
mNbr=Upperbound(mSes.MessageID[])
//删除第一条邮件
mSes.mailDeleteMessage(mSes.MessageID[1])
mSes.mailLogoff( )
destroy mSes
可以将mailGetMessages( )语句改为
mReturn=mSes.mailGetMessages(TRUE)
mNbr=Upperbound(mSes.MessagesID[])
则只能得到尚未读过的信息ID