Artigo: 314374 - Última revisão: quinta-feira, 29 de Novembro de 2007 - Revisão: 2.2

Como utilizar a biblioteca CDOEX e o fornecedor ExOLEDB para criar um contacto do Outlook no Visual Basic .NET

Vista lado a ladoClique aqui para exibir o artigo traduzido e o artigo original em inglês, lado a lado.
Tradução automáticaVer isenção de responsabilidades para tradução automática
Ver produtos para os quais este artigo se aplica.
Dica do SistemaEste artigo aplica-se a um sistema operativo diferente do que está a utilizar. Foi desactivado o conteúdo do artigo, que pode não ser relevante para si.
atenção ADO and ADO MD não foram totalmente testados num ambiente de Microsoft .NET Framework. Podem provocar problemas intermitentes, especialmente nas aplicações baseadas em serviços ou nas aplicações multithread. As técnicas que são discutidas neste artigo só devem ser utilizadas como uma medida temporária durante a migração para ADO.NET. Só deverá utilizar estas técnicas depois realizados concluída testar para se certificar que estão sem problemas de compatibilidade. Problemas causados por utilizar ADO ou ADO MD desta forma não são suportados. Para mais informações, consulte o seguinte artigo na base de dados de conhecimento da Microsoft:
840667   (http://support.microsoft.com/kb/840667/ ) É apresentada erros inesperados quando utilizar o ADO and ADO MD numa aplicação do .NET Framework
Expandir tudo | Reduzir tudo

Sumário

Este artigo descreve como utilizar o Microsoft Collaboration Data Objects (CDO) para a biblioteca do Microsoft Exchange 2000 (CDOEX) e o fornecedor OLE DB Exchange (ExOLEDB) para criar um contacto do Microsoft Outlook no Microsoft Visual Basic. NET.

Mais Informação

Para utilizar a biblioteca CDOEX e o fornecedor ExOLEDB para criar um contacto do Outlook no Visual Basic. NET, siga estes passos:
  1. Inicie o Microsoft Visual Studio NET..
  2. No menu ficheiro , aponte para Novo e, em seguida, clique em projecto .
  3. Em Project Types , clique em Projectos do Visual Basic .
  4. Em modelos , clique em Consola de aplicação e, em seguida, clique em OK .

    Por predefinição, é criado Module1.vb.
  5. Adicione uma referência para o Microsoft CDO para biblioteca de Exchange 2000. Para o fazer, siga estes passos:
    1. No menu projecto , clique em Adicionar referência .
    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. Se receber um pedido para gerar wrappers para as bibliotecas que seleccionou, clique em Sim .
  6. Siga os mesmos passos para adicionar uma referência à biblioteca Microsoft ActiveX Data Objects 2.5.
  7. Na janela de código, substitua todo o código seguinte.

    Nota Tem de executar o seguinte exemplo de código num computador que está a executar o Microsoft Exchange 2000 Server para o código de exemplo seja executado correctamente. 
    Module Module1

    Sub Main()
        ' TODO: Replace the URL with your folder URL.
        Dim sURL As String
        sURL = "http://<ExchServer>/Exchange/<UserAlias>/Contacts"

        Dim oCn As ADODB.Connection = New ADODB.Connection()
        oCn.Provider = "exoledb.datasource"

        oCn.Open(sURL, "", "", 0)
        If oCn.State = 1 Then
            Console.WriteLine("Good Connection")
        Else
            Console.WriteLine("Bad Connection")
            Return
        End If

        Dim oPerson As CDO.Person = New CDO.Person()
        oPerson.Title = "Engineer"
        oPerson.FirstName = "Joe"
        oPerson.LastName = "Healy"
        oPerson.Company = "Fabrikam, Inc."
        oPerson.Email = "abc@fabrikam.com"
        oPerson.FileAs = "Joe Healy"

        oPerson.DataSource.SaveToContainer(sURL, , _
         ADODB.ConnectModeEnum.adModeReadWrite, _
         ADODB.RecordCreateOptionsEnum.adCreateNonCollection, _
         ADODB.RecordOpenOptionsEnum.adOpenSource, _
         "", "")

        oCn.Close()

        oPerson = Nothing
        oCn = Nothing
    End Sub

End Module
  8. Procure o "TO DO" no código e, em seguida, modifique o código para o seu ambiente.
  9. Prima F5 para criar e executar o programa.
  10. Verifique se o contacto foi criado.
A informação contida neste artigo aplica-se a:
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Exchange 2000 Server Standard Edition
  • Collaboration Data Objects for Exchange 2000
  • Microsoft ActiveX Data Objects 2.5
  • Microsoft ActiveX Data Objects 2.6
  • Microsoft ActiveX Data Objects 2.7
Voltar ao topo
Palavras-chave: 
kbmt kbhowto KB314374 KbMtpt
Tradução automáticaTradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 314374  (http://support.microsoft.com/kb/314374/en-us/ )
Voltar ao topo