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

MORE INFORMATION

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.