上传资源得积分
:sj52abcd当今世界电子邮件已经是网络生活中不可或缺的，相信每个认知网络的人都会有一个或多个自己的电子邮箱，人们通过电子邮件进行通信和交流，许多商家和组织机构也用电子邮件进行各种商业活动和业务联系，毫无疑问，电子邮件已经逐渐开始取代普通的信件，成为为主流的信件交流工具，带来的就是电子商务的发展。
VisualBasic6.0是微软开发的一款面向对象的程序设计语言，被广泛的应用各种系统应用程序的开发。VB有灵活，高效，易用，功能强大的等特点，所以用VB来编写电子邮件收发系统很合适。邮件收发系统是个人软件，利用个人电脑的outlook终端进行网络会话，相对的又比outlook邮件系统简单实用。当今网络上邮件系统多不胜数，几乎全是基于Web服务器的asp系统。用vb编写邮件系统没有Web服务器支持，所以不能像网络上那样有华美的画面和各种多媒体功能，用vb编写的只是一个邮件客户端。相比较而言，拥有的确是简洁实用和方便快捷，大大提高了我们的工作效率，节省了我们的时间。
邮件发送程序的基本处理过程是：根据用户输入信息组成邮件，然后使用MAPI
消息控件的Send方法将邮件发出。编程步骤如下：
1、新建一个VB项目。
2、将缺省窗体Form1的Caption属性设置为"发送邮件"。
3、将MAPI控件加入VB工具框。
4、在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控 件MAPIMessages1。
5、在Form1中加入三个文本框控件，将它们的Name属性分别设置为 txtSendTo、txtSubject、txtMessage，并将txtMessage的Multiline属性设置为 True。这三个文本框控件将分别用于填写邮件的收件人、主题和内容。
6、在Form1中加入三个标签控件，将它们的Caption属性分别设置为"收件人"、"主题"和"内容"，并将它们放在合适的位置用以标注相应的文本框控件。
7、在Form1中加入一个命令按钮控件，将其Caption属性和Name属性分别设置为"发送"和"cmdSend"。
8、将下列代码加入Form1的Form_Load事件：
Private Sub Form_Load()
MAPISession1.SignOn
End Sub
9、将下列代码加入Form1的Form_Unload事件：
Private Sub Form_Unload(Cancel As Integer)
MAPISession1.SignOff
End Sub
10、将下列代码加入cmdSend的Click事件：
Private Sub cmdSend_Click()
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = txtSendTo.Text
.MsgSubject = txtSubject.Text
.MsgNoteText = txtMessage.Text
.SessionID = MAPISession1.SessionID
.Send
End With
End Sub
程序运行后如图所示。在填写完邮件的收件人、主题和内容后，按"发送"命令按钮，如果没有出现运行时错误提示，那么就表明邮件已经成功地发往目的地了，否则，请检查填写的收件人地址是否准确无误以及系统中运行的消息系统工作是否正常。
参考文献
《VisualBasic6.0 Internet程序设计》刘新民 清华大学出版社
《VisualBasic6.0网络编程》李迎春 北京希望电子出版社
《VisualBasic6.0入门与提高》赵建敏 航空工业出版社
《VisualBasic6.0控件应用》 赵建敏 郭庆 航空工业出版社
《VisualBasic6.0实用程序编程》 徐小刚 清华大学出版社
《Visual Basic 6.0 控件参考手册》(上下) 北京希望电子出版社
《Visual Basic 6.0 组件工具指南》 北京希望电子出版社
《网络发展简史》 吴过
《现代网络技术》 美 扎克尔 王建华 机械工业出版社
《网络安全与维护》 万振凯 清华大学出版社
《电子商务基础与应用》 赵燕平 北京大学出版社
《电子商务编程与技巧》吴洋 浦东电子出版社
《使用VB收发电子邮件》吴斌 中国航空信息中心
《发送电子邮件附件》 陈逸俊
《电子邮件发展历史》 网易
《用VB实现自己的邮件自己发》燕义怀 赛迪网-中国电脑教育报
《用VB设计有安全认证的Email》刘静 yesky
