Excel Disparar e-mail automático - critério hora

[Tim Baster]

Boa noite, Pessoal!

Alguém tem código vba para disparar de forma automática e-mail usando os critérios abaixo; segue exemplo.

Coluna A           Coluna B        Coluna C

Data início.        Data fim.         Horas restant

01/11 10:00  01/11 22:00        72 horas

A hora limite é 72 horas, gostaria de em 5 e 5 horas ele disparace um e-mail informando que falta tantas horas para registro boletim de descarga.

 

 

[Midori]

Se tiver o outlook instalado pode usar as rotinas de Outlook.Application para enviar o e-mail. E com a função OnTime crie um timer para chamar a Sub com os comandos do email, p.ex Sub para ser executada a cada 5 horas,

 

Sub Tempo()
    Application.OnTime Now + TimeValue("05:00:00"), "EnviarEmail"
End Sub

Sub EnviarEmail()
    ...
    Call Tempo
End Sub