Read mail attached arquivos excel

4

Existe uma maneira fácil de ler os arquivos do Excel anexados em emails no Outlook? Tenho certeza que isso é roteirizado, mas eu particularmente não quero escrevê-lo.

Existe algum programa que possa realizar isso?

    
por Keltari 29.11.2011 / 19:34

1 resposta

1

Uma resposta ampla dada a sua pergunta não foi muito detalhada

  • ou seja, o que você quer dizer com ler,
  • todas as mensagens em uma pasta, etc.)

Você pode remover todos os arquivos do Excel de todas as mensagens de uma pasta do Outlook com o seguinte VBA

Este código analisa mensagens em uma pasta do Outlook chamada "temp" abaixo da caixa de entrada Quaisquer arquivos do Excel como anexos são salvos em C: \ test

Outro código de amostra em link

Sub SaveOlolAttachments()

    Dim olFolder As Outlook.MAPIFolder
    Dim olMsg As Outlook.MailItem
    Dim olAtt As Outlook.olAttachment
    Dim fsSaveFolder As String
    strSaveFolder = "C:\test\"

    'My testing done in Outlok using a "temp" folder underneath Inbox
    Set olFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    Set olFolder = olFolder.Folders("Temp")
    If olFolder Is Nothing Then Exit Sub

    For Each olMsg In olFolder.Items
        For Each olAtt In olMsg.olAttachments
            If Right$(olAtt.FileName, Len(olAtt.FileName) - InStrRev(olAtt.FileName, ".")) Like "xl?*" Then olAtt.SaveAsFile fsSaveFolder & olAtt.FileName
        Next
    Next
End Sub
    
por 29.11.2011 / 23:45