Victor J Ferreira

Nos diretórios ele possuí a extensão ".msg", mas lendo um pouco verifiquei algo a respeito dos .pst nos próprios diretorios da microsoft quando eles explicam o Objeto Store. Fiquei um pouco confuso, confesso. É possível tentar converter de .msg para .pst?

Infelizmente venho buscando em inúmeros forums e não encontrei nada dessa interação Outlook Mail com pasta de trabalho.

Basole, obrigado por responder! Acredito que cometi alguns erros na minha maneira de expor o problema, vou tentar exemplificar melhor. Eu não possuo mais acesso a caixa de e-mail do outlook que contém os e-mails, possuo apenas os e-mails salvos em um diretório, no caso "D:\Acesso rápido\Documentos\E-mails". Precisaria que o código verificasse cada um dos e-mails dentro desse diretório no disco D, e não diretamente na caixa de entrada do outlook como no seu código que define o objeto Folder como a caixa de entrada do outlook. A seguir o código que tentei realizar sem sucesso: Sub Extrair_Outlook() Dim OutlookApp As Object Dim OutlookNamespace As Object Dim Pasta As Outlook.Store Dim Caminho_Pasta As String Dim OutlookMail As Object Dim i As Integer Set OutlookApp = CreateObject("Outlook.Application") Set OutlookNamespace = OutlookApp.GetNamespace("MAPI") Caminho_Pasta = "D:\Acesso rápido\Documentos\E-mails" Set Pasta = CreateObject("Scripting.FileSystemObject").GetFolder(Caminho_Pasta) i = 2 Range("A1:D1") = Array("Remetente", "Assunto", "Data Recebimento", "Corpo do e-mail") For Each OutlookMail In Pasta.Files If TypeName(OutlookMail) = "MailItem" Then i = i + 1 Cells(i, "A") = OutlookMail.SenderEmailAddress Cells(i, "B") = OutlookMail.Subject Cells(i, "C") = OutlookMail.ReceivedTime Cells(i, "D") = OutlookMail.Body End If Next OutlookMail Set Pasta = Nothing Set OutlookNamespace = Nothing Set OutlookApp = Nothing Columns.AutoFit End Sub

Boa noite, pessoal! Estou em um impasse no meu código que passei o dia inteiro pesquisando e não consegui chegar em nenhuma luz. Possuo uma pasta dentro dos meus documentos hd, com uns 1000 e-mails do mesmo assunto e precisaria de uma maneira de filtrar palavras-chaves dentro do corpo do e-mail. No entanto, não estou conseguindo encontrar uma maneira de fazer o excel ler os arquivos de e-mails do Outlook dentro dessa pasta física (.msg). Tentei replicar o código presente nesse guia: Como Ler E-mails do Outlook e Colocar na Planilha com VBA (hashtagtreinamentos.com) No entanto, na variavel "minha_pasta" criei o objeto como file system object e acabou não dando certo. Desde já agradeço