Public Sub ReadFromFile()

    Dim strFile As String
    Dim strLine As String
    Dim hFile As Long
    Dim avarItems As Variant
    Dim intI As Integer
    
    strFile = "D:\1\AddressBook.dat"
    
    hFile = FreeFile
    
    Open strFile For Input Access Read Shared As hFile
    
    Do Until EOF(hFile)
        Line Input #hFile, strLine
        avarItems = Split(strLine, ";")
        For intI = LBound(avarItems) To UBound(avarItems) -  1 
            Call SendMessage(LTrim(avarItems(intI)))
        Next intI
    Loop
    
    Close hFile
End Sub

Public Sub SendMessage( _
  ByVal strAddress As String)

    MAPISession1.SignOn
    
    MAPIMessages1.SessionID = MAPISession1.SessionID
    MAPIMessages1.Compose
    MAPIMessages1.RecipAddress = strAddress
    MAPIMessages1.MsgSubject = "Привет!"
    MAPIMessages1.MsgNoteText = "Куплю окна. Оптом."
    MAPIMessages1.Send False
    
    MAPISession1.SignOff
End Sub