Невозможно загрузить вложения из электронной почты с помощью EWS в VB.NET - PullRequest
Новая
       101

Невозможно загрузить вложения из электронной почты с помощью EWS в VB.NET

0 голосов
/ 28 мая 2020

Я использую Microsoft.Exchange.WebServices версии 15.0.0.0 и среду выполнения версии 2.0.50727 для чтения и сохранения электронной почты и ее вложений. Он отлично работает с Exchange Server 2010. Код не работает с Exchange Server 2016 только в определенном сценарии. Сценарий следующий: «К входящему электронному письму прикреплено другое электронное письмо. Прикрепленное электронное письмо содержит несколько вложений, таких как .PDF, .XLSX, .TIFF. При попытке сохранить эти вложения я получаю сообщение об ошибке. Сообщение об ошибке: - Указанный идентификатор вложения - недействительным". Может ли кто-нибудь дать мне решение этой проблемы?

Ошибка возникает в - fileAttachment.Load ("c: \ WorkPath \" + (fileAttachment.Name)) и сообщение об ошибке - Указанный идентификатор вложения недействителен . Код:

Private Sub SaveAttachmentsasFiles (ByVal ExtractorMail как сообщение электронной почты, ByVal WorkPath как строка, ByRef EWSService как ExchangeService) 

    Dim attachmentMail As EmailMessage
    Const functionName As String = ".SaveAttachmentsasFiles"
    Dim newAttachment As FileInfo

        ' Iterate through the attachments collection and save each attachment to the work directory.
        For Each attachment As Microsoft.Exchange.WebServices.Data.Attachment In ExtractorMail.Attachments
            If TypeOf attachment Is FileAttachment Then

                Dim fileAttachment As FileAttachment = TryCast(attachment, FileAttachment)

                       'Save the attachment to local workpath
                        fileAttachment.Load()
                        *fileAttachment.Load("c:\WorkPath\"+(fileAttachment.Name))*
               End If
        Next
...