VB projects - Using Outlook Address Book

Description: Using Outlook Address book for sending e-mails
Minimum requirements: vb, Outlook 98
Download: source code
Project: Standard EXE
Controls: lvw (ListView)
Code:
Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace
Dim olAL As Outlook.AddressList
Dim olAE As Outlook.AddressEntry
Dim olMail As Outlook.MailItem

Private Sub Form_Load()
    Set olApp = New Outlook.Application
    Set olNS = olApp.GetNamespace("MAPI")
    For Each olAL In olNS.AddressLists
        For Each olAE In olAL.AddressEntries
            lvw.ListItems.Add , , olAE.Name
            lvw.ListItems(lvw.ListItems.Count).SubItems(1) = olAE.Address
            lvw.ListItems(lvw.ListItems.Count).SubItems(2) = olAE.ID
            lvw.ListItems(lvw.ListItems.Count).Tag = olAE.ID
        Next
    Next
End Sub

Private Sub Form_Unload(Cancel As Integer)
    olApp.Quit
    Set olApp = Nothing
End Sub

Private Sub lvw_DblClick()
    Set olMail = olApp.CreateItem(olMailItem)
    olMail.Recipients.Add lvw.SelectedItem.Text
    olMail.Subject = "Test"
    olMail.Body = "Test"
    olMail.Send
End Sub