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

Question

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

我正在尝试读取我自己的邮箱，所以这一个没有帮助：htps：//stackoverflow.com/questions/43346498/401-unauthorized-access-when-using-ews-to-connect-to-mailbox

我的连接看起来与此页上的连接相同，但在我的项目中使用它时，没有通过与以前相同的未经授权的错误：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("[e-mail]", AddressOf MyRedirectionURLValidationCallback)
        'Exchange.AutodiscoverUrl("[e-mail]", 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

与Outlook中的“测试电子邮件自动配置”相比，我已确认“自动发现”正确找到了服务器。

如果你已经读到这里，非常感谢！

Answer 1

我在上面找到了问题的答案，就在这里分享一下，以防有人需要。问题归结于我的IT组织添加的安全协议，由于最近对我们公司的网络钓鱼攻击，这些协议没有记录在案。

第一条线索是，如果我想在智能手机或ipad等个人4G设备上查看公司电子邮件，我还必须安装微软InTune以连接到O365邮件服务器的MFA。由于我不知道如何将InTune集成到我的.NET应用程序中，我不得不寻找另一个答案。

我请求并被批准将我的功能邮箱从O365移动到用于此应用程序的内部Exchange服务器。解决了身份验证问题。