For i =  0  To UBound(Ags)
  Err.Clear
  If IsObject(objEmail) Then Set objEmail = Nothing
  Set objEmail = CreateObject("CDO.Message")
  objEmail.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendusing") =  2 
    objEmail.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "194.67.23.115"
    objEmail.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =  25 
    objEmail.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "bla_bla_bla@mail.ru"
    objEmail.Configuration.Fields.Item _ 
  ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
  objEmail.Configuration.Fields.Update
  strHTML = GetStr(Ags(i)) 'получаю путь к файлику, к-рый надо приаттачить к текущему письму
  If strHTML <> "" Then
    AgName = <получаем имя человека>
    objEmail.Textbody = "Текст сообщения"
    objEmail.From = "bla_bla_bla@mail.ru"
    AgMail = <получает эл. адрес человека>
    If AgMail <> "" Then
      If Valid(AgMail) Then 'проверяем корректность написания e-mail-а
        objEmail.To = AgMail
        objEmail.AddAttachment strHTML
        objEmail.Subject = "Отчет для " & AgName
        objEmail.Send
        If Err.Number <>  0  Then
          List.InsertItem "Сообщение " & i +  1  & " НЕ БЫЛО отправлено. Причина: проблемы с интернетом или с почтовым сервером."
        Else
          List.InsertItem "Сообщение " & i +  1  & " для " & AgName & " было отправлено."
        End If
      Else
        List.InsertItem "Сообщение " & i +  1  & " для " & AgName & " НЕ БЫЛО отправлено. Причина: ошибка в написании e-mail-а."
      End If
    Else
      List.InsertItem "Сообщение " & i +  1  & " для " & AgName & " НЕ БЫЛО отправлено. Причина: Не задан e-mail."
    End If
  Set File = F.GetFile(strHTML)
  File.Delete
  Else
    List.InsertItem "Сообщение " & i +  1  & " для " & AgName & " НЕ БЫЛО отправлено. Причина: Отсутствует xml-файл сообщения."
  End If
  DoEvent
Next