Как l oop над столом и отправлять электронные письма соответствующим пользователям

Question

У меня есть таблица:

Программа должна l oop и отправлять электронные письма на NAV30 и FED09.

Nav30 должен получить только строку 1 и строку 3 таблицы. FED09 должен получить только строку 2.

Я нашел код, который работает, но не выполняет зацикливание и захват

Sub Test2()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
    Dim answer As String


    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")

    On Error GoTo cleanup
   answer = MsgBox("Are you sure you want to send these emails?", vbYesNo + vbQuestion)
   If answer = vbYes Then

    For Each cell In Columns("AC").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value Like "?*@?*.?*" And _
           LCase(Cells(cell.Row, "AD").Value) = "oui" _
           And LCase(Cells(cell.Row, "AE").Value) <> "sent" Then

            Set OutMail = OutApp.CreateItem(olMailItem)

            On Error Resume Next
            With OutMail
                .To = cell.Value
                .Subject = "blabla"
                .BodyFormat = olFormatHTML
                .HTMLBody = "blabla"
                               .Display
            End With
            On Error GoTo 0
            Cells(cell.Row, "AE").Value = "sent"
            Set OutMail = Nothing
        End If
    Next cell
    Else
    Exit Sub
    End If

cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub