![](/icons/22244de.gif)
![](/icons/22244yi.gif)
![](/icons/22244dou2.gif)
![](/icons/22244de.gif)
![](/icons/22244de.gif)
![](/icons/22244de.gif)
![](/icons/22244dou2.gif)
![](/icons/22244yi.gif)
![](/icons/22244de.gif)
![](/icons/22244dou2.gif)
---- 在PowerBuild 应 用 中 实 现 收 发 电 子 邮 件, 主 要 是 通 过PowerBuild 系 统 提 供
![](/icons/22244de.gif)
![](/icons/22244yi.gif)
![](/icons/22244de.gif)
![](/icons/22244dou2.gif)
![](/icons/22244de.gif)
![](/icons/22244de.gif)
![](/icons/22244dou2.gif)
----
![](/icons/22244yi.gif)
![](/icons/22244yi.gif)
![](/icons/22244de.gif)
![](/icons/22244dou2.gif)
![](/icons/22244yi.gif)
![](/icons/22244de.gif)
![](/icons/22244de.gif)
![](/icons/22244yi.gif)
![](/icons/22244dou2.gif)
![](/icons/22244de.gif)
---- [ 图 略]
---- 2、 为 各 菜 单 项 编 制 事 件(Event) 处 理 程 序(Script)
![](/icons/22244dou2.gif)
![](/icons/22244de.gif)
![](/icons/22244dou2.gif)
---- 1. 在 菜 单 项“ 接 收 邮 件”
![](/icons/22244de.gif)
mailsession mses
file://定义对象mses,以供在
![](/icons/22244chengxu.gif)
mailmessage mmsg
//定义结构mmsg,此结构用于描述邮件
![](/icons/22244de.gif)
mailrecipient mrec
//定义结构mrec,它标识邮件
![](/icons/22244de.gif)
![](/icons/22244return.gif)
![](/icons/22244return.gif)
//定义返回码,用于存放
![](/icons/22244hanshu.gif)
![](/icons/22244de.gif)
![](/icons/22244int.gif)
//定义临时变量
//产生邮件会话对象mses
mses = create mailsession
//邮件登录
![](/icons/22244dou2.gif)
m
![](/icons/22244return.gif)
![](/icons/22244new.gif)
![](/icons/22244if.gif)
![](/icons/22244return.gif)
![](/icons/22244return.gif)
messagebox("邮件登录","邮件登录失败!")
![](/icons/22244return.gif)
end
![](/icons/22244if.gif)
//获得接收到尚未读过
![](/icons/22244de.gif)
![](/icons/22244dou2.gif)
它是放在mses中
![](/icons/22244de.gif)
![](/icons/22244yi.gif)
![](/icons/22244zifu.gif)
![](/icons/22244shuzu.gif)
m
![](/icons/22244return.gif)
![](/icons/22244if.gif)
![](/icons/22244return.gif)
![](/icons/22244return.gif)
messagebox("邮件获取","邮件获取失败或无新邮件!")
![](/icons/22244return.gif)
end
![](/icons/22244if.gif)
//获得接收到尚未读过
![](/icons/22244de.gif)
mnbr = upperbound(mses.messageid
![](/icons/22244zhk2.gif)
file://读取最后接收到
![](/icons/22244de.gif)
![](/icons/22244dou2.gif)
它被放在mmsg
![](/icons/22244de.gif)
![](/icons/22244de.gif)
![](/icons/22244zifu.gif)
mses.mailreadmessage(mses.messageid[mnbr],
mmsg,mailentiremessage!,true)
//把获得
![](/icons/22244de.gif)
![](/icons/22244de.gif)
w_mai1.mle_1.text=mmsg.notetext
//退出登录
mses.maillogoff
![](/icons/22244kh.gif)
//取消邮件会话
destroy mses
---- 2. 在 菜 单 项“ 发 送 邮 件”
![](/icons/22244de.gif)
mailsession mses
mailmessage mmsg
![](/icons/22244return.gif)
![](/icons/22244return.gif)
//产生邮件会话对象mses
mses = create mailsession
//邮件登录
m
![](/icons/22244return.gif)
![](/icons/22244new.gif)
![](/icons/22244if.gif)
![](/icons/22244return.gif)
![](/icons/22244return.gif)
messagebox("邮件登录","邮件登录失败!")
![](/icons/22244return.gif)
end
![](/icons/22244if.gif)
//弹出邮件地址窗口,获取邮件接收者
![](/icons/22244de.gif)
![](/icons/22244dou2.gif)
地址及名字是放在mmsg中
![](/icons/22244de.gif)
![](/icons/22244yi.gif)
![](/icons/22244shuzu.gif)
m
![](/icons/22244return.gif)
![](/icons/22244if.gif)
![](/icons/22244return.gif)
![](/icons/22244return.gif)
messagebox("邮件地址","邮件地址出错!")
![](/icons/22244return.gif)
end
![](/icons/22244if.gif)
//把窗口w_mai1上
![](/icons/22244de.gif)
中
![](/icons/22244de.gif)
![](/icons/22244de.gif)
mmsg.notetext = w_mai1.mle_1.text
//发送邮件
m
![](/icons/22244return.gif)
![](/icons/22244if.gif)
![](/icons/22244return.gif)
![](/icons/22244return.gif)
messagebox("邮件发送","邮件发送失败!")
![](/icons/22244return.gif)
![](/icons/22244else.gif)
messagebox("邮件发送","邮件发送成功!")
end
![](/icons/22244if.gif)
//退出登录
mses.maillogoff
![](/icons/22244kh.gif)
//取消邮件会话
destroy mses
---- 3.在菜单项“地址簿”
![](/icons/22244de.gif)
![](/icons/22244chengxu.gif)
mailsession mses
mailmessage mmsg
![](/icons/22244return.gif)
![](/icons/22244return.gif)
//产生邮件会话对象mses
mses = create mailsession
//邮件登录
m
![](/icons/22244return.gif)
![](/icons/22244new.gif)
![](/icons/22244if.gif)
![](/icons/22244return.gif)
![](/icons/22244return.gif)
messagebox("邮件登录","邮件登录失败!")
![](/icons/22244return.gif)
end
![](/icons/22244if.gif)
//弹出邮件地址窗口,获取邮件接收者
![](/icons/22244de.gif)
m
![](/icons/22244return.gif)
![](/icons/22244if.gif)
![](/icons/22244return.gif)
![](/icons/22244return.gif)
messagebox("邮件地址","邮件地址出错!")
![](/icons/22244return.gif)
end
![](/icons/22244if.gif)
//退出登录
mses.maillogoff
![](/icons/22244kh.gif)
//取消邮件会话
destroy mses
---- 3、 执 行 程 序
![](/icons/22244dou2.gif)
![](/icons/22244de.gif)
![](/icons/22244de.gif)
![](/icons/22244dou2.gif)
---- 1. 单 击“ 接 收 邮 件” 菜 单 项 或 工 具 图 标, 执 行 接 收 邮 件 处 理 程 序
![](/icons/22244dou2.gif)
![](/icons/22244de.gif)
![](/icons/22244de.gif)
![](/icons/22244dou2.gif)
如 果 把m
![](/icons/22244return.gif)
m
![](/icons/22244return.gif)
![](/icons/22244kh.gif)
便 可 获 得 全 部 邮 件( 包 含 已 读 过
![](/icons/22244de.gif)
![](/icons/22244dou2.gif)
---- 2. 单 击“ 发 送 邮 件” 菜 单 项 或 工 具 图 标, 执 行 发 送 邮 件 处 理 程 序
![](/icons/22244dou2.gif)
![](/icons/22244de.gif)
![](/icons/22244de.gif)
![](/icons/22244dou2.gif)
---- 3. 单 击“ 地 址 簿” 菜 单 项 或 工 具 图 标, 执 行 地 址 簿 处 理 程 序
![](/icons/22244dou2.gif)
![](/icons/22244dou2.gif)
最新评论