Задача - сформировать письмо в аутлуке, используя данные из определённых ячеек
Причём текст ячейки должен попасть в тело письма только в том случае, если ячейка на столбец правее - пуста
Что только не пробовал, не получается. Плиз хэлп! 
Делал что-то вроде этого
for i=6 to Количество строк
if Cells(i,3).Text="" then .Body=>Body + Cells(i,2)
next i
Sub ОтправимПисьмо ()
КоличествоСтрок = 12
For i = 6 To КоличествоСтрок
If Cells(i, 3).Text = "" Then
body = Cells(i, 2)
Call Mail(body)
End If
Next i
End Sub
Public Sub Mail(lbody)
Dim OutlookApp As Object, SM As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set SM = OutlookApp.CreateItem(olMailItem) 'Создаем объект
SM.To = "User@mail.ru" 'Вставьте требуемый электронный адрес
SM.Subject = "Report" 'Заполнение поля "Тема"
SM.body = lbody 'Заполнение поля "Сообщение"
'SM.Attachments.Add "C:\Temp\abcd.xls" 'Путь к прикрепляемому файлу
On Error Resume Next 'Перехват возможной ошибки
SM.Send 'Посылаем сообщение
OutlookApp.Quit 'Закрываем OutLook (если нужно)
Set SM = Nothing 'Очищаем использовавшиеся объекты
Set OutlookApp = Nothing
End Sub
И в чем у вас проблема?
⇢