Como fazer Planilha com Alertas por E-mail + VBA - Data de vencimento no EXCEL

[@produtividade1000]

Olá galera. Criei uma aula complementar a essa que mostra como executar essa verificação de prazo e enviar por e-mail os alertas sem precisar abrir o excel, tudo automaticamente. Veja aqui: kzbin.info/www/bejne/sKS9nGZujdiAhq8

[@williammoura1023]

Meu amigo, você é uma benção. Super didático e objetivo. Sem dúvidas o melhor professor que eu já vi no youtube!!

[@makleydson]

Que aula incrível!!! Obrigado, por compartilhar conosco.

[@eduardomaciel2385]

Meu Deus, que aula sensacional!!! Obrigado pela explicação clara, simples e objetiva professor 😁👏👏👏

[@viniciusmizael8896]

Muito top o meu não deu certo mas valeu a pena ter assistido a aula. Parabéns ❤

[@gislainemacedodagloria4150]

Olá! Aula incrível!!! Exatamente o que estava precisando, porém eu gostaria de saber se é possível enviar avisos para gmail. Obrigada 😀

[@dimitrinovaes220]

Boa tarde Muito boa sua aula, didático e técnico, fácil entendimento Gostaria de saber com fazer essa programação em VBA para o access, teria alguma aula ou material para dar uma direção?

[@nathaliagarros]

obrigada! Ajudou bastante.

[@danii2932]

AJUDOU MUITO, OBRIGADAAA!!!!

[@emilenidamares7251]

Muito obrigada! vai ajudar muitooo 🥰

[@rogeriofreitas1471]

Boa tarde. Conteúdo excelente. Porém poderia por favor me ajudar no seguinte caso: Preciso ajustar essa funcionalidade à uma planilha salva no sharepoint de minha empresa que sempre é aberta on line. Poderia me passar instruções ou o código a ser utilizado?

[@lucasrochapires]

Eu utilizo um Outlook PWA online sem aplicativo instalado, como posso colocar as referências para ele ?

[@LuanEduardoPanoeiroRabello]

Muito didático e prático de acompanhar! Eu tenho uma dúvida. Existe a possibilidade de adicionar mais remetentes à macro? No caso de precisar mandar o mesmo email para mais de uma pessoa, por exemlpo.

[@WemersondosSantos-t3i]

Excelente. Funcionou perfeitamente. Mas o que fazer para ele não mandar aviso sobre um prazo que já passou. Por exemplo: E criado a coluna de dias faltantes, os que estão com o prazo maior ele ignora, mas e os que prazos que já passaram. Como ignorar eles assim como ignora os que ainda falta muito tempo para vencer??

[@MauricioSilvany]

Sensacional!

[@Nootkaz]

Me tira uma dúvida, por favor. No caso tenho muitos clientes de anos atrás e estão como por exemplo -434 dias, como faço para pegar o Range de somente de 30 a 0 dias?

[@natalinolima9635]

Excelente!!!

[@TamyrisRaulli]

Olá. Muito bom o vídeo. Consegui fazer tudo conforme o vídeo. Porém, não consegui criar o botão em cima data, onde ao clicar nele, já dispara os e-mails. Tem algum outra aula, explicando?

[@pablosilva9641]

Aula muito boa. É possível programar a macro para ser executada automático em um ou mais horários específicos?

[@produtividade1000]

Sim! basta usar o agendador de Tarefas do windows. Eu fiz uma aula exatamente sobre isso aqui → kzbin.info/www/bejne/sKS9nGZujdiAhq8

[@ewertonsilva9019]

Muito bom. Porém, não sei se salvei a programação macro corretamente, pois quando tento executar o agendador de tarefas, sempre aparece a mensagem dizendo que a minha macro não existe ou foi modificada. Por acaso saberia dizer o que está acontecendo?

[@maykonandrade9078]

Professor, eu trabalho aqui no SEST SENAT e estamos implementando e-mails automáticos para envio de documentos e outras coisas a vencer. Porém, cada tipo de documento terá de ser enviado para um e-mail específico. Como eu faço para ele, no segundo loop, buscar o e-mail de baixo? Ex: Eu selecionei a célula "X3" que é o primeiro e-mail e queria colocar a célula "X4", "X5", "X6" e assim por diante, onde cada uma tem e-mail diferente. Como eu posso fazer? Tentei aqui e na hora de verificar ele mostra erro.

[@Evellyn_Motta]

Muito didático!

[@MarianaAfonso]

Eu amei aula, mas eu tenho uma planilha com muitas abas e quero que ela rode somente em uma, independente de qual aba estiver o botão. O que devo incluir no cód?

[@deniserodrigues6601]

muitoooooo obrigada!!!

[@felipealcara468]

Dá pra fazer uma programação que faça um filtro mensal de itens e dispara esses itens para os destinatários no GoogleSheets+script?

[@JCBGreenPower]

Tem como disponibilizar essa planilha que fez com a macro pra gente praticar?

[@Macville_Com]

Valeu... me ajudou Tkss!

[@produtividade1000]

Que bom que ajudou

[@CondomínioPrimaver]

Se eu quiser colocar o aviso igual ou menor que a quantidade de dias, o que muda no comando?

[@elgs0993]

Gostei do vídeo, como eu poderia fazer com que enviasse em apenas um e-mail, ao invés de ficar disparando 1 por 1?

[@jeansilva1852]

Olá, bom dia. Eu gostaria de saber se é possível formatar esse texto que ele escreve dentro do outlook? Como por exemplo colocar em negrito, itálico, aumentar ou diminuir a fonte, mudar a fonte também.

[@produtividade1000]

Olá Jean, sim com certeza. Você pode alterar a mensagem do jeito que quiser.

[@getuliovargas4182]

"No caso tenho muitos clientes de anos atrás e estão como por exemplo -434 dias, como faço para pegar o Range de somente de 30 a 0 dias?" Tenho a mesma dúvida, meu caso é semelhante. Aguardo sua juda!

[@guilhermevieirasantos823]

Adicione If ActiveCell.Offset(0, 1).Value > 0 And ActiveCell.Offset(0, 1).Value < Range("C1") Then Mude o range ou os números de distância da célula de acordo com sua planilha.

[@edyarcanjo777]

Ola, tem como realizar o macro sem precisar apertad no botao?

[@AdautoAraujo]

Imagino que sua ideia seja fazer com que a macro rode automaticamente, certo? Se for isso, existem várias formas. Uma delas, é criar um sub e no final dele incluir a instrução de Application.OnTime colocando como parâmetro o nome do próprio sub (dá uma pesquisada em como usar). Essa função permite executar o sub que está no parâmetro algum tempo depois. E no final do sub ele agenda novamente, criando um loop sem travar o Excel. Claro, vc terá que rodar o sub manualmente na primeira vez.

[@heldersouza9346]

Seria possível a macro ser realizada a partir do salvamento dela, fazendo assim eliminando o botão?

[@aprigio154]

Quanto fica pra vocês criar uma planilha já com a macro. E eu só alimento .

[@iancarvalho1768]

Bom dia, Como eu posso enviar para mais que um endereço de e-mail?

[@edsonthiago6823]

Boa noite professor. A macro vai funcionar de forma automática ou eu devo sempre clicar no botão? Tenho uma planilha de vencimentos e gostaria que o alerta funcionasse automaticamente 😬

[@produtividade1000]

Totalmente automático.

[@renatamileski7]

não estou conseguindo rodar o agendamento pois esta dando erro para encontrar o o arquivo do script

[@viniciusmizael8896]

Minha macro de forma manual funcionou perfeitamente, agora com o agendador de tarefas pra automatizar o envio dos e-mails não funciona não a nem sinal. Alguem que passou por esse problema e conseguiu resolver. Eu deixei os arquivos Excel e o da macro de execução automática na nuvem no OneDrive será que isso pode ter interferido ou não tem nada haver?

[@brunolins1774]

Será que o Power Automate lincado ao sharepoint/ondedrive não seria o ideal para isso? Daí colocaria um gatilho diário

[@felipao-zq7ez]

Olá, qual seria o código para enviar para destinatários diferentes, por exemplo, um destinatário por linha do excel.

[@ewertonsilva9019]

Creio que se você separa os nomes dos destinatários com "; ", desde que fiquem todos na mesma célula, ele encaminhará para todos os contatos.

[@felipao-zq7ez]

@@ewertonsilva9019 vou tentar

[@regisusa18]

Olá. Gostaria de saber se é possível trabalhar com o cliente de e-mail nativo do Windows 10/11 (Versão 16005.14326.20544.0). É possível ?

[@produtividade1000]

Olá boa tarde. Sim é possível!

[@regisusa18]

@@produtividade1000 , poderia me orientar a como utilizar, por gentileza ?

[@getuliovargas4182]

"opa, boa noite. existe a possibilidade desta mensagem ser enviada direto sem precisar criar um botao e nem precisar abrir a planilha , apenas com a data do windows ele reconhecer que venceu a data e mandar automaticamente????" Boa noite, também tenho interesse em saber! Sou leigo, mas procuro aprender e utilizar no meu trabalho. Fico grato se obter uma resposta.

[@produtividade1000]

Sim, com certeza.

[@wms9479]

opa, boa noite. existe a possibilidade desta mensagem ser enviada direto sem precisar criar um botao e nem precisar abrir a planilha , apenas com a data do windows ele reconhecer que venceu a data e mandar automaticamente????

[@samuelmachado5451]

Também quero saber.

[@produtividade1000]

Bom dia. Sim é possível. Vou carregar um vídeo explicando o processo. Aguardem.

[@felipebarata7923]

ótima pergunta. Era exatamente o que eu gostaria de saber

[@felipebarata7923]

@@produtividade1000 realmente seria possível realizar esse envio automático sem abrir a planilha?

[@edugames96]

tem uma possibilidade de o excel me mandar uma notificação de forma automatica toda vez que alguem abrir a planilha ??

[@produtividade1000]

Sim. Com certeza.

[@edugames96]

@@produtividade1000 se possível depois explica para nós será de grande valor onde eu trabalho....

[@diegoluiz4912]

cara tem como fazer isso porem enviar no whatsapp

[@produtividade1000]

Ainda não trabalhei com isso, mas creio que é possível.

[@getuliovargas4182]

"Bom dia. Sim é possível. Vou carregar um vídeo explicando o processo. Aguardem." Amigo, gostaria de saber se esse vídeo já foi publidado?

[@produtividade1000]

Já está no canal, acabei de publicar. Veja se ficou claro. kzbin.info/www/bejne/sKS9nGZujdiAhq8

[@paulosergiofernandes5247]

Pessoal, eu segui a aula exatamente como no video, o código esta identico, porém ao compilar estar gerando erro "user-defined type not defined" ele aponta para duas variáveis Dim MeuOutlook As Outlook.Application Dim CriarEmail As Outlook.MailItem

[@suzanamartins8124]

O meu também. O professor poderia explicar o porquê está aparecendo este erro.

[@heldersouza9346]

Vocês ativaram a biblioteca do Outlook ? No início do video

[@Nootkaz]

Para quem só quer fazer sem aprender: Sub alerta_email() Dim MeuOutlook As Outlook.Application Dim CriarEmail As Outlook.MailItem Range("G2").Activate Do Until ActiveCell.Value = "" If ActiveCell.Offset(0, 1).Value < Range("x2") Then Set MeuOutlook = New Outlook.Application Set CriarEmail = MeuOutlook.CreateItem(olMailItem) With CriarEmail .BodyFormat = olFormatHTML '.Display .HTMLBody = "Alerta automático" & "" & "O cliente: " _ & ActiveCell.Offset(o, -5).Value & " vai expirar em " _ & ActiveCell.Offset(0, 1).Value & " dias." .To = Range("y3").Value .Subject = "Alerta de vencimento de contrato: " & ActiveCell.Offset(o, -5).Value .Send End With End If ActiveCell.Offset(1, 0).Select Loop MsgBox ("Alertas enviados com sucesso") End Sub De nada kkkkkk

[@Nootkaz]

Obs: Substitua conforme a sua planilha o Range.

[@thiagomonteiro2597]

uma lenda

[@getuliovargas4182]

Estou trabalhando nessa sua planilha, mas estou com dificuldade em passar o F8. Pois, trava de imediato na linha "Dim MeuOutlook As Outlook.Application", poderia me ajudar a encontrar o problema?

[@luizantoniopergentino7031]

estou com o mesmo problema, vc teve retorno?

[@luizantoniopergentino7031]

opa, consegui. Volta no inicio da apresentação do professor, clica em referencias e habilita o outlook 16