>ooutlook = CreateObject("Outlook.Application") >onamespace = ooutlook.GetNameSpace("MAPI") >ofldrcontacts = onamespace.Folders("Personal Folders").Folders("Contacts").Folders("402 WWW Access") > >* Set the contact reference to the new contact >oitem = ofldrcontacts.Items.Add Well, I just found out what was wrong (as strange as it is). The variable cNameSpace should have been oNameSpace. When I changed it .... things worked. Now, this doesn't make sense to me. How could the spelling of that variable name make a difference. It doesn't even get referenced after that. Puzzled. > > > * Set properties of the contact > WITH oitem > .FirstName = txtContactFirstName > .LastName = txtContactLastName > .FileAs = .LastName + ", " + .FirstName > .Email1Address = txtEmailAddress > .Email1AddressType = 'SMTP' > .JobTitle = txtContactTitle > .CompanyName = txtCompanyName > .BusinessAddressStreet = txtAddress > .BusinessAddressCity = txtCity > .BusinessAddressState = txtRegion > .BusinessAddressPostalCode = txtPostalCode > .BusinessAddressCountry = txtCountry > .BusinessTelephoneNumber = txtPhone > .BusinessFaxNumber = txtFax > .GovernmentIDNumber = LOWER(txtgovernid) > .CustomerID = LOWER(txtcustid) > .JobTitle = memoreason > .User1 = txtUserField1 > * Save the contact > .Save > ENDWITH >