Note CDOEX is only directly supported on the
computer that is running Microsoft Exchange 2000 Server where the mailbox is stored. The following code sample assumes
that you are working on the local server.
To create a contact by using an
Item object in Visual Basic .NET, follow these steps:
- Start Microsoft Visual Studio .NET.
- On the
File menu, point to New, and then click
Project.
- In the Visual Basic Projects list, click Console Application.
By default, Module1.vb is created. - Add a reference to the CDOEX Library. To do so, follow these steps:
- On the Project menu, click Add
Reference.
- Click the COM tab, locate
Microsoft CDO for Exchange 2000 Library, and then click
Select.
- In the Add
References dialog box, click OK.
- If you are prompted to generate wrappers for the libraries that you selected, click
Yes.
Note In Microsoft .NET Framework applications, 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
- To add a reference to the Microsoft ActiveX Data Objects 2.5 Library, repeat step 4.
Note In step 4b, substitute Microsoft ActiveX Data Objects 2.5 Library for Microsoft CDO for Exchange 2000 Library. - In the code window, replace the code with the following code:
Module Module1
Sub Main()
Dim oItem As CDO.Item = New CDO.Item()
' TODO: Replace with your folder URL
sURL = "file://./backofficestorage/<domain>/MBX/<Mailbox>/Contacts/"
Dim oFields As ADODB.Fields
oFields = oItem.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 = "DSW Messaging"
oFields.Item("urn:schemas:contacts:email1").Value = "someone@example.com"
oFields.Item("urn:schemas:contacts:fileas").Value = "Dave Jones"
' update
oFields.Update()
oItem.DataSource.SaveToContainer(sURL, , _
ADODB.ConnectModeEnum.adModeReadWrite, _
ADODB.RecordCreateOptionsEnum.adCreateNonCollection, _
ADODB.RecordOpenOptionsEnum.adOpenSource, _
"", "")
oItem = Nothing
oFields = Nothing
End Sub
End Module - Search for the TODO text string in the code, and then modify the code for your environment.
- Press F5 to build and to run the program.
- Make sure that the contact was created.