Página 1 de 1
[RESOLVIDO] Alerta de vencimento, envio de email automático - VBA
Enviado: Sáb Jul 23, 2016 11:42 pm
por milton
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!!!
Re: Alerta de vencimento, envio de email automático - VBA
Enviado: Seg Jul 25, 2016 11:52 am
por Mikel Silveira Fraga
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:
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
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.
Re: Alerta de vencimento, envio de email automático - VBA
Enviado: Seg Jul 25, 2016 4:34 pm
por milton
Mikel, muito boa tarde!
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
Enviado: Ter Out 18, 2016 10:15 pm
por milton
Mikel, boa noite!!!
Voltando pra dizer que era esse código mesmo, muito obrigado!!!
Alerta de vencimento, envio de email automático - VBA
Enviado: Sex Mai 17, 2019 11:04 am
por petrossski
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.
- Capturar.PNG (30.14 KiB) Exibido 11332 vezes
Tem como me ajudar??
Re: [RESOLVIDO] Alerta de vencimento, envio de email automático - VBA
Enviado: Ter Mai 28, 2019 7:19 am
por milton
Bom dia petrossski.
Abre um novo tópico, se possível tbm anexo o arquivo e manda o link aqui.
Abraço