Sub otpr_()
    p_ = ThisWorkbook.Path & "\"
    Subj_ = [Дано!c36] ' тема
    For r_ =  4  To [a2] +  3 
    For c_ =  3  To  7  Step  2 
        If Cells(r_, c_) = "" Then GoTo A
        WBN_ = p_ & Sheets("Дано").Range("i" & r_) ' вложение
        [c2] = Cells(r_, c_)
        [d2] = Cells(r_, c_ +  1 )
        Addr_ = [Дано!c2] ' адрес
        Text_ = [Дано!b2] ' текст
        Set myOlApp = CreateObject("Outlook.Application")
        Set myItem = myOlApp.CreateItem(olMailItem)
        With myItem
            .Attachments.Add WBN_ ' вложение
            .To = Addr_ ' адрес
            .Subject = Subj_ ' тема
            .Body = Text_ ' текст
            .Send
        End With
A:
    Next c_
    Next r_
    MsgBox "Все"
End Sub