Suponha que a coluna em que aparece "vencido" seja a B, e os dados comecem em B2, e que você possua o Outlook instalado e configurado no seu computador:
Sub fnc()
Dim appOutlook As Object
Dim olMail As Object
Dim lngLast As Long
Dim lngRow As Long
Dim wks As Excel.Worksheet
'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0
Set wks = ActiveSheet
lngLast = wks.Cells(wks.Rows.Count, "B").End(xlUp).Row
For lngRow = 2 To lngLast
If wks.Cells(lngRow, "B").Value Like "*vencido*" Then
Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail
With olMail
.To = "destinatario@email.com"
.Subject = "Assunto"
.Body = "Texto do corpo do e-mail"
.Display 'ou .Send para enviar direto
End With
End If
Next lngRow
End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
