EWS与Office365的连接失败-401未经授权

我从本文中获取了原始代码:htp://www.c-sharpcorner.com/UploadFile/jj12345678910/reading-email-and-attachment-from-microsoft-exchange-server/.我在使用Telerik转换器将其转换为VB时遇到了一些问题,但我认为我做对了。每次我尝试使用FindItemsResults方法时,它都会以“(401)Unauthorized”停止

提问说明中指出,我应该包括指向我已经找到的内容的链接,以及为什么它不起作用,但我的SO声誉只允许我有2个链接。以下是我尝试过的:

阅读本页后,我尝试了所有可能的用户代码和域组合:htps://stackoverflow.com/questions/10107872/ews-connections-issues-401-unauthorized

我的连接看起来与此页面上的连接相同,但在我的项目中使用它并没有像以前那样通过相同的未经授权的错误:htps://stackoverflow.com/questions/29009295/ews-managed-api-retrieving-e-mails-from-office365-exchange-server

这是我的代码:

Public Class Form1
Public Exchange As ExchangeService
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    lstMsg.Clear()
    lstMsg.View = View.Details
    lstMsg.Columns.Add("Date", 150)
    lstMsg.Columns.Add("From", 250)
    lstMsg.Columns.Add("Subject", 400)
    lstMsg.Columns.Add("Has Attachment", 50)
    lstMsg.Columns.Add("Id", 100)
    lstMsg.FullRowSelect = True

End Sub

Public Sub ConnectToExchangeServer()
    Me.lblMsg.Text = "Connecting to Exchange Server"
    lblMsg.Refresh()
    Try
        'Exchange = New ExchangeService(ExchangeVersion.Exchange2013)
        Exchange = New ExchangeService()
        Exchange.TraceEnabled = True
        'Exchange.UseDefaultCredentials = True
        Exchange.Credentials = New WebCredentials("DoeJohn", "mypasswd", "mycorp.com")
        'Exchange.AutodiscoverUrl("DoeJohn@mycorp.mail.onmicrosoft.com", AddressOf MyRedirectionURLValidationCallback)
        'Exchange.AutodiscoverUrl("John.Doe@mycorp.com", AddressOf MyRedirectionURLValidationCallback)

        Exchange.Url = New System.Uri("https://outlook.office365.com/ews/exchange.asmx")
        lblMsg.Text = "Connected to Exchange Server"
        lblMsg.Refresh()
    Catch ex As Exception
        MsgBox("Fatal Error in Connect: " & ex.Message)
        End
    End Try
End Sub
Public Function MyRedirectionURLValidationCallback(RedirectionURL As String) As Boolean
    Dim Result As Boolean = False
    Dim RedirectionURI As Uri = New Uri(RedirectionURL)
    If RedirectionURI.Scheme = "https" Then
        Return True
    End If
    Return False
End Function
Private Sub btnRead_Click(sender As Object, e As EventArgs) Handles btnRead.Click
    Call ConnectToExchangeServer()
    Dim ts As TimeSpan = New TimeSpan(0, -1, 0, 0)
    Dim MyDate As DateTime = DateTime.Now.Add(ts)
    Dim MyFilter As SearchFilter.IsGreaterThanOrEqualTo = New SearchFilter.IsGreaterThanOrEqualTo(ItemSchema.DateTimeReceived, MyDate)

    If Exchange IsNot Nothing Then
        Dim FindResults As FindItemsResults(Of Item) =
            Exchange.FindItems(WellKnownFolderName.Inbox, MyFilter, New ItemView(50))
        Dim NewRow As ListViewItem
        For Each MyItem As Item In FindResults
            Dim Message As EmailMessage = EmailMessage.Bind(Exchange, MyItem.Id)
            NewRow = New ListViewItem(Message.DateTimeReceived.ToString())
            NewRow.SubItems.Add(Message.From.Name.ToString())
            NewRow.SubItems.Add(Message.Subject)
            NewRow.SubItems.Add(Message.HasAttachments.ToString())
            NewRow.SubItems.Add(Message.Id.ToString())
            lstMsg.Items.Add(NewRow)
        Next
    Else

    End If
End Sub

AutoConfig

一个有趣的旁注——在我的公司搬到Office 365后,我注意到我有两个新的SMTP邮件地址。如果我打开自己的Outlook属性,我会看到:

Props

这意味着现在有人可以用约翰的旧地址给我发邮件。doe@mycorp.com,现在也是doejohn@mycorp.mail.onmicrosoft.com.新地址基于我的域用户代码。我在一个gmail帐户上测试了微软的一个,它运行正常。

1.为什么我试图阅读收件箱时会出现(401)未经授权的错误? 2.Office 365是否希望我使用我的域帐户或邮箱名作为用户凭据? 3.在WebCredentials声明的域部分,我是否使用我公司的mycorp。或者我使用Office 365的域outlook。office365.com?

如果你读到这里,非常感谢!