Como Ler E-mails do Outlook e Colocar na Planilha com VBA

[@F10Fabricio]

Virou rotina e obrigação diária pra mim assistir algum vídeo da equipe Hashtag! São fantásticos!

[@robertogomesdesouzajunior8524]

A Hashtag tem transformado meu dia a dia no trabalho!!

[@HashtagTreinamentos]

Tamojunto, Roberto!!

[@wandersiqueira9941]

#TERMINEI - Show, perfeito, claro e mto preciso. Diego vc é DEZ

[@robertogomesdesouzajunior8524]

Meu Deus do céu!!! Muito boa essa aula. Poderia ter mais integrações do VBA com outlook como por exemplo para deletar e-mails a partir de uma planilha do excel. Copiar, encaminhar ou responder automaticamente. Está de parabéns!!!

[@HashtagTreinamentos]

Fala galera! Se você gostou do vídeo deixa sua curtida, se inscreve no canal e clica no sininho! CLIQUE AQUI PARA SABER MAIS SOBRE O CURSO COMPLETO VBA IMPRESSIONADOR: pages.hashtagtreinamentos.com/saiba-mais-yt-vba?origemurl=hashtag_yt_org_saibamaisvba_Kkg1_Em54c0 Para receber conteúdo diário de Excel, VBA e Power BI gratuitamente, entre em nosso grupo do Telegram: t.me/joinchat/AAAAAFVJr0C7Il-tVurdUw Clique para baixar o MINICURSO GRATUITO DE MACROS E VBA: excelparaestagio.klickpages.com.br/inscricao-10-aulas-vba?origemurl=hashtag_yt_org_top10vba_Kkg1_Em54c0 ► Arquivo(s) utilizado(s) no vídeo: pages.hashtagtreinamentos.com/arquivo-vba-10lKRe2NY7sEHSY6ED1AeSYBRTmx02Fpo?origemurl=hashtag_yt_org_​planilhavba_Kkg1_Em54c0 ► Blog: bit.ly/2MRUZs0 ► KZbin: bit.ly/2O6A4RP ► Instagram: bit.ly/2F7B6t4 ► Facebook: bit.ly/2UA4SwY ► Telegram: t.me/joinchat/AAAAAFVJr0C7Il-tVurdUw ► Tik Tok: bit.ly/3dUpwkW TOP Vídeos: ► Como sair do ZERO no VBA em apenas UMA aula kzbin.info/www/bejne/iZLPoaBnr9hld68 ► Macros Excel VBA - Como criar uma Macro do Zero kzbin.info/www/bejne/q3OWhXWufahkr7M ► Como criar formulário no Excel - Criando Userform no VBA - 1/5 kzbin.info/www/bejne/eXm5aJ-ElLxnb7s ► VBA - O que é VBA? O que são Macros? kzbin.info/www/bejne/imaVkImLnMR0gbs ► Como criar formulário no Excel - Criando Userform no VBA - 2/5 kzbin.info/www/bejne/Y6auoq2ol6aonrc

[@abelardomonteiro3118]

Como editar o código para que retorne as informações de um email específico?

[@leonelnielsen3547]

Parabéns pela aula. Como sugestão, seria interessante montar um vídeo automatizando guardar email ou anexo de um email em um local específico, a partir do Outlook ou a partir do Excel.

[@josepaulo6938]

Gostei e assisti até ao fim

[@fabianaqueiroz8022]

Parabéns Diego, aprendo muito com seus videos. Seria muito bom se você puder fazer um video abrindo a planilha que esta em anexo no outlook apartir de uma data , copiar as informações da planilha e colar numa base. (ex compilar todas as planilhas que estão em anexo apartir de uma data)

[@flaviaalmeida9078]

Tudo que eu precisava....valeu fera !

[@cesarebortoleto9266]

Top demais... muito obrigado

[@eriveltorfernandes]

Muito grato pelos ensinamentos.

Eu tenho quase certeza que é uma exigência pra fazer parte dessa equipe, gesticular pra caramba

[@valeriocm]

#ateofimdiego Show Diego, cada vez mais inovando. Sempre peço algo mas...😞 Vai mais uma. No sua aula de preencher documentos de word com VBA, posso dar uma dica de próxima aula ou aulas. Um formulário ou uma aba, onde tem dados de nota de serviço ou venda simples. Gostaria de preencher um word com dados onde vai agregar sempre a última linha pois não posso perder os dados dos clientes. E lógico 😏 colocando automático um número de série a mais em uma caixa e verificar o último número mais um. Impressão dessa última linha. Legal né 😁. Acho que muita gente gostaria. Espero que pense com carinho nessa idéia. Essa impressão pode ser uma via, duas, lado a lado, acima e abaixo.

[@gersonpenitente4141]

Video show!!! Parabéns!!! Até o fim....

[@melquiadessantos8882]

#até o fim, Diego!

[@gracekeller3118]

Diego, primeiro Parabéns!!! Excelente a maneira que você ensina, aprendo muito. Poderia mostrar como buscar uma tabela dentro de um e-mail determinado, para alimentar uma planilha, consolidando as informações.

[@Xnex1]

#assisti até o fim

[@tarcisiomendes1109]

#atéofim Parabéns! Obrigado pela aula!

[@alessandroserranocolavite6220]

Muito bom o video! Parabens Pessoal da Hashtag! :D

[@paulojosedonascimento7589]

Explicação top!

[@mateusdossantos2453]

Cheguei ate o final

[@eriveltorfernandes]

Até o fim.

[@andersonbicudo2909]

Muito bom, vou aplicar

[@aparecidojosesouza8220]

Show Diego... #ATÉOFIMDIEGO

[@josecarlosmachado3682]

#até o fim muito legal

[@pauloduque6273]

Olá, Diego! Parabéns pela iniciativa. Um pergunta: caso eu tenha varias pastas (varios emails baixados no outlook), como faço para escolher a pasta? Obrigado

[@thalesdonegabertotti6638]

Muito bom!

[@robertocastro1892]

Parabéns!!! Show!!! Existe alguma solução dessas para o gmail ao invés do outlook?

[@williamtavares8352]

Tem como adaptar referente a um certo assunto e copie a tabela padrão que chega no corpo do e-mail?

[@hugobissolicamargo9560]

Que aula top!! #ATÉOFIM

[@cleibiosilva3083]

Muito bom!!!

[@nadinaelsantiago648]

@HashtagTreinamentos Parabéns, muito top ! mas tira uma duvida porque o VBA não reconhece uma pasta do outlook que eu criei ?

[@claudiojunior2578]

#AtéOFim!, muito legal!!!

[@LucasRoque_d]

#ateofim obrigado pelo aprendizado!

[@elviolentino3710]

Diego, quero aplicar para uma pasta do Outlook que não é padrão, uma pasta criada, é possível? Porque na lista para escolher olfolder a pasta criada não aparece! Valeu!

[@yurioliveira8378]

#ate o fim

[@leeversonmaganin9605]

# até o final

[@alessandrosilvaext]

Bom dia! Excelente vídeo! Uma dúvida, até quantos caracteres esse método consegue enviar para o Excel? Tive que incluir um "IF" no código pois apresenta mensagem de erro quando o e-mail é muito grande. Solução paliativa: If Len(objEmail.Body) > 255 Then Cells(i, 5).Value = "Texto com mais de 255 caracteres" Else: Cells(i, 5).Value = objEmail.Body End If

[@moisesaraujo8719]

Diego, parabéns pelo vídeo, uma dúvida: Se e quiser apenas os e-mails não lidos, como seria?

[@fluis]

E quando eu crio uma pasta personalizada dentro da caixa de entrada? Como pegar os dados apenas dessa pasta personalizada? Editada: Substituí: ' Cria um objeto com a pasta Inbox do Outlook Dim minhaPasta As Object Set minhaPasta = objNSpace.GetDefaultFolder(olFolderInbox) Por: ' Cria um objeto com a pasta Inbox do Outlook Dim minhaPasta As Object Set minhaPasta = objNSpace.GetDefaultFolder(olFolderInbox).Folders("Nome_da_Pasta")

[@bruninho3269]

Minha dúvida tbm hahhaha

[@bruninho3269]

Já descobri, amanhã mando a resposta aqui

[@fluis]

@@bruninho3269 Substituí: ' Cria um objeto com a pasta Inbox do Outlook Dim minhaPasta As Object Set minhaPasta = objNSpace.GetDefaultFolder(olFolderInbox) Por: ' Cria um objeto com a pasta Inbox do Outlook Dim minhaPasta As Object Set minhaPasta = objNSpace.GetDefaultFolder(olFolderInbox).Folders("Nome_da_Pasta")

[@cesarohlif]

Muito obrigado por compartilhar a resolução, amigo!

[@candidofreitas9284]

Deu certo, mas tive que mover a pasta que precisava ler para dentro da caixa de entrada, valeuu amigão !!

[@jeferson-jeffexcel5560]

Muito top """ #atéofim

[@osmartkd1]

Muito bom, obrigado. Eh possivel pegar o nome do arquivo em anexo tambem?.

[@angelicosilva3143]

Diego, parabéns pelo conteúdo. Gostaria de ler todas as msgs inclusive aquelas que retornam como não entregues. Também como chamar as de partas particulares em vez da caixa de entrada.Grato

[@gabrielnogueira1678]

Muito bom o conteúdo. Fiquei com uma dúvida, como faço para pegar o endereço de email e não o nome do destinatário ? Em alguns casos, vem apenas o nome e não o endereço completo com o domínio. Obrigado

[@joaojordao1003]

Diego, como faz para capturar o e-mail de uma pasta diferente da Inbox? conteudo top demais o do video, parabens

[@AngeloMiguelEng]

Também acho que seria uma adição valiosa

[@cleberdalastra9176]

@hashtag treinamentos, Diego, estou com um problema, e queria ver se conseguiria me ajudar,..., quando executo a planilha, ocorre o erro: erro em tempo de execução '7' memoria insuficiente, finalizando com 87 linhas, fiz um leve ajuste removendo Cells(i, 3) i4,i5 e alterando para Cells(i, 2).WrapText = False, ja que eu gostaria apenas dos contatos e emails, porem ainda da um erro, erro tempo em execução '1004' erro de definição de aplicativo ou de definição de objeto ficando com apenas 1514 linhas sendo algumas em branco. sera que tem alguma variavel, ou algo que poderia ser modificado para executar sem erros, nem que leve tempo, ou utilize recursos do sistema, armazenamento, etc?

[@AngeloMiguelEng]

Também encontrei algumas linhas em branco. Deverão ser de algum objecto que não é email?

[@leonardocorrea7487]

Excelente

[@kantarwordpanel3500]

Diego Boa noite! Queria uma macro dessa para Mensagem do WahtApp. Voce possui esse material?

[@ivalneisena]

# até o fim

[@williamtavares8352]

Dentro da caixa de entrada tem uma pasta chamada Lojas e dentro de lojas tem várias pastas com nome 1, 2 , 3 …. Preciso que a macro copie uma tabela que é padrão pra todas as lojas que está no corpo do e-mail!! E tem a questão da data por exemplo eu digito a data eu quero que ela verifique! Da pra adaptar? Se sim pode me ajudar?

[@gegecabofrio]

Parabéns pelo video. Mais como faço para pegar de determinada pasta Exemplo Ai neste caso esta na caixa de entrada, mais gostaria de pegar da subpasta. Teste de email

[@TiagoFaion]

Dessa forma, com o i = i+1 fora do if, se ele achar uma pasta ele vai contar 1 e vai deixar a linha em branco, não seria mais sensato deixar para somar só se ele realmente transcrever uma informação?

[@robasjr]

E quando temos 2 contas de email dentro do Outlook, como que faço para escolher qual delas quero puxar as informações?? Obrigadoo!!! #atéoFim

[@jomdtna]

Tb gostaria de saber!! Alguém já descobriu? Kkkkkk

[@eldson.pereira]

Diego, me ajuda em uma questão: se eu quiser separar o conteudo do email e colocar na planilha do excel? Por exemplo: um email com conteudo de envio de comunicação para balanças. Se as balanças 1, 2 e 3 apresentarem falha de comunicação, preencher na planilha e colorir com a cor vermelha. Isso é possivel?

[@HashtagTreinamentos]

É possível, Edson! O que mostrei nessa parte seria a primeira etapa e o que você tá querendo fazer seria uma análise dos dados que puxamos dos e-mails. Dá uma olhada nas outras aulas de VBA do canal que elas vão te ajudar nessa parte da análise/tratamento.

[@eldson.pereira]

@@HashtagTreinamentos Valeu Diego. Vou olhar sim. Obrigado e parabéns pelos vídeos. São excelentes!!!

[@ArcaneQuest014]

1° pela 1° vez

[@senseivaldir]

# Até o fim

[@1B0MnCp4Af]

Dado ter várias contas de email, como integro aquela que me interessa ter no Excel? Obrigado.

[@przinho]

Algum colega tem a resposta para esta dúvida? Estou com o mesmo problema

[@WagnerSantos1985]

Aqui, a cada interação dentro do loop for surge uma janela do outlook pra que eu permita. Como faço para resolver?

[@abelardomonteiro3118]

Como editar o código para que retorne as informações de um email específico?

[@andreluis1666]

Hastag Até o fim.

[@patrickpereira4125]

Diego, boa noite! Tudo beleza? Muito top essa aula, já estou com vários planos na cabeça rsrs. Me diz uma coisa, é possível eu carregar as informações do e-mail incrementando a planilha com os novos e-mails?

[@tekken_bsb]

Fala Diego blz, e possível acessar o Outlook web , com Excel para emails , eu estou manda email pelo vba mas Outlook e online e tô procurando alguma coisa assim e não consigo , tem me help, pfv

[@DaianeMachado-mc8nk]

da para faze atraves do gmail?? e Incluir no Google Sheets?

[@RafaelRodrigues-eh4vq]

Diego, pode me ajudar? está dando o "Erro de Compilação: Variável não definida" na parte de (olFolderInbox). E coloquei o "Dim minhaPasta As Object" antes. Como posso corrigir esse erro? Ele não está reconhecendo meu outlook?

[@HashtagTreinamentos]

Fala Rafael! Provavelmente você não está com a biblioteca do Outlook habilitada no VBA. Lá no VBA vai em Ferramentas - Referências - Microsoft Outlook 16.0 Object Library. Ativa ele e vê se funciona. Se não rolar, tenta ativar a biblioteca Microsoft Office 16.0 Object Library também.

[@RafaelRodrigues-eh4vq]

@@HashtagTreinamentos Ouw.. deu ceerto. Obg galera.. vcs são fera :)

[@guilhermeAlmeida-fv5wz]

É possível acessar os e-mails de uma outra pasta específica?!

[@user-cd6rk3mp2l]

Fala Diego! Cara é possível usar esse código no Gmail?

[@dfirob]

Bom dia, gostaria de saber como ler os e-mails de uma caixa generica. pois desse modo sempre lê a caixa principal.

[@misaelfarias6619]

Troque: Set minhaPasta = objNSpace.GetDefaultFolder(olFolderInbox) Por: Set minhaPasta = objNSpace.GetDefaultFolder(olFolderInbox).Folders("NOME DA PASTA ESCOLHIDA")

[@bernardinosoares8361]

Diego, cara, uso dois email's na firma. Um é o meu individual e outro é o departamental (setor que trabalho). Sendo que o Departamental fica vinculado ao meu email individual, ou seja, não preciso colocar senha. Executei o arquivo e deu certinho com o meu individual. No entanto, ele não leu o departamental. O que pode ter ocorrido?

[@lucasmartinsdasilva7711]

Boa tarde. Conseguiu resolver?

[@nataliamoreno5560]

Preciso dessa ajuda como ler uma caixa departamental

[@isasilva299]

Boa tarde, Diego. Excelente aula ! Me surgiu uma dúvida. Quero buscar apenas e-mails de uma determinada empresa, tem como ? Outra coisa, quando Clico em executar o código fica pedindo permissão para acessar o e-mail, mas fica num looping eterno.

[@forcexdicas3827]

Coloca um filtro no topo da tabela. Depois de rodar a macro, vc pode filtrar os e mails de qm qr

[@isasilva299]

@@forcexdicas3827 Muito obrigada 🙏

[@gustavoferreria]

Precisava dessa solução só que para o Office 365, que fica em versão web, será que teria como?

[@tekken_bsb]

Fala Diego eu consegue fazer código rodar office 365

[@lucasguimaraes5669]

Tenho uma caixa de email compartilhada no meu email e preciso pegar emails dela, tem como definir qual email eu quero extrair e qual pasta?

[@lucasguimaraes5669]

alguém ajuda pf

[@femoreira89]

Olá bom dia Eu gostaria de tirar uma dúvida. Se eu quiser extrair de uma pasta específica? Exemplo: tenho uma pasta chamada BACKUP, como indico ela diretamente.?

[@Kuki00nha]

#AtéOFim Boa noite. Gostaria de saber se teria como eu ler apenas os e-mails que ainda não foram passados para a planilha, pois no e-mail que eu quero aplicar, a pessoa tem muitos, MUITOS e-mails na caixa de entrada dela, e se toda hora ele ler todos os e-mails que estão lá, fica complicado. Talvez colocando para ler entre datas, não sei.

[@marinasimao8464]

Coloca a fórmula do receivedtime para iniciar rodar de uma data específica

[@dedpadilha]

​@@marinasimao8464conseguiu?

[@magrinho-7067]

Teria como pegar mensagem de um canal ou grupo do telegran e transformar em tabela no Exel???

[@mercadoe-commerce4158]

Se eu quiser trazer o anexo, como faço?

[@paularosendo135]

Tem como adicionar uma coluna para incluir o nome do arquivo em anexo?

[@julioandrade7254]

objEmail.Attachments.Item(numero_do_item).DisplayName

[@nataliamoreno5560]

Como eu faço isso de uma caixa departamental? alguém por favor pode me ajudar!

[@claudioerose1]

Professor. É possível copiar os e-mails de todas as pastas (Entrada, Saída, Spam) e citá-las na 'nova' coluna "F"

[@eng.ricardomota]

No meu está dando o seg erro: Declaração duplicada no escopo atual

[@alecouto]

Boa!!! Tem como fazer a mesma coisa em python?

[@saidemua]

No fim objEmail As, não consigo achar o outlook

[@luisricardojr13]

#doComecoAteOFim

[@luismiranda2217]

Se minhas pasta for PST como seria um código??

[@rvandrade1]

#atéofim rsrs

[@solangeguedes1466]

#AteOFim

[@elitonlamim4233]

#ATÉOFIM

[@Isaurindo27]

#ateaofim

[@MrKiozinho]

kkkkkkk testei a macro e deu memória insuficiente: "Erro em tempo de execução '7' Memória insuficiente. E agora ? Só preencheu 416 linhas.

[@ldellabetta]

A MESMA COISA ACONTECE COMIGO e a atualização ficou travada em uma data, no meu caso até 18/01/23 e aparece a mesma mensagem. Alguém sabe informar o que acontece ou como arrumar isso?

[@naiton_1986]

#ateofimdiego

[@pandre272001]

#ateofim

[@marcioventura3850]

#ateofim

[@marcelocremonezi]

#ateofim