COMANDO DE ENVIAR E-MAIL AUTOMÁTICO PAROU DE FUNCIONAR

headway123

(@headway123)

Posts: 7

Active Member

Topic starter

Olá a todos,

Preciso de um help novamente.

Minha função de enviar e-mail automático parou de funcionar.

Não sei o motivo, ela não executa o comando de acordo com as datas.

e ao clicar na variável iDias aparece uma data de 25/12/1899.

Até poucos dias atrás estava executando o comando.

Segue as imagens do que aparece.

https://uploaddeimagens.com.br/imagens/ ... c1dcf2c27c
https://uploaddeimagens.com.br/imagens/ ... 216281acd2

Se alguém souber o que pode ser ficarei grato.

Obrigado!

Postado : 27/09/2018 7:55 am

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

Como você declarou iDias?

as date?

Poderia postar sua planilha?

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

Postado : 27/09/2018 8:21 am

headway123

(@headway123)

Posts: 7

Active Member

Topic starter

Sim, as Date

Sub Alerta()
    
    Dim iLin As Integer
    Dim iDias As Date
    With Plan4

        For iLin = 2 To .UsedRange.Rows.Count
        
        iDias = .Cells(iLin, 25).Value - VBA.Date()

Postado : 27/09/2018 8:27 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

headway123,

Bom dia!

Pedimos, por gentileza, utilizar a ferramenta CODE existente logo acima da caixa de mensagens (quinto botão da esquerda para a direita) ao postar códigos VBA.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 27/09/2018 8:32 am

headway123

(@headway123)

Posts: 7

Active Member

Topic starter

Segue a planilha com o código e o erro.

O código está em modulo no VBA.

Obrigado!

Postado : 27/09/2018 7:19 pm

xlarruda

(@xlarruda)

Posts: 732

Honorable Member

Vc declarou iDias as date
Repare que na coluna y, a célula y5 é texto e não date. Para comprovar isso transforme todos os dados da coluna y para o formato Geral e veja que todos viraram números inteiros menos y5.
Corrija isso reeditando o valor da célula.
Acredito que seja esse o problema....

Não consigo testar pois estou no celular. Abç!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

Postado : 27/09/2018 7:40 pm

headway123

(@headway123)

Posts: 7

Active Member

Topic starter

Sim, essa célula estava com o formato errado mesmo, não me dei conta, isso foi pq fiquei apagando e rescrevendo tentando fazer o código funcionar.
Mas não é esse o causador do problema, pois mesmo corrigindo, não está funcionando o comando de call do e-mail
pode testar que você verá.

Postado : 27/09/2018 7:55 pm