Excel Enviar E-mail Automático pelo Excel Próximo ao Vencimento de Prazo

[salvitory]

Pessoal, bom dia

Estou com uma dificuldade em uma planilha para enviar o e-mail automaticamente quando um determinado registro está próximo da data de vencimento, já fiz de tudo, troquei as variáveis de integer para long, porém a macro não funciona. Também coloquei uma função para executar a macro ao abrir a planilha, mesmo assim não funciona. Podem ajudar por favor? Desde já muito obrigado.wsFunc.zipwsFunc.zip

[OreiaG]

3 horas atrás, salvitory disse:

Também coloquei uma função para executar a macro ao abrir a planilha, mesmo assim não funciona.

 

Não funciona porque os códigos estão colocados no módulo da planilha, que é local inadequado para o que você pretende fazer.

 

O código Sub Auto_Open pode ser excluído, e para rodar o código Sub Alerta automaticamente ao abrir o arquivo, coloque o código abaixo no módulo de ThisWorkbook (dê duplo clique em ThisWorkbook para abrir o módulo).

 

Private Sub Workbook_Open()
 Alerta
End Sub

 

Em seguida recorte os outros dois códigos (Sub Alerta e Sub EnvioEmail) do módulo em que estão e cole em um módulo standard, Módulo1, por exemplo.

Para abrir o Módulo1 clique em Inserir >> Módulo.

 

obs. não testei a execução dos dois códigos destinados para enviar e-mails.