科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件自己的邮件自己发

自己的邮件自己发

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

长时间使用Outlook Express收发电子邮件的软件,你是不是也有点烦?是不是像我一样,也想什么时候自己动手编写一个属于自己收发电子邮件的软件。

作者:燕义怀 来源:soft6 2008年5月15日

关键字: 自己 邮件 VB vb.net Windows

  • 评论
  • 分享微博
  • 分享邮件
 长时间使用Outlook Express收发电子邮件的软件,你是不是也有点烦?是不是像我一样,也想什么时候自己动手编写一个属于自己收发电子邮件的软件。如果是这样,那么随我来吧!其实在VB中,应用程序可以通过调用微软公司的MAPI(Messaging Application Programming Interface)消息应用程序编程接口,轻松实现收发电子邮件的功能。

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

  窗体设计

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

  

图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下运行通过

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章