Como enumerar todos os campos de um objeto usando a biblioteca CDOEX e o provedor ExOLEDB no Visual Basic .NET

Requisitos

• Microsoft provedor Exchange OLE DB (ExOLEDB)
• Programação com ActiveX Data Objects Library

• Microsoft Visual Studio .NET
• Microsoft Exchange 2000 Server

1. Inicie o Visual Studio NET..
2. No menu arquivo , clique em novo e, em seguida, clique em Project .
3. Em tipos de projetos do Visual Basic , clique em Aplicativo de console .
   
   Por padrão, Module1.vb é criado.
4. Adicione uma referência para o Microsoft CDO para Exchange 2000 Library. Para fazer isso, execute as seguintes etapas:
   1. No menu Project , clique em Add Reference .
   2. Na guia COM , clique em Microsoft CDO para Exchange 2000 Library e, em seguida, clique em Selecionar .
   3. Na caixa de diálogo Add References , clique em OK para aceitar as seleções.
   4. Clique em Sim se você receber uma mensagem para gerar wrappers para as bibliotecas que você selecionou.
5. Repita as etapas anteriores para adicionar uma referência para o ActiveX Data Objects 2.5 Library.
6. Substituir todo o código na janela de código com o seguinte código:

   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. Modifique a linha de código que começa com o TODO.
8. Pressione F5 para criar e executar o programa.
9. Verifique se que os campos do objeto especificado são enumerados.

Voltar para o início