136.htm

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

<p>vb设计数据库电子邮件程序</p>
<p></p>
<p>　　ADODB Fields </p>
<p></p>
<p>　　与其为ADODB作一个reference，不如通过objects来存取。此子程序将ComboBox作为一个变量参数，可以用来更新Database properties上的Field combo和Secondary Field Combo.。</p>
<p></p>
<p>　　Fill Field Combo使用DNS 及 Table combo boxes提供的信息来打开表格。当型循环会扫描每个域名并将此添加到Field combo上。 </p>
<p></p>
<p>Private Sub FillFieldCombo(myCombo As ComboBox)</p>
<p>注释：-- myCombo - the ComboBox that is to be updated by the subroutine </p>
<p>On Error GoTo DSNTablesError</p>
<p>注释：--Populate the field combo using ADODB </p>
<p></p>
<p>Dim oTempConnection As Object</p>
<p>Dim oTable As Object</p>
<p></p>
<p>Dim intCount As Integer</p>
<p>Dim intNumOfFields As Integer</p>
<p></p>
<p>Set oTempConnection = CreateObject("ADODB.Connection")</p>
<p>oTempConnection.Open PropertyForm.DSNCombo.Text, _</p>
<p>PropertyForm.UserNameText, PropertyForm.PasswordText</p>
<p>Set oTable = CreateObject("ADODB.RecordSet")</p>
<p>Set oTable.ActiveConnection = oTempConnection</p>
<p></p>
<p>oTable.Source = "SELECT * FROM " & PropertyForm.TableCombo</p>
<p>oTable.Open</p>
<p></p>
<p>intNumOfFields = oTable.Fields.Count</p>
<p>myCombo.Clear</p>
<p></p>
<p>While (intCount < intNumOfFields)</p>
<p>myCombo.AddItem oTable.Fields(intCount).Name</p>
<p>intCount = intCount + 1</p>
<p>Wend</p>
<p></p>
<p>oTable.Close</p>
<p>oTempConnection.Close</p>
<p>Exit Sub</p>
<p></p>
<p>DSNTablesError:</p>
<p>MsgBox "Invalid Table Name"</p>
<p>End Sub </p>
<p></p>
<p></p>
<p></p>
<p>　　Outlook Objects </p>
<p></p>
<p>　　FillFolderCombo和FillMailboxCombo 子程序非常类似。都是通过开启至OUTLOOK的连接以及增加combos来运作的。FillMailboxCombo：当用户登入另外的邮箱，则会被默认为是Outlook里的最上层文件夹；FillFolderCombo则是进入专门的邮箱的子文件夹并增加Folder combo。</p>
<p></p>
<p>Private Sub FillFolderCombo()</p>
<p>On Error GoTo Err_Folder</p>
<p>注释： 注释：Put the names of all available folders in the folderCombo</p>
<p></p>
<p>Dim myOlApp As Object</p>
<p>Dim olNamespace As Object</p>
<p>Dim iCount As Integer</p>
<p>Dim mystr As String</p>
<p></p>
<p></p>
<p>Set myOlApp = CreateObject("Outlook.Application")</p>
<p>Set olNamespace = myOlApp.GetNameSpace("MAPI")</p>
<p></p>
<p>iCount = 1</p>
<p>FolderCombo.Clear</p>
<p>mystr = MailboxCombo</p>
<p></p>
<p>While iCount <= olNamespace.folders(mystr).folders.Count</p>
<p>FolderCombo.AddItem olNamespace.folders(mystr).folders(iCount).Name</p>
<p>iCount = iCount + 1</p>
<p>Wend</p>
<p></p>
<p>Exit Sub</p>
<p>Err_Folder:</p>
<p>MsgBox "Unable to resolve mailbox"</p>
<p>End Sub </p>
<p></p>
<p></p>
<p></p>
<p>Private Sub FillMailboxCombo()</p>
<p>注释：--Fill in all the names of available mailboxes </p>
<p></p>
<p>Dim myOlApp As Object</p>
<p>Dim olNamespace As Object</p>
<p>Dim iCount As Integer</p>
<p></p>
<p>Set myOlApp = CreateObject("Outlook.Application")</p>
<p>Set olNamespace = myOlApp.GetNameSpace("MAPI")</p>
<p></p>
<p>iCount = 1</p>
<p>MailboxCombo.Clear</p>
<p>While iCount <= olNamespace.folders.Count</p>
<p>MailboxCombo.AddItem olNamespace.folders(iCount).Name</p>
<p>iCount = iCount + 1</p>
<p>Wend</p>
<p>End Sub </p>