Folder.Items 中缺少发件人、SenderEmailAddress

Question

我想从 Outlook 电子邮件中下载附件。

这是我用来检索电子邮件的代码。

Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders(botMailFolder)

i = 1

For Each OutlookMail In Folder.Items
    If InStr(OutlookMail.Subject, " ") <> 0 Then

        If OutlookMail.Attachments.Count > 0 Then

            Dim folderBase As String
            folderBase = botLocalFolder

            Dim newFolder As String
            newFolder = folderBase & OutlookMail.EntryID

            'OutlookItem.SenderAddress

            If Not FolderExists(newFolder) Then
                FolderCreate newFolder
            End If

            For Each a In OutlookMail.Attachments
                Dim newFileName As String
                newFileName = newFolder & "\" & a.DisplayName
                'MsgBox newFileName
                a.SaveAsFile newFileName
            Next

        End If

    End If

Next OutlookMail

问题是，Sender,SenderEmailAddress 和 SenderName 是空的。只有SenderEmailType 填充为EX。

代码作为 Excel 宏执行，我的所有发件人（用户）都是 Exchange 2013 用户。

如何找到电子邮件项目的发件人的电子邮件地址和姓名？

这是我在本地窗口中看到的。

邮箱中的所有电子邮件都会出现这种情况。有人告诉我这是因为所有人都是“交换用户”，企业管理员可以为他们设置限制。

Answer 1

我也有这个问题。我可以克服它的唯一方法是在 OUTLOOK VBA（Outlook -> 开发人员选项卡 -> vba）中运行代码，并且不要将您的应用程序专门作为 Outlook 应用程序启动。

示例：

Dim olApp As Outlook.Application
Set olApp = CreateObject(Outlook.Application)

需要变成

Dim olApp As Application
Set olApp = Application

诀窍是不要从外部 Outlook（即 Excel 中）打开新的 Outlook 实例。如果您有任何类型的 Outlook Exchange 安全设置，从 Excel 中打开 Outlook 将禁止您访问发件人等关键信息。