保存.msg格式文件與交換Web服務託管API

Question

我試圖使用Exchange Web服務託管API 1.1連接到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()) 

我想是火節省了電子郵件（。味精格式）文件系統的事件。但我似乎無法找到任何方法來與EWS Managed API做到這一點，我會解決一個函數調用，以查看自上次調用或類似以來是否存在新消息，而無需一直執行搜索。我寧願將它作爲一個Outlook插件來實現，因爲我們需要它能夠與Web版本以及完整的客戶端無縫協作。

Answer 1

我無法找到任何直接的方式做內部的框架，所以我用贖回和下面的代碼來解決這個問題：

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()