Vb.net EWS与Office 365的连接失败-401未经授权
我需要做一个VB.net工具来阅读电子邮件和保存附件。我的公司最近从本地Exchange迁移到Office 365。我已经阅读了2天的EWS教程,搜索StackOverflow,但无法通过授权访问O365邮箱的最基本步骤 我从本文中获取了原始代码: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/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 这是我的密码:Vb.net EWS与Office 365的连接失败-401未经授权,vb.net,office365,ems,Vb.net,Office365,Ems,我需要做一个VB.net工具来阅读电子邮件和保存附件。我的公司最近从本地Exchange迁移到Office 365。我已经阅读了2天的EWS教程,搜索StackOverflow,但无法通过授权访问O365邮箱的最基本步骤 我从本文中获取了原始代码:htp://www.c-sharpcorner.com/UploadFile/jj12345678910/reading-email-and-attachment-from-microsoft-exchange-server/. 我在使用Telerik
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
我已经确认,与Outlook中的测试电子邮件自动配置相比,AutoDiscover正确地找到了服务器
一个有趣的旁注——在我的公司搬到Office 365后,我注意到我有两个新的SMTP邮件地址。如果我自己打开Outlook属性,我会看到:
这意味着现在有人可以通过旧地址给我发邮件。doe@mycorp.com,现在也是doejohn@mycorp.mail.onmicrosoft.com. 新地址基于我的域用户代码。我从一个gmail帐户测试了微软的一个,它运行正常
总而言之,以下是我的问题:
1.当我试图阅读收件箱时,为什么会出现(401)未经授权的错误?
2.Office 365是否希望我使用域帐户或邮箱名称作为用户凭据?
3.在WebCredentials声明的域部分,我是使用我公司的mycorp.com还是使用Office 365的域outlook.office365.com
如果你已经读到这里,非常感谢 我找到了上述问题的答案,因此我将在这里分享,以防有人需要它。问题出在我的IT组织添加的安全协议上,这些协议由于最近针对我们公司的网络钓鱼攻击而没有记录在案 第一条线索是,它指出,如果我想在我的个人4G设备(如智能手机或ipad)上查看公司电子邮件,我还必须安装Microsoft InTune for MFA连接到O365邮件服务器。因为我不知道如何将InTune集成到我的.Net应用程序中,所以我不得不寻找另一个答案 我请求并被批准将我的功能邮箱从O365移动到此应用的内部部署Exchange服务器。这就解决了身份验证问题