139.htm

VB的一些网络编程的例子,个人认为还不错。大家一起来研究一下.

<p>vb设计数据库电子邮件程序(6)</p>
<p></p>
<p></p>
<p>　　获得和修改注册表设置 </p>
<p></p>
<p>注释：-- Property form load event</p>
<p>注释：-- Load all registry settings</p>
<p>DSNCombo = GetSetting("EmailMaker", "Database", "DSN", "OLE_DB_NWind_Jet")</p>
<p>TableCombo = GetSetting("EmailMaker", "Database", "Table", "Customers")</p>
<p>FieldCombo.Text = GetSetting("EmailMaker", "Database", "Field", "ContactName")</p>
<p>UserNameText = GetSetting("EmailMaker", "Database", "User Name", "")</p>
<p>PasswordText = GetSetting("EmailMaker", "Database", "Password", "")</p>
<p>MailboxCombo = GetSetting("EmailMaker", "Mailbox", "Mailbox", "Mailbox - NorthWind")</p>
<p>FolderCombo = GetSetting("EmailMaker", "Mailbox", "Folder", "Drafts")</p>
<p>FromText = GetSetting("EmailMaker", "Mailbox", "From", "NorthWind")</p>
<p>SecondaryOption = GetSetting("EmailMaker", "Secondary", "On", 0)</p>
<p>SecondFieldCombo.Text = GetSetting("EmailMaker", "Secondary", "Field", "")</p>
<p></p>
<p>注释：-- Apply button注释：s OnClick event</p>
<p>Private Sub cmdApply_Click()</p>
<p>注释：-- Save all settings to registry </p>
<p></p>
<p>SaveSetting "EmailMaker", "Database", "DSN", DSNCombo.Text</p>
<p>SaveSetting "EmailMaker", "Database", "Table", TableCombo.Text</p>
<p>SaveSetting "EmailMaker", "Database", "Field", FieldCombo.Text</p>
<p>SaveSetting "EmailMaker", "Database", "User Name", UserNameText</p>
<p>SaveSetting "EmailMaker", "Database", "Password", PasswordText</p>
<p>SaveSetting "EmailMaker", "Mailbox", "Mailbox", MailboxCombo</p>
<p>SaveSetting "EmailMaker", "Mailbox", "Folder", FolderCombo</p>
<p>SaveSetting "EmailMaker", "Mailbox", "From", FromText</p>
<p>SaveSetting "EmailMaker", "Secondary", "On", SecondaryOption</p>
<p>SaveSetting "EmailMaker", "Secondary", "Field", SecondFieldCombo.Text </p>
<p></p>
<p>注释：-- Reinitialize the main form</p>
<p>MDIMain.Initialize</p>
<p></p>
<p>注释：-- Disable the Apply button</p>
<p>cmdApply.Enabled = False</p>
<p>End Sub </p>
<p></p>
<p></p>
<p></p>
<p>　　以下是ADODB FIELDS 代码： </p>
<p></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></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>
<p></p>
<p></p>
<p>　　代码： </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></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>
<p></p>
<p></p>
<p>　　在此程序里，我创建了Message Properties对话框，以便让用户可以创建或修改"from" field。虽然我没有找出一个行之有效的办法来增加所有有效的地址选择，但是，Sent From的设置在Message Properties 对话框里也是一个可进入的域。 </p>
<p></p>
<p>　　在Message Editing窗口里有个比较奇怪的现象。当在Message Editing窗口内找开一个message时，窗口的图标会是一个合上的信封。当修改或编辑message旱，图标则会变成有支笔放在信封上的图案。然后，当保存时，图标又会变成合上的信封。这项功能帮助用户了解到是不是自上一次编辑以来对文件有所保存。这个功能运行稳定，除了当Message Editing窗口最大化时。当窗口最大化时，图标则不会改变，我也没有找出为什么会发生这种现象的源由。  </p>