Enviar correos con condición

Tienes una lista de registros y quieres enviarle un correo a cada destinatario dependiendo de una condición. 

Código VBA:

------------------

Sub Enviar_Correos()

'Por.Dante Amor

  Dim i As Long

  Dim dam As Object

  

  For i = 2 To Range("A" & Rows.Count).End(xlUp).Row

    If Range("E" & i).Value = "Pendiente" Then

      

      Set dam = CreateObject("outlook.application").createitem(0)

      

      dam.To = Range("B" & i).Value 'Destinatarios

      dam.Subject = "Pendientes"

      dam.Body = "Buen día : " & Range("A" & i).Value & vbCr & _

        "Tiene pendiente el siguiente: " & Range("C" & i).Value

      

      dam.Display 'El correo se muestra

    End If

  Next

  MsgBox "Correos enviados"

End Sub

----------------