Вопрос электронной почты Excel

Question

Ниже приведен код, который я использую для отправки электронной почты. Он работает нормально, если в столбце C нет повторяющихся электронных писем. Outlook не открывается для повторной электронной почты.

Я не очень хорош в VBA, и я написал этот код с большой помощью и поиском в Интернете.

Может кто-нибудь узнать, почему при повторном электронном письме Outlook не открывается?

спасибо

lastrow = Range("C" & Rows.Count).End(xlUp).Row
For Each cell In Range("C8:C" & lastrow)

If WorksheetFunction.CountIf(Range("C8:C" & cell.Row), cell) = 1 Then

If Cells(cell.Row, 16) = "Yes" Then

    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
            xMailBody = "Some text here"
    On Error Resume Next

With xOutMail
    .To = Cells(cell.Row, 3)
    .CC = Cells(cell.Row, 6) & "; " & Cells(cell.Row, 11)
    .BCC = ""
    .Subject = "Subject"
    .Body = xMailBody
    '.Attachments.Add ActiveWorkbook.FullName
    .Display
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing

Cells(cell.Row, 16).Value = "No"