code35.txt

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

程序段35
　　这段程序用于得到邮件用户ghy的详细信息。

mailSession mSes
mailMessage mMsg
mailRecipient mRec
int mNbr
mailReturnCode mReturn
mSes=create mailSession
//邮件用户名为“ghy”
mRec.Name='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",'MS MAIL'+'RESOLVE'+&
              +'RECIPIENT FAILURE!')
   Return
end if
mReturn=mSes.mailRecipientDetails(mRec,TRUE)
if mReturn <> mailReturnSuccess! then
   MessageBox("Mail RecipientDetails",'MS MAIL'+'RECIPIEN'+&
                 +'DETAILS FAILURE!')
   Return
end if
mSes.mailLogoff( )
destroy mSes