How to enumerate all fields of an object by using the CDOEX library and the ExOLEDB provider in Visual Basic .NET (314378)

MORE INFORMATION

Requirements

• Microsoft Exchange OLE DB (ExOLEDB) provider
• Programming with ActiveX Data Objects Library

• Microsoft Visual Studio .NET
• Microsoft Exchange 2000 Server

1. Start Visual Studio .NET.
2. On the File menu, click New, and then click Project.
3. Under Visual Basic Projects types, click Console Application.
   
   By default, Module1.vb is created.
4. Add a reference to the Microsoft CDO for Exchange 2000 Library. To do this, follow these steps:
   1. On the Project menu, click Add Reference.
   2. On the COM tab, click Microsoft CDO for Exchange 2000 Library, and then click Select.
   3. In the Add References dialog box, click OK to accept your selections.
   4. Click Yes if you receive a message to generate wrappers for the libraries that you selected.
5. Repeat the previous steps to add a reference to the Microsoft ActiveX Data Objects 2.5 Library.
6. Replace all the code in the code window with the following 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. Modify the line of code that begins with TODO.
8. Press F5 to build and to run the program.
9. Verify that the fields of the specified object are enumerated.