A enumerar todos os campos de um objecto utilizando a biblioteca CDOEX e o fornecedor ExOLEDB no Visual Basic .NET

Requisitos

• Microsoft Exchange fornecedor 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 ficheiro , clique em Novo e, em seguida, clique em projecto .
3. Em tipos de projectos do Visual Basic , clique em Consola de aplicação .
   
   Por predefinição, é criado Module1.vb.
4. Adicione uma referência para o Microsoft CDO for Exchange 2000 Library. Para o fazer, siga estes passos:
   1. No menu projecto , clique em Add Reference .
   2. No separador COM , clique em Microsoft CDO for Exchange 2000 Library e, em seguida, clique em Seleccionar .
   3. Na caixa de diálogo Adicionar referências , clique em OK para aceitar as selecções.
   4. Clique em Sim se receber uma mensagem para gerar wrappers para as bibliotecas que seleccionou.
5. Repita os passos anteriores para adicionar uma referência à Microsoft ActiveX Data Objects 2.5 Library.
6. Substituir todos os códigos na janela de código 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. Prima F5 para criar e executar o programa.
9. Certifique-se que os campos de objecto especificado são enumerados.

Voltar ao topo