Boa tarde pessoal

to criando um script para enviar e-mail, direto da minha planilha, conforme a coluna O tem o valor OK, o script deveria percorrer essa coluna e criar um e-mail para cada linha que tiver OK

porem só consigo fazer funcionar se tiver apenas um OK na coluna O, se tiver duas ou três linhas com o OK, ele cria apenas um e-mail com os dados da ultima linha,

alguem pode ajudar para que o script consiga criar um email para cada linha que conter o OK?

Sub Mail_Outlook_With_Signature_Html_1()
' Working in Office 2000-2016
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim ultimaLinha As Integer
    Dim linha As Integer

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
              
    On Error Resume Next

    ultimaLinha = Sheets("2020").Cells(Rows.Count, 15).End(xlUp).Row

    For linha = 1 To ultimaLinha

     If Sheets("2020").Range("O" & linha) = "OK" Then
        
        descricaoAmostra = Cells(linha, 1).Value
        vendedor = Cells(linha, 2).Value
        valorAmostra = Cells(linha, 3).Value
        freteAmostra = Cells(linha, 4).Value
        totalAmostra = Cells(linha, 5).Value
        datacompra = Cells(linha, 6).Value
        solicitação = Cells(linha, 11).Value
        nf = Cells(linha, 12).Value
        printCompra = Cells(linha, 13).Value
        
        
        strbody = "<H3><B>Boa tarde</B></H3>" & _
              "Segue em anexo NF e Print da compra, referente a solicitação: " & solicitação & "<br><br>" & _
              "Valor da amostras: R$ " & valorAmostra & "+ Custo de envio: R$ " & freteAmostra & "Total: R$ " & totalAmostra & "<br><br>" & _
              "Obs: compra realizada com o cartão de credito na data: " & datacompra

        'OutMail.Send
        OutMail.Display
        OutMail.To = "joaopaulosoaresfragoso@gmail.com"
        OutMail.CC = ""
        OutMail.BCC = ""
        OutMail.Subject = "COMPRA MERCADO LIVRE: Solicitação: " & solicitação & "( " & descricaoAmostra & ")"
        OutMail.HTMLBody = strbody & "<br>" '& OutMail.HTMLBody 'inseri automaticamente a assinatura de email
        OutMail.Attachments.Add nf
        
        
        
    End If

  Next linha


    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
            
End Sub