Я новичок в кодировании EWS в VB.Net. Моя цель - извлечь вложения из сообщений, поступающих в назначенную папку «Входящие», и сохранить их в указанной папке. Я протестировал некоторый код, который, казалось, отлично работает при использовании с моей учетной записью домена/Exchange.EWS & VB.Net: Несанкционированные учетные данные - (401) Неавторизованный
Затем я создал новую учетную запись и попытался использовать тот же код. Он начал выдавать ошибку:
The request failed. The remote server returned an error: (401) Unauthorized.
код является довольно простой до сих пор:
Dim exch As ExchangeService = New ExchangeService(ExchangeVersion.Exchange2010_SP2)
exch.Url = New Uri("https://mail.OURSERVER.com/EWS/Exchange.asmx")
exch.UseDefaultCredentials = False
exch.Credentials = New System.Net.NetworkCredential("IncomingStoreInspections", "PASSWORD", "DOMAIN")
Dim iv As ItemView = New ItemView(100)
iv.Traversal = ItemTraversal.Shallow
Dim InboxItems As FindItemsResults(Of Item) = Nothing
InboxItems = exch.FindItems(WellKnownFolderName.Inbox, iv)
Ошибка производится по последней строке.
До сих пор я сравнивал свойства учетной записи домена и почтового ящика работающего пользователя и вновь созданного пользователя и не придумал ничего полезного. Заранее спасибо!
Попробуйте 'exch.Credentials = новые WebCredentials (« user @ domain »,« PASSWORD »,« DOMAIN »);' или 'exch.Credentials = new WebCredentials (« пользователь ») , "PASSWORD", "DOMAIN"); ' – Hackerman
Я пробовал оба с тем же результатом. Первое предложение вернулось с ошибкой намного быстрее. – DexterSlab442
Возможно, связано: http://www.petenetlive.com/KB/Article/0000775 – Hackerman