Exchange Webサービス管理APIを使用した.msg形式ファイルの保存

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

を持っているが、ファイルシステムに（.msgの形式で）電子メールを保存しイベントを発生することです。しかし、私はEWSマネージド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()