Отправка данных из Excel по средствам Outlook

 With OutMail
           Set CStart = [D1] 'е-мэйлы с листа № 3 (ячейка D1)
For i = 1 To .UsedRange.End(xlDown).Row + 1
  If Worksheets("Лист 3").Cells(i, 3).Value Then
 
Worksheets("Лист3").Cells(3 + i, 4).Value
 
 
        .To = Sheets("Лист3").Cells(i, 4).Value
  
        .Subject = "Доброго дня"
        With Sheets("Лист3")
   Set oRange = .Range(.Cells(i, j), .Cells(k, l))
   Set CStart = .[A1] 'для фирм (ячейка А1)
        For i = 1 To .UsedRange.End(xlDown).Row + 100
 
         
            If Val(Right(.Cells(3 + i, 1), 19)) > 1 Then
 
.htmlBody =  sGetHtmlFromRange(Range("A4:J21")) 
 
        'End If
 
        .Display
 'Next i
    
'End With