如何在PB中实现邮箱登陆？

请参考。

mailsession mses
mailmessage mmsg
mailreturncode mreturn

//产生邮件会话对象mses
mses = create mailsession

//邮件登录
//mreturn = mses.maillogon(mailnewsession!)
mreturn = mses.mailLogon('a','',mailNewSessionWithDownLoad!)
//mreturn = mses.mailLogon('yxbyxb_wj','117wenwenjing',mailNewSessionWithDownLoad!)
if mreturn <> mailreturnsuccess! then
messagebox("错误","邮件登录失败，请以其它方式告知我们！~n"+"XXXX@163.com")
return
end if

////弹出邮件地址窗口,获取邮件接收者的地址。地址及名字是放在mmsg中的一 个结构数组
//mreturn =mses.mailaddress(mmsg)
//if mreturn <> mailreturnsuccess! then
//messagebox("错误","邮件地址出错，请以其它方式告知我们！~n"+"XXXX@163.com")
//return
//
//end if

//把窗口w_mai1上的多行编辑器mle_1中的内容放到mmsg的notetext字段中
// 设置邮件消息对象的一些属性值
mmsg.Recipient[1].Name = "cdsj_qwwxmb@sina.com" // 邮件接收人名字