Excel Macro com condição para não enviar e-mail de alerta em duplicidade

[Jmbs]

Prezados!

 

Gostaria de adicionar uma condição para a macro não enviar os e-mails em duplicidade. Ou seja quando a macro rodar e enviar o e-mail, na coluna G preencher com ENVIADO - 00:00:00, feito isto, quando rodar novamente já identificar que a tarefa já foi executada e pular para as próximas.

 

Jmbs

Envio de e-mail automatico.zip

[Midori]

No seu loop a partir de ActiveCell a coluna G fica 3 colunas a direita. Então é só preencher lá quando acontecer o envio e fazer uma condição para enviar apenas quando não tiver nada na célua, p.ex,

 

If ActiveCell.Offset(0, 3).Value <> "ENVIADO" Then
    ...
    ActiveCell.Offset(0, 3).Value = "ENVIADO"
End If