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.

How to create a contact by using ADO and ExOLEDB in Visual Basic .NET


View products that this article applies to.

This article was previously published under Q314362
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
For a Microsoft Visual C# .NET version of this article, see 310199 (http://support.microsoft.com/kb/310199/ ) .
For a Microsoft Visual C# .NET version of this article, see 310199 (http://support.microsoft.com/kb/310199/ ) .

↑ Back to the top


Summary

This article describes how to create a contact by using ActiveX Data Objects (ADO) and the Exchange OLE DB provider (ExOLEDB) in Microsoft Visual Basic .NET.

↑ Back to the top


More information

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.

Sample

  1. Start Microsoft Visual Studio .NET.
  2. On the File menu, point to New, and then click Project.
  3. In the Visual Basic Projects list, click Console Application.

    By default, Module1.vb is created.
  4. Add a reference to the Microsoft CDO for Exchange 2000 Library. To do so, follow these steps:
    1. On the Project menu, click Add Reference.
    2. Click the COM tab, locate the Microsoft CDO for Exchange 2000 Library, and then click Select.
    3. In the Add References dialog box, click OK.
    4. If you are prompted to generate wrappers for the libraries that you selected, click Yes.

      Note In Microsoft .NET Framework applications, Collaboration Data Objects for Exchange 2000 (CDOEX) is supported only through a COM interop. For additional information, click the following article number to view the article in the Microsoft Knowledge Base:
      813349� Support policy for Microsoft Exchange APIs with .NET Framework applications
  5. Repeat step 4 to add a reference to the Microsoft ActiveX Data Objects 2.5 Library.
  6. In the code window, replace the code with the following code:
    Module Module1
    
        Sub Main()
            ' TODO: Replace with your new item URL
            Dim sURL As String
            sURL = "http://<ExchServer>/Exchange/<UserAlias>/Contacts/Test.eml"
    
            Dim oCn As ADODB.Connection = New ADODB.Connection()
            Dim oRc As ADODB.Record = New ADODB.Record()
            Dim oFields As ADODB.Fields
    
            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
    
            oRc.Open(sURL, oCn, _
             ADODB.ConnectModeEnum.adModeReadWrite, _
             ADODB.RecordCreateOptionsEnum.adCreateNonCollection, _
             ADODB.RecordOpenOptionsEnum.adOpenRecordUnspecified, _
             "", "")
            If oRc.State = ADODB.ObjectStateEnum.adStateOpen Then
                Console.WriteLine("Record Open Success")
            Else
                Console.WriteLine("Record Open Fails")
                Return
            End If
    
    
            oFields = oRc.Fields
    
            oFields.Item("DAV:contentclass").Value = "urn:content-classes:person"
            oFields.Item("http://schemas.microsoft.com/exchange/outlookmessageclass").Value = "IPM.Contact"
            oFields.Item("urn:schemas:contacts:cn").Value = "David Jones"
            oFields.Item("urn:schemas:contacts:nickname").Value = "Dave"
            oFields.Item("urn:schemas:contacts:title").Value = "Engineer"
            oFields.Item("urn:schemas:contacts:department").Value = "Microsoft"
            oFields.Item("urn:schemas:contacts:email1").Value = "someone@example.com"
            oFields.Item("urn:schemas:contacts:fileas").Value = "Dave Jones"
    
            oFields.Update()
    
            oCn = Nothing
            oRc = Nothing
            oFields = Nothing
        End Sub
    
    End Module
  7. Search for TODO in the code, and then modify the code for your environment.
  8. Press F5 to build and to run the program.
  9. Make sure that the contact was created.

↑ Back to the top


References

For information about the urn:content-classes:person content class, visit the following Microsoft Web site: For additional information, click the following article number to view the article in the Microsoft Knowledge Base:
813349� Support policy for Microsoft Exchange APIs with .NET Framework applications
287534� PRB: ExOLEDB provider cannot access or create items remotely

↑ Back to the top


Keywords: KB314362, kbhowto

↑ Back to the top

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