78.htm

vb功能实例介绍。详细、很好的实例说明。

<p>用 MAPI 控件实现发送邮件</p>
<p>作者：影子</p>
<p>1.所需控件 MAPI 控件（两个都要，默认Name），CommandButton 控件（默认Name，Caption为“发送邮件”）。</p>
<p>2.声明变量如下：</p>
<p>Dim strMailAdd As String '收信人地址 如：[e-mail]</p>
<p>Dim strAddName As String '收信人姓名 如：影子</p>
<p>Dim strSubject As String '发信的主题 如：VB爱好者乐园欢迎您</p>
<p>Dim strNoteText As String '发信的内容 </p>
<p>Dim strMailToo As String '发信人地址</p>
<p>DIm strTooName As String '发信人姓名</p>
<p></p>
<p>3.程序开始</p>
<p>Private Sub Form_Load()</p>
<p>strMailAdd = "[e-mail]" '收信人地址</p>
<p>strAddName = "影子" '收信人姓名</p>
<p>strSubject = "VB爱好者乐园" '发信的主题</p>
<p>strNoteText = "中华人民共和国万岁" '发信的内容</p>
<p>End Sub </p>
<p></p>
<p>Private Sub Command1_Click()</p>
<p>MAPISession1.DownLoadMail = False '不立即进入用户的收信箱(非常有用的，不信你设为 True试一下)</p>
<p>MAPISession1.LogonUI = True '显示一个启动动话框</p>
<p>MAPISession1.SignOn '这因该算激活吧，注意：不要把FoxMail在IE中设置为默认电子邮件，否则会出现错误</p>
<p>MAPIMessages1.SessionID = MAPISession1.SessionID</p>
<p>MAPIMessages1.Compose '构成一条消息</p>
<p>MAPIMessages1.RecipAddress = strMailAdd '收信人地址</p>
<p>MAPIMessages1.ResolveName</p>
<p>MAPIMessages1.RecipDisplayName = strAddName '收信人姓名</p>
<p></p>
<p>MAPIMessages1.MsgSubject = strSubject '发信的主题</p>
<p>MAPIMessages1.MsgNoteText = strNoteText '发信的内容</p>
<p>MAPIMessages1.AttachmentIndex = 0 '当前附件的索引位置</p>
<p>MAPIMessages1.AttachmentPathName = "d:\1.mdb" '附件的路径</p>
<p></p>
<p>MAPIMessages1.Send '开始发送</p>
<p>MAPISession1.SignOff '可以算成关闭吧 </p>
<p>End Sub</p>
<p>4.大功告成，你可要试一下其实要编写一个发信的程序，不需要懂什么TCP的，VB 里有许多好的控件可以帮助咱们这些初学都的忙！！</p>
<p>5.补充：如果你还要加其他的功能，就看一看 Mapi98.CHM 里面有详细的帮助。</p>