Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

[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: 112
Registrado em: Sex Jun 17, 2016 8:22 am

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

Mensagem por milton » Sáb Jul 23, 2016 11:42 pm

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: 1112
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Bragança Paulista - SP

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

Mensagem por Mikel Silveira Fraga » Seg Jul 25, 2016 11:52 am

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.


Gostou da dica? Clique no JOIA no topo da mensagem.
Esclareceu suas dúvidas? Acrescente ao título do tópico a expressão: [RESOLVIDO].
Orientações sobre o fórum, acesse aqui.

Mikel Silveira Fraga
E-mail: mikel-sf@hotmail.com | Skype: mikelsf | Linked In

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

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

Mensagem por milton » Seg Jul 25, 2016 4:34 pm

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: 112
Registrado em: Sex Jun 17, 2016 8:22 am

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

Mensagem por milton » Ter Out 18, 2016 10:15 pm

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 » Sex Mai 17, 2019 11:04 am

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 42 vezes
Tem como me ajudar??



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