Отправитель, SenderEmailAddress, Отсутствующий в Папке. Элементы - PullRequest
Новая
       8

Отправитель, SenderEmailAddress, Отсутствующий в Папке. Элементы

0 голосов
/ 12 октября 2018

Я хочу загрузить вложения из электронных писем 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.

Как я могунайти адрес электронной почты и имя отправителя элемента электронной почты?

Вот что я вижу в своем окне местных жителей.Locals window capture

Это происходит для всех электронных писем в коробке.Кто-то сказал мне, что это потому, что все они «пользователи обмена», и для них администраторы предприятия могут устанавливать ограничения.

...