建立邮件联系:
mailsession mses
//定义对象mses,以供在程序中引用
mailmessage mmsg
//定义结构mmsg,此结构用于描述邮件的内容
mailrecipient mrec
//定义结构mrec,它标识邮件的接收者和发送者
mailreturncode mreturn
//定义返回码,用于存放函数的返回值
int mnbr
//定义临时变量
//产生邮件会话对象mses
mses = create mailsession
//邮件登录。此处用户名,口令缺省
mreturn = mses.maillogon('','',mailNewSessionWithDownLoad!)
mses.mailGetMessages()
if mreturn <> mailreturnsuccess! Then
messagebox("邮件登录","邮件登录失败!")
return
end if
mreturn = mses.mailgetmessages(true)
if mreturn <> mailreturnsuccess! then
messagebox("邮件获取","邮件获取失败或无新邮件!")
return
end if
//获得接收到尚未读过的邮件数目
mnbr = upperbound(mses.messageid[])
//读取最后接收到的邮件内容。
//它被放在mmsg的notetext的字符串字段中
mses.mailreadmessage(mses.messageid[mnbr],mmsg,mailentiremessage!,true)
//把获得的邮件内容放到窗口w_mai1上的多行编辑器mle_1中
w_sg_mail.tab_1.tabpage_1.mle_1.text=mmsg.notetext
//退出登录
mses.maillogoff()
//取消邮件会话
destroy mses
//增加附件
String docName, Named
Integer Value
Value = GetFileOpenName("选择附件", docName, Named,"DOC","All Files(*.*),*.*")
if value = 1 Then
tab_1.tabpage_1.plb_1.AddItem(docName,1)
end if