Does anyone have a script to set the ProxyAddresses property for a contact.
I tried this script , but have some problems with the DIM commands...Is
there another way?
Marc
sub SetProxyAddress(recipname As String, _
DomainName As String, Proxies)
'DomainName is something like "DC=MYDOMAIN3,DC=example,DC=com"
'recipname is something like "jamessmith"
Dim objPerson As New CDO.Person
Dim objMailRecip As CDOEXM.IMailRecipient
Dim i
objPerson.DataSource.Open "LDAP://CN=" + recipname + _
",CN=tele_contacts," + DomainName
*
*
*
Set objMailRecip = objPerson
objMailRecip.ProxyAddresses = Proxies
objPerson.DataSource.Save
MsgBox "Proxy addresses for " + recipname + " set successfully"
End sub