Hello

I have created contacts in a public folder in Exchange 2000 with
vbscript and cdo:

Dim iPer
Dim strURL
Set ipers = CreateObject("CDO.Person")
With iPers
.Fields("urn:schemas:contacts:cn")="Firstname" & "Lastname"
.LastName = "Lastname"
.FileAs ="Firstname" & "Lastname"
.Fields("formcoll")="foolcoll" 'custom field
'Indicate that this is a contact
.Fields("objectClass").Value = "contact"
'Save changes made to properties
.Fields.Update
'Setup the URL for the users contact folder
strURL = "file://./backofficestorage\TEST_SITE.TEST_ORG.COM\PUBLIC
FOLDERS\my_contacts\"
'Save the contact to the users contact folder
iPers.DataSource.SavetoFolder strURL

1. How can i change for the lastname Value for this existing contact
2. Is this the right way to add an custom property (line ? -
because an query with mapi do not get an value .

Thanx in advance

Ray Mollenhauer

Archived from group: microsoft>public>exchange>applications