从 Enterprise Vault 下载的附件大小为 0kb，名称仅为“@”

Question

Sub Merge_daily_emails1()

    Dim myOlApp As New Outlook.Application
    Dim myNameSpace As Outlook.Namespace
    Dim myInbox As Outlook.MAPIFolder
    Dim Atch As Object
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
    Dim filteredItems As Outlook.Items
    Dim itm As Object
    Dim strFilter As String

    strFilter = "@SQL=" & Chr(34) & "urn:schemas:httpmail:subject" & Chr(34) & " like '%Daily Reports%'"
    Set filteredItems = myInbox.Items.Restrict(strFilter)
    AttachmentPath = "H:\"
    If filteredItems.count > 0 Then
        For Each itm In filteredItems
            If itm.Attachments.count <> 0 Then
                For Each Atch In itm.Attachments
                    Atch.SaveAsFile AttachmentPath & Atch.Filename
                    Exit For
                Next
            Else
                MsgBox "Does not Have an Attachment"
            End If
        Next
    End If
    Set myOlApp = Nothing

End Sub

我正在尝试从我的收件箱电子邮件中下载所有在其主题行中包含“每日报告”字样的附件。

我下载的一些 Excel 文件大小为 0kb，名称为 "@"。

我最好的猜测是，由于这些电子邮件很旧并且使用 enterprise vault 系统打开，我无法以正确的方式下载文件。

Edit (ddate as Date) 参数是我用于搜索的开始日期，我删除了代码以使其更简单，现在它将搜索整个收件箱。

Answer 1

你可能想从你的 sub 中删除 (ddate As Date) 并将 AttachmentPath 声明为 Dim attachmentPath As String 也将 Option Explicit 设置为 Off 通常不是一个好习惯

请参阅 Option Explicit Statement 上的 MSDN