如何用PB6.5实现收发电子邮件

leafage 2000-09-07 09:20:00
请问各位软件开发人员:
如何用PB6.5实现收发电子邮件,以及Microsoft Mail可以从哪里找到?
...全文
207 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
leafage 2000-09-12
  • 打赏
  • 举报
回复
thank you.
w102272 2000-09-08
  • 打赏
  • 举报
回复
//这里是一个非常简单的例子,需要进一步改进,但是理解使用方法足够了
//string mail_url,mailtext //mail_url放邮件地址,mailtext放邮件文本
//写个函数 sendmail(mail_url,mailtext)
//调用
mailsession mses
mailmessage mmsg
mailreturncode mreturn
mses = create mailsession //产生邮件会话对象mses
mreturn = mses.maillogon(mailnewsession!) //邮件登录
if mreturn <> mailreturnsuccess! then
messagebox("邮件登录","邮件登录失败!")
return '邮件登录失败'
end if
//效验地址
mailReturnCode mRet
string mname
mname = mail_url
mRet = mSes.mailResolveRecipient(mname)
IF mRet = mailReturnSuccess! THEN
mmsg.Recipient[1].RecipientType=mailto!
//mmsg.Recipient[1].address=mail_url
mmsg.Recipient[1].name=mail_url
//MessageBox("Address", mname + " found.")
ELSEIF mRet = mailReturnFailure! THEN
MessageBox("错误", "邮件系统无法解析地址:"+mail_url)
return "邮件系统无法解析地址:"+mail_url
ELSE
MessageBox("错误", "邮件系统未处理解析地址请求:"+mail_url)
return "邮件系统未处理解析地址请求:"+mail_url
END IF
mmsg.notetext = trim(mailtext)
mreturn = mses.mailsend(mmsg) //发送邮件
if mreturn <> mailreturnsuccess! then
messagebox("邮件发送","邮件发送失败!")
return "邮件发送失败!"
else
messagebox("邮件发送","邮件发送成功!")
end if
mses.maillogoff() //退出登录
destroy mses //取消邮件会话
return "邮件发送成功!"
leafage 2000-09-08
  • 打赏
  • 举报
回复
能写具体一点吗?
w102272 2000-09-07
  • 打赏
  • 举报
回复
使用PB的MAILSESSION,MAILMESSAGE对象可以实现收发电子邮件。

1,072

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧