сохранить файл формата .msg с помощью управляемых API обменных веб-сервисов

Question

Я пытаюсь использовать управляемый API 1.1 веб-служб Exchange для подключения к Exchange, а затем выяснить, было ли отправлено или получено электронное письмо и сохранить копию .msg файл в папку на диске.

До сих пор, у меня есть следующий код

Dim service As New Microsoft.Exchange.WebServices.Data.ExchangeService(ExchangeVersion.Exchange2007_SP1) 

service.AutodiscoverUrl("name@example.com") 
service.UseDefaultCredentials = True 
Dim ver = service.RequestedServerVersion 

Dim inbox As Folder = Folder.Bind(service, WellKnownFolderName.Inbox) 
Console.Out.WriteLine(inbox.UnreadCount.ToString()) 

Dim sentItems As Folder = Folder.Bind(service, WellKnownFolderName.SentItems) 
Console.Out.WriteLine(sentItems.TotalCount.ToString()) 

То, что я хочу, чтобы огонь событие, которое сохраняет электронную почту (в формате .msg) в файловой системе. Но я не могу найти способ сделать это с помощью EWS Managed API, я бы согласился на функцию для вызова, чтобы узнать, существуют ли новые сообщения с момента последнего вызова или аналогичного без предварительного поиска. Я бы предпочел не использовать это как плагин outlook, потому что нам нужно, чтобы он работал с веб-версией, а также с полным клиентом.

Answer 1

я не мог найти какой-либо прямой способ сделать с в рамках, так что я использовал Redemption и следующий код, чтобы разрешить его:

Dim redSess As Redemption.RDOSession = CreateObject("Redemption.RDOSession") 
Dim savedMsg = redSess.GetMessageFromMsgFile("c:\test_ews_m_API2.msg", True) 
savedMsg.Import("c:\test_ews_m_API.eml", 1024) 
savedMsg.Save()