VBA Excel: Como ler emails do Outlook

A pedido de um dos alunos da Mentoria VBA Excel, fiz um código (bem inicial) para ler os e-mails da sua caixa do Outlook e colocar os dados em uma planilha.

Esse código abaixo, lê todos os e-mails da sua caixa de entrada e coloca na planilha que estiver selecionada as propriedades: “Assunto”, “Data de Recebimento” e “Data de Envio”.

Como disse, é um código bem simples e inicial, usem com moderação 😉


Option Explicit

‘Função para ler os E-Mails de uma pasta
Sub sbLeEmails()

Dim oOutApp As Object           ‘Aplicação Outlook
Dim oFolder As Folder             ‘Objeto pasta do outlook
Dim oItem As Object                 ‘Cada item na pasta
Dim oNamespace As Object   ‘Objeto para capturar o MAPI
Dim contaCelulas As Long     ‘Contador de Célular da Planilha

‘Cria uma nova aplicação outlook
Set oOutApp = GetObject(, “Outlook.Application”)
If oOutApp Is Nothing Then

Set oOutApp = CreateObject(“Outlook.Application”)

End If

‘Ajusta o folder
Set oNamespace = oOutApp.GetNamespace(“MAPI”)
Set oFolder = oNamespace.GetDefaultFolder(olFolderInbox)

‘Inicia o contador de células na primeira linha da planilha
Cells(1, “A”) = “Assunto”
Cells(1, “B”) = “Data Recebimento”
Cells(1, “C”) = “Data Envio”
contaCelulas = 2

‘Para cada email na caixa, colhe a data de envio e recebimento
For Each oItem In oFolder.Items

If TypeName(oItem) = “MailItem” Then

Cells(contaCelulas, “A”) = oItem.Subject
Cells(contaCelulas, “B”) = oItem.ReceivedTime
Cells(contaCelulas, “C”) = oItem.SentOn
contaCelulas = contaCelulas + 1
       

End If

Next

‘Libera memória
Set oOutApp = Nothing
Set oFolder = Nothing
Set oItem = Nothing
Set oNamespace = Nothing

End Sub

 

Aprender VBA Excel é fácil?

Fico surpreso cada dia que vejo o que as pessoas fazem para vender treinamentos. A última foi ver um anúncio que dizia “Saia do zero e se torne um mestre do Excel em 4 semanas”, ou algo do tipo. No anúncio, a empresa dizia que você aprenderia inclusive VBA. Em 4 semanas? Não importa o que o anúncio dizia no detalhe, mas a chamada é mentira com certeza.

Já ministrei muitos treinamento de Excel com VBA em empresas tradicionais como professor convidado. Nesses casos sempre sigo a metodologia da instituição contratante.

Programação não é um conhecimento trivial. Existe uma dificuldade grande até que o aluno consiga entender a “Lógica de Programação” e isso é totalmente normal.

O VBA Excel abre muitas portas, principalmente para quem trabalha em empresas pequenas e médias, as quais possuem menos sistemas próprios e menos profissionais dedicados à área de tecnologia. Diversas atividades repetitivas do dia a dia podem ser automatizadas e economizam tempo e dinheiro, aumentando a produtividade do profissional e a rentabilidade para a empresa.

Não acredite quando alguém disser que você vai aprender Excel com VBA em 4 semana ou em um treinamento de 30 ou 40 horas. Você pode, quando muito, começar a entender como usar o VBA do Excel, mas terá um longo caminho pela frente pesquisando e estudando por conta própria.

Pensando em todos esses problemas, desenvolvi um método inovador chamado Mentoria VBA Excel, totalmente online mas com acesso muito próximo ao professor, que você pode conhecer clicando aqui.

Independente de usar meu método ou não, você pode acompanhar as postagens que farei no site Office Resolve, a partir de agora para ajudar você a aprender ou melhorar seus conhecimentos de VBA no Excel.

Abraços,

R.Sabino.
Professor e Conteudista – Office Resolve