保存.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()