code32.txt

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

程序段32
　　这段程序用于列出最近收到邮件的ID号。

mailSession mSes
int mNbr
mailReturnCode mReturn
mSes=create mailSession
//邮件用户“ghy”注册
mReturn=mSes.mailLogon('ghy','PASSWORD',mailnewSession!)
if mReturn <> mailReturnSuccess! then
   MessageBox("MAIL LOGON","MA MAIL LOGON FAILURE!')
   Return
end if
//得到收到的所有邮件 ID 号
mReturn=mSes.mailReturnSuccess! then
   MessageBox("Mail GetMessages",'MA MAIL GET'+'MESSAGES FAILURE!')
   Return
end if
mNbr=Upperbound(mSes.MessageID[])
sle_1.text=string(mNbr)
mSes.mailLogoff( )
destroy mSes