Private Sub SendPismo()
Dim i As Integer
On Error GoTo SendError
    MAPISession1.SignOn
    MAPIMessages1.SessionID = MAPISession1.SessionID
    'Процесс создания письма
    MAPIMessages1.Compose
    'Адресаты
    For i = 1 To ListView1.ListItems.Count
        MAPIMessages1.RecipIndex = i - 1
        MAPIMessages1.RecipAddress = ListView1.ListItems(i).SubItems(2)
        MAPIMessages1.RecipDisplayName = ListView1.ListItems(i).SubItems(1)
    Next i
    'Тема письма
        MAPIMessages1.MsgSubject = Trim(TextTema.Text)
    'Вложение(если есть)
        MAPIMessages1.AttachmentPathName = Trim(TextPrice.Text)
    'Текст письма
        MAPIMessages1.MsgNoteText = Text1.Text
        If CheckShow.Value Then
            MAPIMessages1.Send True
        Else
            MAPIMessages1.Send False
        End If
        MAPISession1.SignOff
        Vremja = Now
        LabelLast.Caption = "Последний раз почта отсылалась " & Vremja & "."
        Exit Sub
SendError:
    MAPISession1.SignOff
    MsgBox "Письмо не может быть отправлено! Убедитесь в правильности введенных данных! Возможно, отправляемый файл не существует! Или один из адресатов был удален из адресной книги!"
End Sub