给客户发邮件介绍自己 发邮件自己的邮件自己发.docVIP

给客户发邮件介绍自己 发邮件自己的邮件自己发 发邮件:自己的邮件自己发疯狂代码 http://CrazyC/ ?:http:/CrazyC/VisualBasic/Article14903.html 长时间使用outlook express收发电子邮件 软件Softw… 第六章 认识区域：位置与分布第一节 东北地区的地理位置与自然环境说课稿 今天我说课的题目是东北地区的地理位置与自然环境，所选用的教材为湘教版义务教育课程标准实验教科书。根据新课标的理念，对于本节课，我将以教什么，怎样教，为什么这样教为思路，从说教材、… 志杰 毒 灞 冀 麓　在 成长 的道路 上 ，尝试是 人 生 的必修 课 。 比如 ，尝试 着 举手 发　言 ，尝试 着参 加竞 赛 ，尝试 着 克服 困难 ，尝试 着宽 容待人 … …每 一　次尝试 不一定 都成 功 ，但 一 定会 … 发邮件:自己的邮件自己发 疯狂代码 http://CrazyC/ ?:http:/CrazyC/VisualBasic/Article14903.html 长时间使用outlook express收发电子邮件 软件Software 你是不是也有点烦？是不是像我样也想什么时候自己动手编写个属于自己收发电子邮件软件Software如果是这样那么随我来吧！其实在vb中应用可以通过微软公司mapi(messaging application progra mm ing erface)消息应用编程接口轻松实现收发电子邮件功能 　　 vb中有两个邮件收发功能核心Control控件:mapi会话和mapi消息Control控件mapi会话Control控件用于建立和控制个microsoft mail会话mapi消息Control控件用于创建和收发邮件消息此外必须运行在采用mapi消息系统(如microsoft exchange 、outlook等)环境中 窗体设计 　　 打开vb在form1中加入5个文本框7个命令按钮同时通过添加部件思路方法将mapiControl控件加入窗体中(如图1)各对象属性设置如图2 500)this.style.width=500;\ 500)this.style.width=500;\ 图2 对象属性设置 　　编写代码 　　　　private sub command1_click 　　　　 val(text2.text) 　　　　text2.text = val(text2.text) - 1 　　　　call xs 　　　　end sub 　　　　private sub command2_click 　　　　 val(text2.text) = val(text1.text) - 1 then exit sub 　　　　text2.text = val(text2.text) + 1 　　　　call xs 　　　　end sub 　　　　private sub command3_click 　　　　mapimessages1.sessionid = mapisession1.sessionid 　　　　mapimessages1.msgindex = -1 ′ 建立发送缓冲区 　　　　pose ′ 写新邮件 　　　　mapimessages1.send true 　　　　end sub 　　　　private sub xs 　　　　mapimessages1.msgindex = val(text2.text)　′ 指定电子邮件 　　　　text3.text = mapimessages1.msgsubject　　′ 电子邮件主题 　　　　text4.text = mapimessages1.msgorigdisplayname 　　　　　　′ 电子邮件发信人姓名 　　　　text5.text = mapimessages1.msgnotetext　′ 电子邮件全文 　　　　end sub 　　　　private sub command4_click 　　　　mapimessages1.sessionid = mapisession1.sessionid 　　　　mapimessages1.msgindex = val(text2.text) 　　　　mapimessages1.reply 　　　　mapimessages1.send true 　　　　end sub 　　　　private sub command5_click 　　　　mapisession1.