Читать почту прикрепленные файлы Excel

Question

Существует ли простой способ чтения данных в файлах Excel, которые вложены в электронные письма в Outlook? Я уверен, что это сценарий, но я не хочу писать его.

Есть ли программа, которая может это сделать?

Answer 1

Широкий ответ на ваш вопрос не был очень подробным

• т.е. что вы подразумеваете под чтением,
• все сообщения в папке и т. д.)

Вы можете удалить все файлы Excel из всех сообщений в папке Outlook с помощью следующего VBA.

Этот код просматривает сообщения в папке Outlook с именем temp под папкой Inbox Any Excel, поскольку вложения сохраняются в C:\test.

Другой пример кода на https://stackoverflow.com/questions/7890612/excel-vba-code-to-save-an-attachment-excel-file-from-an-outlook-email-that-was

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