Wie Sie Kontakte mithilfe von Outlook-Objektmodell in Visual Basic .NET abrufen

Zum Anfang

Erstellen eines Beispielcodes zum Abrufen von Outlook-Kontakte

1. Starten Sie Microsoft Visual Studio .NET.
2. Zeigen im Menü Datei auf neu , und klicken Sie dann auf Projekt .
3. Klicken Sie unter Projekttypen auf Visual Basic-Projekte , und klicken Sie dann unter Vorlagen auf Konsolenanwendung . Module1.vb wird standardmäßig erstellt.
4. Fügen Sie einen Verweis auf das Microsoft Outlook 10.0-Objekt-Bibliothek. Gehen Sie hierzu folgendermaßen vor:
   1. Klicken Sie im Menü Projekt auf Verweis hinzufügen .
   2. Klicken Sie auf die Registerkarte COM .
   3. Klicken Sie auf Microsoft Outlook 10.0 Object Library , und klicken Sie auf auswählen
   4. Klicken Sie auf OK . Wenn Sie aufgefordert werden, um Wrapper für die Bibliothek generieren, die Sie ausgewählt haben, klicken Sie auf Ja .
5. Ersetzen Sie im Fenster Code den Standardcode durch folgenden Code:

   Imports System.Reflection
   
   Module Module1
   
       Sub Main()
           ' Create Outlook application.
           Dim oApp As Outlook.Application = New Outlook.Application()
   
           ' Get NameSpace and Logon.
           Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
           oNS.Logon("Outlook", Missing.Value, False, True) ' TODO:
   
           ' Get the first contact from the Contacts folder.
           Dim cContacts As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
           Dim oItems As Outlook.Items = cContacts.Items
   
           Dim oCt As Outlook.ContactItem
   
           Try
   
               oCt = oItems.GetFirst()
   
   
               ' Display some common properties.
               Console.WriteLine(oCt.FullName)
               Console.WriteLine(oCt.Title)
               Console.WriteLine(oCt.Birthday)
               Console.WriteLine(oCt.CompanyName)
               Console.WriteLine(oCt.Department)
               Console.WriteLine(oCt.Body)
               Console.WriteLine(oCt.FileAs)
               Console.WriteLine(oCt.Email1Address)
               Console.WriteLine(oCt.BusinessHomePage)
               Console.WriteLine(oCt.MailingAddress)
               Console.WriteLine(oCt.BusinessAddress)
               Console.WriteLine(oCt.OfficeLocation)
               Console.WriteLine(oCt.Subject)
               Console.WriteLine(oCt.JobTitle)
   
           Catch
   
               Console.WriteLine("an error occurred")
   
           Finally
   
               ' Display
               'oCt.Display(True)
   
               ' Log off.
               oNS.Logoff()
   
               ' Clean up.
               oApp = Nothing
               oNS = Nothing
               oItems = Nothing
               oCt = Nothing
   
           End Try
   
           
       End Sub
   
   End Module
   					

6. Ändern Sie den Code, wo die TODO-Kommentare angezeigt.
7. Drücken Sie F5, um erstellen und Ausführen der Anwendung.
8. Stellen Sie sicher, dass der erste Kontakt abgerufen wird.

Zum Anfang