Thanks Thanks:  0
Likes Likes:  0
Results 1 to 2 of 2

Thread: Copiar conteúdo do Outlook para Excel

  1. #1
    New Member
    Join Date
    Jun 2017
    Posts
    18
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Copiar conteúdo do Outlook para Excel

    Bom dia galera,

    Estou com um código VBA para pegar umas informações do outlook mas ele está dando erro da coluna "G" para frente. Não consigo descobrir o que é, podem me ajudar?

    Sub Emails_Outlook()
    'Carregar e-mails do outlook para o excel
    Dim appOutlook As Object
    Dim olNS As Object
    Dim olFolder As Object
    Dim olItem As Object
    Dim r As Long
    On Error Resume Next
    Set appOutlook = GetObject(, "Outlook.Application")
    If appOutlook Is Nothing Then
    Set appOutlook = CreateObject("Outlook.Application")
    End If
    On Error GoTo 0
    Set olNS = appOutlook.GetNamespace("MAPI")
    'Abaixo preencha o nome do arquivo de dados PST e a pasta.
    'Neste caso o arquivo é Douglas Godoy e a pasta Caixa de Entrada.
    Set olFolder = olNS.Folders("rodrigo.finguer@brf-br.com").Folders("Fornecedores")
    ' Set olRecip = olNS.CreateRecipient("contatofornecedor@brf-br.com")
    ' Set olFolder = olNS.GetSharedDefaultFolder(olRecip, olFolderInbox).Folders("Rodrigo")
    Cells.Delete
    r = 3
    'Cria um array montando o título das colunas no arquivo.
    Range("A3:K3") = Array("Título", "Quem enviou", "Para", "Data e Hora", "Anexos", "Tamanho", "Última modificação", "Categoria", "Nome do Remetente", "Tipo de acompanhamento", "Conteúdo")
    For Each olItem In olFolder.Items
    If TypeName(olItem) = "MailItem" Then
    r = r + 1
    Cells(r, "A") = olItem.Subject 'Assunto do e-mail
    Cells(r, "B") = olItem.SenderEmailAddress 'E-mail do remetente
    Cells(r, "C") = olItem.To 'E-mail do destinatário
    Cells(r, "D") = olItem.ReceivedTime 'Data/Hora de recebimento
    Cells(r, "E") = olItem.Attachments.Count 'Número de anexos
    Cells(r, "F") = olItem.Size 'Tamanho da mensagem em bytes
    Cells(r, "G") = olMail.LastModificationTime 'Última modificação
    Cells(r, "H") = olMail.Categories 'Categoria
    Cells(r, "I") = olMail.SenderName 'Nome do remetente
    Cells(r, "J") = olMail.FlagRequest 'Acompanhamento
    Cells(r, "K") = olItem.Body 'Tome cuidado ao utilizar pois carrega os dados do corpo do email
    Application.StatusBar = r
    End If
    Next olItem
    Columns.AutoFit
    End Sub
    0 0
     

  2. #2
    MrExcel MVP
    Moderator
    Fluff's Avatar
    Join Date
    Jun 2014
    Location
    Chippenham
    Posts
    10,296
    Post Thanks / Like
    Mentioned
    195 Post(s)
    Tagged
    10 Thread(s)

    Default Re: Copiar conteúdo do Outlook para Excel

    Duplicate https://www.mrexcel.com/forum/excel-...ml#post5084121

    Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
    Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).
    - Posting guidelines, forum rules and terms of use
    - Try searching for your answer first, see how
    - Read the FAQs
    - List of BB codes

    Running Office 2003 & 2013 on Win 7
    0 0
     

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

 

DMCA.com