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

问题描述：

我需要制作一个VB .net工具来阅读电子邮件并保存附件。我公司最近从内部Exchange迁移到Office 365。我一直在阅读EWS教程2天，并搜索StackOverflow，但无法超越授权访问O365邮箱的最基本步骤。与Office365的EWS连接失败 - 401未授权

我拿了这篇文章的原代码：htp：//www.c-sharpcorner.com/UploadFile/jj12345678910/reading-email-and-attachment-from-microsoft-exchange-server/。使用Telerik转换器将其转换为VB时遇到了一些麻烦，但我认为它是正确的。每次尝试使用FindItemsResults方法时，都会以“（401）未授权”停止。

问一个问题的说明状态，我应该包括我已经找到的链接和为什么它没有工作，但我的SO声望只允许我2个链接。这是我曾尝试：

我曾尝试一切可能的用户代码和域组合阅读此页后，我能想到的：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-检索电子邮件从办公室365交换服务器

这里是我的代码：

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("[email protected]", AddressOf MyRedirectionURLValidationCallback) 
     'Exchange.AutodiscoverUrl("[email protected]", 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中。

AutoConfig

一个有趣的题外话 - 经过我公司的移动到Office 365，我注意到，我有两个新的SMTP邮件地址。如果我对自己打开Outlook的属性，我看到：

Props

这意味着有人可以在doejohn @ MyCorp的在老地址[email protected]现在要么发邮件给我，现在还.mail.onmicrosoft.com。新地址基于我的域用户代码。我从一个Gmail帐户测试了微软的一个，它工作。

总之，这里是我的问题： 1.为什么得到（401）未经授权错误，当我尝试读取我的收件箱？ 2. Office 365是否希望我使用我的域帐户或我的邮箱名称作为用户凭据？ 3.在WebCredentials声明的域部分，我使用我公司的mycorp.com，还是使用Office 365的域名outlook.office365.com？

如果你已经阅读了这么多，非常感谢！

答

我找到了上面问题的答案，所以我会在这里分享以防万一需要。问题归结为我的IT组织添加的安全协议，这些安全协议由于最近对我们公司的钓鱼攻击而未记录在案。

第一个线索是，IT部门表示，如果我想在我的个人4G设备（如智能手机或iPad）上检查公司电子邮件，我还必须安装Microsoft InTune以便将MFA连接到O365邮件服务器。由于我不知道如何将InTune集成到我的.Net应用程序中，所以我不得不寻找其他答案。

我请求并获得批准将我的功能邮箱从O365移至此应用的预置Exchange服务器。这解决了认证问题。

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

相关推荐