VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 用MAPI发送邮件
发表评论(0)作者:, 平台:, 阅读:13219, 日期:2000-09-19
主题:用 MAPI 控件实现发送邮件

作者:影子 VB爱好者乐园 yingzi007.126.com


1.所需控件 MAPI 控件(两个都要,默认Name),CommandButton 控件(默认Name,Caption为“发送邮件”)。

2.声明变量如下:

Dim strMailAdd As String '收信人地址 如:yingzi007@21cn.com

Dim strAddName As String '收信人姓名 如:影子

Dim strSubject As String '发信的主题 如:VB爱好者乐园欢迎您

Dim strNoteText As String '发信的内容

Dim strMailToo As String '发信人地址

DIm strTooName As String '发信人姓名


3.程序开始

Private Sub Form_Load()

strMailAdd = "yingzi007@21cn.com" '收信人地址

strAddName = "影子" '收信人姓名

strSubject = "VB爱好者乐园" '发信的主题

strNoteText = "中华人民共和国万岁" '发信的内容

End Sub


Private Sub Command1_Click()

MAPISession1.DownLoadMail = False '不立即进入用户的收信箱(非常有用的,不信你设为 True试一下)

MAPISession1.LogonUI = True '显示一个启动动话框

MAPISession1.SignOn '这因该算激活吧,注意:不要把FoxMail在IE中设置为默认电子邮件,否则会出现错误

MAPIMessages1.SessionID = MAPISession1.SessionID

MAPIMessages1.Compose '构成一条消息

MAPIMessages1.RecipAddress = strMailAdd '收信人地址

MAPIMessages1.ResolveName

MAPIMessages1.RecipDisplayName = strAddName '收信人姓名


MAPIMessages1.MsgSubject = strSubject '发信的主题

MAPIMessages1.MsgNoteText = strNoteText '发信的内容

MAPIMessages1.AttachmentIndex = 0 '当前附件的索引位置

MAPIMessages1.AttachmentPathName = "d:\1.mdb" '附件的路径



MAPIMessages1.Send '开始发送

MAPISession1.SignOff '可以算成关闭吧

End Sub

4.大功告成,你可要试一下其实要编写一个发信的程序,不需要懂什么TCP的,VB 里有许多好的控件可以帮助咱们这些初学都的忙!!

5.补充:如果你还要加其他的功能,就看一看 Mapi98.CHM 里面有详细的帮助。