☰

阅读邮件附加的 excel 文件

tag-icon • tag-icon microsoft-excel email microsoft-outlook vba
阅读邮件附加的 excel 文件

有没有一种简单的方法可以读取 Outlook 中电子邮件附件中的 Excel 文件数据？我确信这是可以编写脚本的，但我并不特别想编写它。

是否有一个程序可以实现这个功能？

答案1

鉴于你的问题不够详细，我只能给出一个笼统的答案

  • 也就是说，你所说的阅读是什么意思，
  • 文件夹中的所有消息等）

您可以使用以下 VBA 从 Outlook 文件夹中的所有邮件中删除所有 Excel 文件

此代码查看收件箱下名为“temp”的 Outlook 文件夹中的邮件，所有 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

相关内容