code30.txt

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

程序段30
这段程序用于邮件收发，显示一个地址列表。

mailSession mSes
mailMessage mMsg
mailRecipient mRec
int mNbr
meilReturnCode mReturn
mSes=create meilSession
//邮件用户“bhy”注册
mReturn=mSes.mailLogon('bhy','PASSWORD',mailNewSession!)
if mReturn <> mailReturnSuccess! then
   MessageBox("MAIL LOGON",'MS MAIL LOGON AILURE!')
   Return
end if
//弹出邮件用户列表
mReturn=mSes.mailAdress()
if mReturn<>mailReturnSuccess! then
   MessageBox("Mail Address",'MS MAIL MIL ADDRESS FAILURE!')
    return
end if
mSes.mailLogoff( )
destroy mSes