Macro para enviar email cumplida una condición.

Disculpa la demora;

Te mando el código para la macro. Espero aún te sea de utilidad.

Option Explicit
Sub enviarCorreo()
    ' Proceso de envío de correo a trabajos fuera de plazo
        Dim outlookApp As Outlook.Application
        Dim miItem As Outlook.MailItem
        Dim cell As Range
        Dim asunto As String
        Dim correo As String
        Dim destinatario As String
        Dim msg As String
        Dim i As Integer
        Set outlookApp = New Outlook.Application
        Range("D1").Activate
        For i = 1 To Range("D" & Rows.Count).End(xlUp).Row
            If Cells(i, "D") = "Fuera de Plazo" Then
                asunto = "Trabajo fuera de plazo"
                correo = ActiveCell.Offset(0, -2).Value
                destinatario = ActiveCell.Offset(0, -3).Value
                msg = "Este correo es para avisarle que su trabajo no fue entregado " _
                            & "en el plazo convenido"
                Set miItem = outlookApp.CreateItem(olMailItem)
                With miItem
                    .To = correo
                    .Subject = asunto
                    .Body = msg
                    .Send
                End With
            End If
        Next
End Sub

Bastará con que modifiques el mensaje y el asunto.