Vídeo recomendado
https://youtu.be/diWPPPhW-9E

[RESOLVIDO] Alerta de vencimento, envio de email automático - VBA

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

[RESOLVIDO] Alerta de vencimento, envio de email automático - VBA

Mensagem 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!!!
Editado pela última vez por milton em Qua Jul 27, 2016 3:19 am, em um total de 2 vezes.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mikel Silveira Fraga
Jedi
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

Mensagem 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.


Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

Re: Alerta de vencimento, envio de email automático - VBA

Mensagem por milton »

Mikel, muito boa tarde!
Estou criando, logo eu tenha feito os testes informo o resultado.
Desde já, meus agradecimentos!!!!


Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

Re: [RESOLVIDO] Alerta de vencimento, envio de email automático - VBA

Mensagem por milton »

Mikel, boa noite!!!
Voltando pra dizer que era esse código mesmo, muito obrigado!!!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


petrossski
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Sex Mai 17, 2019 10:53 am

Alerta de vencimento, envio de email automático - VBA

Mensagem 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
Capturar.PNG (30.14 KiB) Exibido 11246 vezes
Tem como me ajudar??


Avatar do usuário
milton
Manda bem
Manda bem
Mensagens: 147
Registrado em: Sex Jun 17, 2016 8:22 am

Re: [RESOLVIDO] Alerta de vencimento, envio de email automático - VBA

Mensagem por milton »

Bom dia petrossski.
Abre um novo tópico, se possível tbm anexo o arquivo e manda o link aqui.
Abraço


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder