正在连接Exchange office 365共享邮箱

Question

在我们全部迁移到office365之后，我的读取发送到某个共享邮箱的邮件的应用程序已经失败了。

Sub GetEmails()

    Dim exchangeService As New ExchangeService(ExchangeVersion.Exchange2013)
    'WebService Uri
    'Try
    exchangeService.Url = New Uri("https://outlook.office365.com/ews/exchange.asmx")



    exchangeService.Credentials = New WebCredentials("[e-mail]", "PW")
    exchangeService.AutodiscoverUrl("[e-mail]")


    Dim findResults As FindItemsResults(Of Item) = exchangeService.FindItems(WellKnownFolderName.Inbox, New ItemView(10))
    For Each item As Item In findResults.Items
        Dim strID As String
        'Get mail ID
        strID = item.Id.ToString
        'Get Lid from mail subject
        strLid2 = item.Subject.ToString
        strLid2 = UCase(strLid2.Substring(strLid2.Length - 8))
        'Get attachements
        Call GetAttachmentsFromEmail(exchangeService, strID)
        'Move email
        Call MoveEmail(exchangeService, strID)
        'Upload files to case
        Call GetFiles()

    Next

End Sub

Br VG

Answer 1

您应该使用FolderId类来指定您要访问的邮箱，如果它是共享邮箱，例如

FolderId MailboxToAccess = new FolderId(WellKnownFolderName.Inbox, "[e-mail]");
exchangeService.FindItems(MailboxToAccess, New ItemView(10))

去掉Autodiscover行，它不会为您做任何事情，因为它只会发现CAS服务器的URL（它是Office365中的一个endpoint，您已经静态地指定了它）。它对你连接到的邮箱没有任何区别。