Enregistrer le fichier au format .msg avec les services Web Exchange gérés API

Question

J'essaie d'utiliser l'API 1.1 des services Web Exchange pour me connecter à Exchange, puis savoir si un e-mail a été envoyé ou reçu et enregistrer une copie du fichier .msg fichier dans un dossier sur le disque.

Jusqu'à présent, j'ai le code suivant

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

Ce que je veux est de déclencher un événement qui permet d'économiser l'e-mail (en format .msg) au système de fichiers. Mais je n'arrive pas à trouver un moyen de le faire avec l'EWS Managed API, je me contenterais d'une fonction pour voir si de nouveaux messages existent depuis le dernier appel ou similaire sans préformer les recherches tout le temps. Je préférerais ne pas l'implémenter comme un plugin de perspectives car nous en avons besoin pour travailler de manière transparente avec la version web ainsi qu'avec le client complet.

Answer 1

Je ne pouvais trouver aucune façon directe de faire avec dans le cadre donc j'utilisé la Rédemption et le code suivant pour le résoudre:

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