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

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

图1窗体设置

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

窗体设计

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

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

（出处：赢政天下整理收藏）

相关文章：

相关软件：

→ 特别推荐

→ 热点TOP10

我为人人《《==》》人人为我

关于我们 |

帮助(？)

| 广告服务 |

版权声明 |

商业合作 |

发展历程 |

加盟我们 |

联系我们

Copyright © 1999-2003

winzheng.com All Rights Reserved.

繁体版:由华琦数码技术提供

Powered

by:MeSky.Net