Adding Exchange Attributes to list of contacts

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance


I have created a list of contacts in my AD, and I wonder if there is some
easy way to exchange enable them all - and then add an email address?

The following function will work for adding or changing proxyaddresses to
the contacts, but if the contact has legacyExchangeDN = "" then basically I'm
screwed :)

Any hints or tips would be greatly appreciated


Function ListAllAccounts(strLDAP)
Const ADS_PROPERTY_APPEND = 3
Set objAD = GetObject(strLDAP)
For Each Item In objAD
If Item.Class = "contact" Then
'On Error Resume Next
If Item.legacyExchangeDN <> "" Then
Item.PutEx ADS_PROPERTY_APPEND, "proxyAddresses", "SMTP:" &
Item.givenName & "." & Item.sn & "@company.com"
Item.SetInfo
End If
End If
Next
End Function

.

Relevant Pages

  • coproducts in Category of pointed sets
    ... seem to find a way to define a "coproduct", although, I know that they ... It is a homework problem, and I should like no more than good hints. ... Prev by Date: ...
    (sci.math)
  • Ncurses - how do you get mousemask working?
    ... empty Array' which is kinda bothersome... ... Any hints? ... Tobias? ... Prev by Date: ...
    (comp.lang.ruby)
  • Thank you!
    ... > figure out how to set an object to one particular window to manipulate it. ... > Hints and suggestions are greatly appreciated. ... Prev by Date: ...
    (microsoft.public.excel.programming)
  • Shift-JIS to UTF-8 conversion
    ... My machine is a Windows 98 english computer with Python 2.3.4 ... Any hints?. ... Prev by Date: ...
    (comp.lang.python)
  • Re: How to deploy a application including CF
    ... > compact framework gets installed at the target system too? ... > Thanks for hints ... Prev by Date: ...
    (microsoft.public.pocketpc)