code34.txt

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

程序段34
　　这段程序用来显示邮件用户ghy的详细信息，并允许编辑。

mailSession mSes
mailMessage mMsg
mailRecipient mRec
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
//得到“ghy”的一些信息
mReturn=mSes.mailResolveRecipient(mRec)
if mReturn <> mailReturnSuccess! then
   MessageBOx("mail ResolveRecipient",'MA MAIL'+'RESOLE
                RECipIENT FAILURE!')
   Return
end if
//在窗口显示“ghy”的详细信息，并充许修改之
mReturn=mSes.mailRecipientDetails(mRec,TRUE)
if mReturn <> mailReturnSrccess! then
   MessageBox("Mail RecipentDetails",'MS MAIL'+'RECIPIENT'+ &
                     +' DETAILS FAILURE!')
   Return
end if
mSes.mailLogoff( )
destroy mSes