Imports System.Net.Mail

接下来，在Form1中声明成员变量，代码如下：

Public Class Form1Class Form1

    Const SMTP_SERVER As String = "smtp.gmail.com"
    Const SMTP_PORT As Integer = 587
    Const USER_NAME As String = "user_name@gmail.com"
    Const PASSWORD As String = "password"

    Private WithEvents outlookApp As Outlook.ApplicationClass

    '---保存引入的Mail---
    Private EmailQueue As New Queue

    Private SMTPClient As New SmtpClient(SMTP_SERVER, SMTP_PORT)

    '访问数据库
    Private conn As New SqlConnection( _
       "Data Source=.\SQLEXPRESS;AttachDbFilename=" & _
       Application.StartupPath & "\Database1.mdf;" & _
       "Integrated Security=True;User Instance=True")
    Private sqlCmd As SqlCommand = Nothing

    接下来，在我们的工程中加入一个SQL Server数据库（在Solution浏览器中右击工程名，然后选择Add > New Item...）。选择SQL数据库，并使用默认的Database1.mdf。一但数据库被加到工程中，就可以双击并编辑它了。在本例子中我们向这个数据库加一个表（这个表非常简单，只有一个保存用户mail的字段EmailAddress字段），到现在为止，数据库和表都已经建立完成了。接下来我们来定义一个Delegate和一个用于更新两个列表框的子程序，代码如下：

'---用于更新两个列表框的子程序---
    Private Delegate Sub MyDelegate()
Private Sub UpdateStatus()
'---更新队列状态列表框控件---

        lstQueue.DataSource = EmailQueue.ToArray
Try
            '---更新用户列表框控件---
            sqlCmd = New SqlCommand( _
"SELECT * FROM Users", conn)
conn.Open()
Dim reader As SqlDataReader
reader = sqlCmd.ExecuteReader
lstUsers.Items.Clear()
While reader.Read
lstUsers.Items.Add(reader(0))
End While
        Catch ex As Exception
Console.WriteLine(ex.ToString)
Finally
            conn.Close()
End Try
    End Sub

Private Sub Form1_Load( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
outlookApp = New Outlook.ApplicationClass()
' 设置SMTPClient
   With SMTPClient
.UseDefaultCredentials = False
      .EnableSsl = True
      .Credentials = New NetworkCredential(USER_NAME, PASSWORD)
End With
   ' 更新队列状态
   lstQueue.BeginInvoke(New _
MyDelegate(AddressOf UpdateStatus), _
New Object() {})
End Sub

    当Outlook接收到新的邮件信息时，ApplicationClass对象在接收每一个新邮件后将会触发NewMailEx事件。这个事件通过EntryIDCollection参数传递了新邮件的标识。我们可以在这个事件中提取这些信息，代码如下：

'---当新的邮件来时触发这个事件---
    Private Sub outlookApp_NewMailEx(ByVal EntryIDCollection As String) _
Handles outlookApp.NewMailEx
Dim OutlookNS As Outlook.NameSpace
OutlookNS = outlookApp.GetNamespace("MAPI")
'---得到收件箱邮件夹---
        Dim Inbox As Outlook.MAPIFolder
Inbox = outlookApp.Session.GetDefaultFolder( _
Outlook.OlDefaultFolders.olFolderInbox)
'—获得新邮件---
        Dim NewMail As Outlook.MailItem
NewMail = OutlookNS.GetItemFromID(EntryIDCollection, Inbox.StoreID)
' 将email和标题保存在队列中
        Dim str As String = _
NewMail.SenderEmailAddress & "," & NewMail.Subject
EmailQueue.Enqueue(str)
' 更新队列状态
        lstQueue.BeginInvoke(New _
MyDelegate(AddressOf UpdateStatus), _
New Object() {})
End Sub

    在这里要注意的是，我们现在获得订阅者的邮件地址和标题，并将他们作为字符串保存在队列数据结构中，如图4所示。但是为什么不立即处理它们呢？这是因为Outlook在接受多封邮件时，如果在事件处理中有延迟，这个事件将不会被触发多次。因此，就只有将这些事件句柄释放，以便在接收到下一个邮件时仍然可以触发这个事件。



 图4 用于保存订阅和退订动作的队列

    现在订阅和退订的动作已经保存在队列中了，那么什么时候处理它们呢？最简单的方法是使用一个定时器控件。我们在Form1上加一个Timer控件，并设置Enable属性为True，Interval为5000(5秒)，如图5所示：