说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB用 MAPI 控件实现发送邮件

HTML文档下载 WORD文档下载 PDF文档下载
VB用 MAPI 控件实现发送邮件
作者:影子
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 里面有详细的帮助。
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘