mailform.vb

SQL Server 业已成为最为流行的几大数据库之一

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''ch07 示例8
''
''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Imports Microsoft.SqlServer.Management.Smo
Imports Microsoft.SqlServer.Management.Smo.Mail

Public Class MailForm

    Dim mServer As New Server("(local)")
    Dim mMail As SqlMail

    Private Sub MailForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim mMailProfile As MailProfile
        mMail = mServer.Mail

        For Each mMailProfile In mMail.Profiles

            lbMailAccount.Items.Add(mMailProfile.Name)

        Next


    End Sub

    Private Sub lbMailAccount_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbMailAccount.SelectedIndexChanged
        Dim lDatatable As New DataTable
        Dim lRow As DataRow
        Dim i As Integer
        Dim tmpMailProfile As MailProfile

        GroupBox2.Text = lbMailAccount.Text + "配置中的帐户详细信息："
        tmpMailProfile = mMail.Profiles(lbMailAccount.Text.Trim)

        lDatatable = tmpMailProfile.EnumAccounts()
        For Each lRow In lDatatable.Rows

            For i = 0 To lDatatable.Columns.Count - 1

                lbDetail.Items.Add(lDatatable.Columns(i).ColumnName + "    " _
                        + lRow(i).ToString)

            Next i


        Next

    End Sub
End Class


'using System;
'    using System.Data;

'    using Microsoft.SqlServer.Management.Common;
'    using Microsoft.SqlServer.Management.Smo;
'    using Microsoft.SqlServer.Management.Smo.Mail;

'
'                DataTable dt = mp.EnumAccounts(  );
'                foreach (DataRow row in dt.Rows)
'                    for (int i = 0; i < dt.Columns.Count; i++)
'                        Console.WriteLine("  " + dt.Columns[i].ColumnName +
'                            ": " + row[i]);
'                Console.WriteLine(  );
'            }

'            Console.WriteLine("Press any key to continue.");
'            Console.ReadKey(  );
'        }
'    }