Wie alle Felder des Objekts mithilfe der CDOEX-Bibliothek und ExOLEDB-Anbieter in Visual Basic .NET aufgelistet

Voraussetzungen

• Microsoft Exchange OLE DB (ExOLEDB)-provider
• Programmierung mit ActiveX Data Objects-Bibliothek

• Microsoft Visual Studio .NET
• Microsoft Exchange 2000 Server

1. Starten Sie Visual Studio .NET.
2. Im Menü Datei klicken Sie auf neu und klicken Sie dann auf Projekt .
3. Klicken Sie unter Visual Basic-Projekttypen auf Konsolenanwendung .
   
   Module1.vb wird standardmäßig erstellt.
4. Fügen Sie einen Verweis auf Microsoft CDO für Exchange 2000 Library hinzu. Gehen Sie hierzu folgendermaßen vor:
   1. Klicken Sie im Menü Projekt auf Verweis hinzufügen .
   2. Klicken Sie auf Microsoft CDO für Exchange 2000 und dann auf auswählen , auf der Registerkarte COM .
   3. Klicken Sie im Dialogfeld Verweis hinzufügen auf OK , um Ihre Auswahl zu bestätigen.
   4. Klicken Sie auf Ja , wenn eine Meldung, ob für die Bibliotheken Wrapper erstellt, die Sie ausgewählt.
5. Wiederholen Sie die vorherigen Schritte, um einen Verweis auf Microsoft ActiveX Data Objects 2.5 Library hinzufügen.
6. Ersetzen Sie alle den Code in das Code-Fenster mit dem folgenden Code:

   Module Module1
   
       Sub Main()
           Dim oCn As ADODB.Connection = New ADODB.Connection()
           Dim oRc As ADODB.Record = New ADODB.Record()
   
           Dim oFields As ADODB.Fields
           Dim oField As ADODB.Field
   
           ' TODO: Replace with your object URL (folder or item).
           Dim sFdUrl As String
           sFdUrl = "http://<ExchServer>/Exchange/<UserAlias>/Inbox"
   
           oCn.Provider = "exoledb.datasource"
           oCn.Open(sFdUrl, "", "", -1)  
   
           If oCn.State = 1 Then
               Console.WriteLine("Good Connection")
           Else
               Console.WriteLine("Bad Connection")
               Return
           End If
   
           oRc.Open(sFdUrl, oCn, _
            ADODB.ConnectModeEnum.adModeReadWrite, _
            ADODB.RecordCreateOptionsEnum.adFailIfNotExists, _
            ADODB.RecordOpenOptionsEnum.adOpenSource, _
            "", "")
   
           If oRc.State = ADODB.ObjectStateEnum.adStateOpen Then
               Console.WriteLine("Record Open Success")
           Else
               Console.WriteLine("Record Open Fails")
               Return
           End If
   
           ' List all the fields.
           oFields = oRc.Fields
           Dim i As Integer
           For i = 0 To oFields.Count - 1
               oField = oFields.Item(i)
               Console.WriteLine("{0} : {1}", oField.Name, oField.Value)
           Next
   
           oRc.Close()
           oCn.Close()
   
           oCn = Nothing
           oRc = Nothing
           oFields = Nothing
           oField = Nothing
       End Sub
   
   End Module
   					

7. Ändern Sie die Zeile des Codes, die mit TODO beginnt.
8. Drücken Sie F5, um erstellen und Ausführen des Programms.
9. Stellen Sie sicher, dass die Felder des angegebenen Objekts aufgelistet werden.

Zum Anfang