在PowerBuilder中实现电子邮件 _天极网 网页网页产品图片报价下载天极网新闻访谈观点图文直播群乐论坛产品报价维修软件下载更多>> 全国分站北京上海广州深港武汉南京福建沈阳成都杭州长沙西安长春重庆大庆合肥惠州青岛郑州泰州厦门淄博天津无锡哈尔滨手机电脑数码家电硬件外设企业办公游戏手机安极4GWP专区配件移动电源笔记本超极本平板一体机台式机商用工作站知本家可穿戴相机摄像机单电单反海极社女性相机GPS潮生活国产平板电视冰箱洗衣机空调高清盒子厨卫投影生活家电CPU主板显示器音频机电键鼠显卡内存硬盘服务器信息化开发办公打印网络设备商喷方案云计算游戏手机游戏下载游戏硬件动漫网页游戏 天极网新闻导购评测行情视频人像美图桌面社会万象真情时刻奇闻异事娱乐八卦 您现在的位置： 天极网>新闻> 在PowerBuilder中实现电子邮件 cpcw1997-12-16 00:00 分享到：我要吐槽 PowerBuilder不仅在开发数据库应用方面具有强大的优势,而且它为用户提供的DDE、OLE、MAPI等接口也给编程人员一个友好的开发界面。PowerBuilder基于COM编程的思想使开发者不必关心电子邮件的底层协议的实现就可以很轻松地编写出一些有关电子邮件的应用软件。本文介绍的电子邮件自动寻呼就是在PowerBuilder中通过调用MS_Mail系统和Windows SDK函数实现的。 　　本程序是利用TIMER事件，每隔一定时间，检测一次用户的电子信箱，如果发现新邮件，就通过MODEM拨打用户的呼机号码来通知用户，从而实现电子邮件自动寻呼的目的。PowerBuilder没有内置相关函数来支持拨号功能，但可以调用Windows底层通信函数来实现。具体方法如下： 　　首先在PowerBuilder中打开应用窗口，创建一个新应用及mailcall.pbl，在应用的open事件下输入脚本 open(w_main) 创建一个窗口w_main，在窗口上放置如下控件（见左图及表）： 　　在全局变量声明窗口中输入如下语句： 　　mailMessage msg 　　mailSession msession 　　mailReturnCode mrtncode 　　在外部函数声明窗口中输入如下语句： 　　FUNCTION int OpenComm(string comm,uint inqueue,uint OutQueue)＆ 　　Library ″user.exe″ 　　FUNCTION int CloseComm(int pFile) Library ″user.exe″ 　　FUNCTION int FlushComm(int pFile, int size) Library ″user.exe″ 　　FUNCTION int WriteComm(int pFile,string buffer,int size) Library ″user.exe″ 　　在窗口w_main的open、timer和close事件中输入以下脚本： 　　1.open事件 　　sle_1.text=″″ 　　sle_2.text=″″ 　　2.timer事件 　　int mCount,pFile 　　string mbLocation,mContext,timestr,commstr 　　mrtncode=msession.mailGetMessages(TRUE)//得到接收到的新邮件的ID 　　if mrtncodemailReturnSuccess! then Return //如果无新邮件,等待下次检索 　　timestr=string(Month(Today()),″00″)＋string(Day(Today()),″00″)＋＆ 　　string(Hour(Now()),″00″)＋string(Minute(Now()),″00″) 　　mblocation=″c:\mail\m″＋timestr＋″.txt″ //新邮件存放的位置 　　mcount=Upperbound(msession.MessageID[])//取最后一封新邮件 　　msession.mailReadMessage(msession.MessageID[mount],ms ailEntireMessage!,TRUE) 　　mcontext=msg.NoteText 　　pFile=FileOpen(mbLocation,Streammode!,Write!,LockReadWrite!,Replace!) 　　FileWrite(pFile,mContext)//保存新邮件 　　FileClose(pFile) 　　commstr=″atdt″＋sle_3.text＋″～r～n″ //要拨打的call机号码 　　pFile=OpenComm(″com2″,128,128)//打开com2口 　　FlushComm(pFile,0) 　　FlushComm(pFile,1) 　　WriteComm(pFile,commstr,len(commstr))//开始拨打用户的call机 　　WriteComm(pFile,″～r～n″,2) 　　CloseComm(pFile) 　　3.CLOSE事件 　　msession.mailLogoff()//退出邮件系统 　　Destroy msession//释放邮件对象占用的内存 　　4.在cb_2的clicked事件中输入以下代码： 　　mailLogonOption mlogopt 　　msession=create mailsession//实例化对象变量msession 　　mlogopt=mailNewSession! 　　if sle_1.text=″″ or sle_2.text=″″ or sle_3.text=″″ then 　　MessageBox(″错误″,″请输入用户名和口令!″) 　　else 　　//以用户输入的用户名和口令开始一个邮件会话 　　mrtncode=msession.mailLogon(sle_1.text,sle_2.text,mlogopt) 　　if mrtncodemailReturnSuccess! then 　　messagebox(″错误″,″信箱登录失败!″) 　　Return 　　end if 　　timer(300) //若登录成功，每5分钟检索一次邮箱 　　end if 　　5.在cb_1的clicked事件中输入以下代码： 　　halt//终止程序 　　注意：要达到电子邮件的自动寻呼的目的，还必须配置好MS_Mail系统。正确配置好用户的个人信息和邮箱信息(POP3和SMTP)。 （作者：河南　岳兵责任编辑：） 欢迎在新浪微博上关注我们 评论 最新文章更多>> 4999元笑傲江湖 乐视TV超级电视X60热卖中 高品质创造高收益 商务彩色喷墨打印机推荐 经典奢华享受 苹果iPhone 5S行货报价4300元 复古造型专业相机 徕卡X2特惠9700元 双灯系统 松下FDX91CK工程投影机促销98000 简洁功能全 Acase iPad mini2保护皮套 旁轴数码相机 徕卡M9特价仅售38000元 四路复合视频同屏显示 大恒QP300仅售1350元 性能强劲 奢华翻盖 三星W2013特价仅8200元 12000页印量 惠普硒鼓16A(Q7516A)特价780元 频道精华 三星N9008V领衔 市售低调大气智能手机推荐《扳手少年》可动手办撬动国漫产业新一环京东电视智能大屏风暴 满5000立减400元直达心理 原封HTC One网购e站报价1890元2K屏幕八核芯 新旗舰LG G3不完全猜想热销爆品 联想LJ1680激光打印机限时领券中国厂商新机会!写在Intel至强E7 v2发布前会员降100元 同方锋锐X460超薄游戏本热卖 笔记本手机数码家电 只是扔掉数据线就了事？无线充电的乌托邦 【易迅】GT735M显卡 索尼14A16SCP报价5499 【京东】1080高清屏 索尼15A17SCB报5299元 【热销】性能彪悍 宏基V5-573G报4799元 【京东】热门强机 宏碁V5-472G报4199元 【京东】只为更轻更薄 宏碁E1-570G售3599元 【官网】360度翻转 戴尔XPS 11变形特价8999 三星Gear相随 问问你的双手想要如何驾车 Desire系列回顾 HTC新渴望8系于MWC延续经典 经典奢华享受 苹果iPhone 5S行货报价4300元 经典三防之王 路虎A3 现特价售4500元 高端奢华·尊御三星W2014 售价14600元 保时捷奢华版 黑莓P9981港版特价促销中 极致视觉体验 三星N9008v仅售4150元 视界 镜在眼前 奥林巴斯新品发布会专访 索尼高清影视学院支持合作电视台节目制作 复古造型专业相机 徕卡X2特惠9700元 旁轴数码相机 徕卡M9特价仅售38000元 佳能EOS 70D获2013年度最佳单反相机 强势回归 柯达Pixpro S-1微单相机发布 央视聚焦创世中文网 解读移动阅读 4999元笑傲江湖 乐视TV超级电视X60热卖中 看片达人的最佳拍档 高清网络机顶盒推荐 双灯系统 松下FDX91CK工程投影机促销98000 食尚密会瘦脸修容术 小家电祛咬肌还原小V脸 实用主义者首选 三星UA55F8500热卖中 2014电视怎么玩？看国际巨头三星电子新动向 再降2000元 三星65F9000仅售29699元 焦点热词 Ultrabook苹果ipad2小米M1vivo S7 诺基亚N8美的冰箱诺基亚N9诺基亚手机酷派7728iphone 4sWindows8超极本 关于我们|About us|天极服务|天极大视野|天极动态|加入我们|网站地图|网站律师|友情合作|RSS订阅|意见反馈Copyright (C) 1999-2014 Yesky.com, All Rights Reserved 版权所有 天极网络