我需要制作一个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中。
一个有趣的题外话 - 经过我公司的移动到Office 365，我注意到，我有两个新的SMTP邮件地址。如果我对自己打开Outlook的属性，我看到：
这意味着有人可以在doejohn @ MyCorp的在老地址[email protected]现在要么发邮件给我，现在还.mail.onmicrosoft.com。新地址基于我的域用户代码。我从一个Gmail帐户测试了微软的一个，它工作。
总之，这里是我的问题： 1.为什么得到（401）未经授权错误，当我尝试读取我的收件箱？ 2. Office 365是否希望我使用我的域帐户或我的邮箱名称作为用户凭据？ 3.在WebCredentials声明的域部分，我使用我公司的mycorp.com，还是使用Office 365的域名outlook.office365.com？
如果你已经阅读了这么多，非常感谢！