Macro excel - enviar email automático

[André Costa TI]

Preciso de uma macro que, ao digitar o mês do vencimento de contrato de um funcionário, a macro filtra os funcionários com o respectivo mês digitado, copie as células com os dados do(s) funcionário(s), e envie-os por email (Outlook) para todos os chefes. Os nomes dos chefes e os respectivos endereços eletrônicos estão em um sheet separado. Segue em anexo um exemplo.

 

Caso precisem de alguma informação, me avisem. Preciso desta macro urgente :/

 

Example mail.xls

[Douglas Martins Mendes Bra]

 

Sub EMail_Automático()

    Dim olApp As Object, olMail As Object
    If Range("B1").Value >= Range("a1").Value Then
        Set olApp = CreateObject("Outlook.Application")
        Set olMail = olApp.CreateItem(0)
    
        'olMail.From = "[email protected]" 'Quem está enviando o e-mail. Pode deixar desabilitado. _

        olMail.Subject = "Teste1" 'Campo Assunto

        olMail.Body = "Teste2" 'Campo referente a mensagem que se quer enviar

        olMail.To = "[email protected]" 'Endereços dos destinatários

        'olMail.cc = "F114170" 'Campo Com cópia

        'olMail.Attachments.Add "C:/CONFIG.SYS" 'Arquivo a inserir

        olMail.Send 'Envio direto. Se quiser ver primeiro o e-mail para depois enviar, substitua _
        esse comando por Display
        
        Set olApp = Nothing
        Set olMail = Nothing
    End If
End Sub

Só adaptar ao seu problema.

Qualquer coisa só avisar.