Microsoft KB Archive Search

Notice: This website is an unofficial Microsoft Knowledge Base (hereinafter KB) archive and is intended to provide a reliable access to deleted content from Microsoft KB. All KB articles are owned by Microsoft Corporation. Read full disclaimer for more details.

  1. Home
  2. How to use the CDOEX library and the ExOLEDB provider to create an Outlook contact in Visual Basic .NET

How to use the CDOEX library and the ExOLEDB provider to create an Outlook contact in Visual Basic .NET

View products that this article applies to.

This article was previously published under Q314374
Caution ADO and ADO MD have not been fully tested in a Microsoft .NET Framework environment. They may cause intermittent issues, especially in service-based applications or in multithreaded applications. The techniques that are discussed in this article should only be used as a temporary measure during migration to ADO.NET. You should only use these techniques after you have conducted complete testing to make sure that there are no compatibility issues. Any issues that are caused by using ADO or ADO MD in this manner are unsupported. For more information, see the following article in the Microsoft Knowledge Base:
840667 � (http://support.microsoft.com/kb/840667/ ) You receive unexpected errors when using ADO and ADO MD in a .NET Framework application

↑ Back to the top

Summary

This article describes how to use the Microsoft Collaboration Data Objects (CDO) for Microsoft Exchange 2000 (CDOEX) library and the Exchange OLE DB provider (ExOLEDB) to create a Microsoft Outlook contact in Microsoft Visual Basic .NET.

↑ Back to the top

More information

To use the CDOEX library and the ExOLEDB provider to create an Outlook contact in Visual Basic .NET, follow these steps:
  1. Start Microsoft Visual Studio .NET.
  2. On the File menu, point to New, and then click Project.
  3. Under Project Types, click Visual Basic Projects.
  4. Under Templates, click Console Application, and then click OK.

    By default, Module1.vb is created.
  5. 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. If you receive a prompt to generate wrappers for the libraries that you selected, click Yes.
  6. Follow the same steps to add a reference to the Microsoft ActiveX Data Objects 2.5 Library.
  7. In the code window, replace all the code with the following.

    Note You must run the following code sample on a computer that is running Microsoft Exchange 2000 Server for the code sample to run correctly. 
    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. Search for "TO DO" in the code, and then modify the code for your environment.
  9. Press F5 to build and to run the program.
  10. Verify that the contact has been created.

↑ Back to the top

Keywords: KB314374, kbhowto

↑ Back to the top

Article Info
Article ID : 314374
Revision : 4
Created on : 11/29/2007
Published on : 11/29/2007
Exists online : False
Views : 597