pb收邮件或读OUTLOOK邮箱的邮件

[lzzyi]

谁有这方面的程序，非常感谢。

[dawugui]

在PB应用中收发电子邮件

　　在PowerBuild应用中实现收发电子邮件,主要是通过PowerBuild系统提供的一套用于邮件操作的内嵌函数。这些函数实现其应用到微软公司的MAPI标准之间的接口。
　　一、创建一个MDI风格的窗口w_mail
　　在这个窗口上,放置一个含接收邮件、发送邮件和地址薄三个带图标的菜单项的菜单m_mail,一个多行编辑器mle_1。
　　二、为各菜单项编制事件处理程序(Script)
　　程序行中//后的为说明文字。
　　1、在菜单项"接收邮件"的单击(Clicked)事件下输入下面程序:
　　mailsession mses
　　//定义对象mses,以供在程序中引用
　　mailmessage mmsg
　　//定义结构mmsg,此结构用于描述邮件的内容
　　mailrecipient mrec
　　//定义结构mrec,它标识邮件的接收者和发送者
　　mailreturncode mreturn
　　//定义返回码,用于存放函数的返回值
　　int mnbr
　　//定义临时变量
　　//产生邮件会话对象mses
　　mses = create mailsession
　　//邮件登录。此处用户名,口令缺省
　　mreturn = mses.maillogon(mailnewsession!)
　　if mreturn <> mailreturnsuccess! Then
　　　　messagebox("邮件登录","邮件登录失败!")
　　　　return
　　end if
　　//获得接收到尚未读过的邮件ID号。它是放在mses中的一个字符串数组
　　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_mai1.mle_1.text=mmsg.notetext
　　//退出登录
　　mses.maillogoff()
　　//取消邮件会话
　　destroy mses
　　2、在菜单项"发送邮件"的单击(Clicked)事件下输入下面程序:
　　mailsession mses
　　mailmessage mmsg
　　mailreturncode mreturn
　　//产生邮件会话对象mses
　　mses = create mailsession
　　//邮件登录
　　mreturn = mses.maillogon(mailnewsession!)
　　if mreturn <> mailreturnsuccess! then
　　　　messagebox("邮件登录","邮件登录失败!")
　　　　return
　　end if
　　//弹出邮件地址窗口,获取邮件接收者的地址。地址及名字是放在mmsg中的一个结构数组
　　mreturn = mses.mailaddress(mmsg)
　　if mreturn <> mailreturnsuccess! then
　　　　messagebox("邮件地址","邮件地址出错!")
　　　　return
　　end if
　　//把窗口w_mai1上的多行编辑器mle_1中的内容放到mmsg的notetext字段中
　　mmsg.notetext = w_mai1.mle_1.text
　　//发送邮件
　　mreturn = mses.mailsend(mmsg)
　　if mreturn <> mailreturnsuccess! then
　　　　messagebox("邮件发送","邮件发送失败!")
　　　　return
　　else
　　　　messagebox("邮件发送","邮件发送成功!")
　　end if
　　//退出登录
　　mses.maillogoff()
　　//取消邮件会话
　　destroy mses
　　3、在菜单项"地址簿"的单击(Clicked)事件下输入程序:
　　mailsession mses
　　mailmessage mmsg
　　mailreturncode mreturn
　　//产生邮件会话对象mses
　　mses = create mailsession
　　//邮件登录
　　mreturn = mses.maillogon(mailnewsession!)
　　if mreturn <> mailreturnsuccess! then
　　　　messagebox("邮件登录","邮件登录失败!")
　　　　return
　　end if
　　//弹出邮件地址窗口,获取邮件接收者的地址
　　mreturn = mses.mailaddress(mmsg)
　　if mreturn <> mailreturnsuccess! then
　　　　messagebox("邮件地址","邮件地址出错!")
　　　　return
　　end if
　　//退出登录
　　mses.maillogoff()
　　//取消邮件会话
　　destroy mses
　　三、执行程序
　　正常执行程序的前提是,在Powerbuild应用所在的机器上已装有Microsoft Mail客户软件。
　　1、单击"接收邮件"菜单项或工具图标,执行接收邮件处理程序。该程序将最后接收到尚未读过的邮件内容显示到窗口的多行编辑器中。
　　如果把mreturn = mses.mailgetmessages(true)改为:
　　mreturn = mses.mailgetmessages()
　　便可获得全部邮件(包含已读过的邮件)。
　　2、单击"发送邮件"菜单项或工具图标,执行发送邮件处理程序。该程序执行过程中,弹出地址簿窗口,在你选择好接收者后,则将窗口的多行编辑器中的内容发送出去。
　　3、单击"地址簿"菜单项或工具图标,执行地址簿处理程序。该程序弹出通讯簿窗口,供你增加、编辑或删除邮件地址属性。

[newease]

pb 工资条 邮件群发

http://download.csdn.net/source/2647628

[lzzyi]

谢谢楼上2位，我需要的是简单的收邮件或读取OUTLOOK邮箱的程序，主要是要对收到的邮件管理、分析。发邮件暂时不需要。
PB收邮件这方面的程序我没做过，不知道怎么入手。。。

[lzzyi]

半年多了，差点把这事忘了，再顶上来。请各位大大帮忙，收费的也行

[jinyi7878]

这个简单的收邮件或读取OUTLOOK邮箱的程序，好好