Brett
Guest
|
 Posted:
Thu Sep 08, 2005 4:59 pm Post subject:
Easy question - CDOEX - how to update the "office" contact f |
|
|
I'm using the below script to create a new "contact" object in a public
folder. We don't want it to show up in the GAL (Exchange Server 2003).
I run the script below on the server, and it works fine. Simple, right?
However, I can't find the Field name I need to use to update the
"Office" field in the contact. (You'd think it would be
"urn:schemas:contacts:office" or just oPerson.Office, but no go!)
What do I use?
*****************************************
Option Explicit
Dim oPerson, strContactURL
Set oPerson = CreateObject("CDO.Person")
strContactURL =
"http://exchangeserver/public/other%20Contacts/our%20Contacts/"
oPerson.FirstName = "Firstname"
oPerson.LastName = "Lastname"
oPerson.Company = "Company"
oPerson.Email = "testuser2@ourdomain.com"
oPerson.WorkPhone = "(555) 225 5555"
oPerson.MailingAddressID = 2
oPerson.Fields("urn:schemas:contacts:department").Value =
"testDepartment"
oPerson.Fields.Update
oPerson.DataSource.SaveToContainer strContactURL
'*********************************
|
|
Brett
Guest
|
| Posted:
Thu Sep 08, 2005 10:28 pm Post subject:
Re: Easy question - CDOEX - how to update the "office" conta |
|
|
Found it. Oddly enough, it's "urn:schemas:contacts:roomnumber".
Brett wrote:
| Quote: | I'm using the below script to create a new "contact" object in a public
folder. We don't want it to show up in the GAL (Exchange Server 2003).
I run the script below on the server, and it works fine. Simple, right?
However, I can't find the Field name I need to use to update the
"Office" field in the contact. (You'd think it would be
"urn:schemas:contacts:office" or just oPerson.Office, but no go!)
What do I use?
*****************************************
Option Explicit
Dim oPerson, strContactURL
Set oPerson = CreateObject("CDO.Person")
strContactURL =
"http://exchangeserver/public/other%20Contacts/our%20Contacts/"
oPerson.FirstName = "Firstname"
oPerson.LastName = "Lastname"
oPerson.Company = "Company"
oPerson.Email = "testuser2@ourdomain.com"
oPerson.WorkPhone = "(555) 225 5555"
oPerson.MailingAddressID = 2
oPerson.Fields("urn:schemas:contacts:department").Value =
"testDepartment"
oPerson.Fields.Update
oPerson.DataSource.SaveToContainer strContactURL
'********************************* |
|
|
FAQ
Memberlist
Register
Profile
Log in to check your private messages
Log in