Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
[RESOLVIDO] Alerta de vencimento, envio de email automático - VBA
[RESOLVIDO] Alerta de vencimento, envio de email automático - VBA
Boa noite galera!!
Preciso de um código vba que envie email automático quando faltar 5 dias para data de vencimento, também na data de vencimento e 5 dias após o vencimento se não for localizado na Planilha o texto "Pago" ao lado da Data de vencimento.
Por exemplo:
Na coluna "D" contém a data de vencimento, se na célula ao lado da data não conter o texto "Pago", o vba envia e-mail automático para Gmail 5 dias antes, no data e 5 dias após.
Desde já agradeço!!!
Preciso de um código vba que envie email automático quando faltar 5 dias para data de vencimento, também na data de vencimento e 5 dias após o vencimento se não for localizado na Planilha o texto "Pago" ao lado da Data de vencimento.
Por exemplo:
Na coluna "D" contém a data de vencimento, se na célula ao lado da data não conter o texto "Pago", o vba envia e-mail automático para Gmail 5 dias antes, no data e 5 dias após.
Desde já agradeço!!!
Editado pela última vez por milton em Qua Jul 27, 2016 3:19 am, em um total de 2 vezes.
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Alerta de vencimento, envio de email automático - VBA
Milton, bom dia.
Bem, como você não postou nenhum modelo para demonstrar o esta tentando realizar, vou adicionar um código que fará a verificação do vencimento, conforme colocado na dúvida:
Veja se isso atende sua necessidade.
Se não for isso que precisa, poste seu modelo e dê mais detalhes, informando o que já tem pronto e quais os pontos estão suas dúvidas.
Ficamos no aguardo.
Bem, como você não postou nenhum modelo para demonstrar o esta tentando realizar, vou adicionar um código que fará a verificação do vencimento, conforme colocado na dúvida:
Código: Selecionar todos
Sub VerificaVencimento()
Dim iDias as Integer
iDias = VBA.CInt(Sheets("plan1").Range("D2").Value - VBA.Date)
If iDias = 5 Or iDias = -5 Then
'Chama rotina para enviar email.
Call EnviarEmail
End If
End Sub
Se não for isso que precisa, poste seu modelo e dê mais detalhes, informando o que já tem pronto e quais os pontos estão suas dúvidas.
Ficamos no aguardo.
Re: Alerta de vencimento, envio de email automático - VBA
Mikel, muito boa tarde!
Estou criando, logo eu tenha feito os testes informo o resultado.
Desde já, meus agradecimentos!!!!
Estou criando, logo eu tenha feito os testes informo o resultado.
Desde já, meus agradecimentos!!!!
Re: [RESOLVIDO] Alerta de vencimento, envio de email automático - VBA
Mikel, boa noite!!!
Voltando pra dizer que era esse código mesmo, muito obrigado!!!
Voltando pra dizer que era esse código mesmo, muito obrigado!!!
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Sex Mai 17, 2019 10:53 am
Alerta de vencimento, envio de email automático - VBA
Olá,
Então, tenho a seguinte planilha e preciso que eu receba um e-mail quando faltar 60 dias para vencer qualquer uma das colunas D,H,J e K. Tem como me ajudar??
Então, tenho a seguinte planilha e preciso que eu receba um e-mail quando faltar 60 dias para vencer qualquer uma das colunas D,H,J e K. Tem como me ajudar??
Re: [RESOLVIDO] Alerta de vencimento, envio de email automático - VBA
Bom dia petrossski.
Abre um novo tópico, se possível tbm anexo o arquivo e manda o link aqui.
Abraço
Abre um novo tópico, se possível tbm anexo o arquivo e manda o link aqui.
Abraço