Daten aus Outlook für InfoPath Formulare abrufen und eintragen

Imports System.Windows.Forms
Imports Microsoft.Office.Interop.Outlook

 ' Application Object (Verweis zum Assembly hinzufügen )  
 Dim olApp As New Microsoft.Office.Interop.Outlook.Application
 ' Default-Kontakteordner in Outlook ansprechen  
 Dim folderContact As Folder = olApp.GetNamespace("MAPI").GetDefaultFolder(OlDefaultFolders.olFolderContacts)  
 ' Wert des Feldes im Formular in dem der Suchbegriff (Suche nach Nachname) eingegeben wird  
 Dim searchValue As String = MainDataSource.CreateNavigator().SelectSingleNode("/my:meineFelder/my:fieldSearch", NamespaceManager).Value  
 ' Suche in den Kontakten nach Personen mit dem angegebenen Nachnamen  
 Dim foundItems As Items = folderContact.Items.Restrict("[LASTNAME] = '" & searchValue & "'")  
 ' Wurde mindestens ein Kontakt gefunden  
 If Not foundItems.GetFirst() Is Nothing Then
     'Felder im Formular angeben die Werte des Kontakts erhalten sollen  
     Dim fldVorname As XPathNavigator = MainDataSource.CreateNavigator().SelectSingleNode("/my:meineFelder/my:fieldVorname", NamespaceManager)  
     Dim fldNachname As XPathNavigator = MainDataSource.CreateNavigator().SelectSingleNode("/my:meineFelder/my:fieldNachname", NamespaceManager)  
     ' Für jeden gefundenen Kontakt setze die Informationen in die Formularfelder  
     For Each itm As ContactItem In foundItems
         With itm
             fldVorname.SetValue(.FirstName)
             fldNachname.SetValue(.LastName)
             'Demo MessageBox anzeigen  
             MessageBox.Show("Kontakt '" & .FullName & "' wurde gefunden.", "Suche", MessageBoxButtons.OK, MessageBoxIcon.Information)  
         End With
     Next
 Else
     ' Es wurde kein Kontakt gefunden, gebe Meldung aus.  
     MessageBox.Show("Leider keinen Kontakt gefunden der dem Suchbegriff entspricht.", "Suche", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)