用VB实现自己的邮件“自己发”

热门软件: QQ 瑞星 pplive e话通木马克星千千静听 office2000 五笔字根 Photoshop 视频分割

返回文章教程首页 >> 编程技术 >> VB & VB.NET教程 >> 用VB实现自己的邮件“自己发”

用VB实现自己的邮件“自己发”

添加时间: 2006-2-15 3:41:13 作者: VB教程阅读次数:140 来源: http://www.d9soft.com

　　

请添加描述

　　VB中有两个邮件收发功能的核心控件：MAPI会话和MAPI消息控件。MAPI会话控件用于建立和控制一个Microsoft Mail会话，MAPI消息控件用于创建和收发邮件消息。此外，程序必须运行在采用MAPI的消息系统(如Microsoft Exchange、Outlook等)的环境中。

　　窗体设计

　　打开VB，在Form1中加入5个文本框，7个命令按钮，同时通过添加部件的方法将MAPI控件加入窗体中(如图1)。各对象的属性设置如图2。　　

　　请添加描述

请添加描述

　　编写代码

　　Private Sub Command1_Click()
　　If Val(Text2.Text) <= 0 Then Exit Sub
　　Text2.Text = Val(Text2.Text) - 1
　　Call xs ()
　　End Sub
　　Private Sub Command2_Click()
　　If 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′建立发送缓冲区
　　MAPIMessages1.Compose′写新邮件
　　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.SignOff
　　MAPISession1.DownLoadMail = True
　　MAPISession1.SignOn
　　MAPIMessages1.SessionID = MAPISession1.SessionID
　　MAPIMessages1.FetchUnreadOnly = False
　　MAPIMessages1.Fetch
　　Text1.Text = MAPIMessages1.MsgCount
　　Text2.Text = 0
　　End Sub
　　Private Sub Command6_Click()
　　On Error GoTo err:
　　MAPIMessages1.Show
　　err:
　　End Sub
　　Private Sub Form_Activate()
　　Call xs
　　End Sub
　　Private Sub Form_Load()′系统初始化
　　MAPISession1.DownLoadMail = False
　　MAPISession1.SignOn′处理开始
　　MAPIMessages1.SessionID = MAPISession1.SessionID
　　MAPIMessages1.FetchUnreadOnly = False
　　MAPIMessages1.Fetch
　　Text1.Text = MAPIMessages1.MsgCount
　　Text2.Text = 0
　　End Sub
　　Private Sub Command7_Click()
　　MAPISession1.SignOff　′处理结束
　　End
　　End Sub

　　好了，代码终于写完了，运行一下，看看效果，还不错吧！当然，如果你想更完善一些，就需要你自己努力了。本程序在Windows XP下运行通过。　　

上下文章:

上一篇文章: VB6.0应用程序界面设计探讨下一篇文章: 巧用VB轻松设计出个“出题”老师

相关文章:

相关软件:

字母检索 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 回到顶部