January 2006
Beginner
832 pages
27h 52m
English
A contact in Exchange 2000 or above is similar to a custom recipient in Exchange 5.5. Contacts can be created in Active Directory like a user is created, and mail-enabling
a contact is identical to mail-enabling a user. Because the users and groups chapter didn't discuss creating a contact, it will be wrapped up into the script here. You can obviously chop the following script down to just mail-enabling of an existing contact or by using the script shown in the previous section and substituting in the contact DN for the user DN:
' This code creates and then mail-enables a contact.
Option Explicit
Dim strOU, strContactCN, strEmailAddr, strDisplayName,
Dim objOU, objContact
' ------ SCRIPT CONFIGURATION ------
strOU = "<OU>" ' e.g. ou=Contacts,dc=mycorp,dc=com
strContactCN = "<ContactCN>" ' e.g. cn=DrAmy
strEmailAddr = "<EmailAddress>" 'e.g. Agramzow@AcmeConsulting.com
strDisplayName = "<Display Name>" 'e.g. Dr. Amy Gramzow
' ------ END CONFIGURATION ---------
' Create Contact
Set objOU = GetObject("LDAP://" & strOU)
Set objContact = objOU.Create("contact",strContactCN)
objContact.Put "displayName",strDisplayName
objContact.SetInfo
WScript.Echo "Successfully created contact."
' Mail-Enable Contact
objContact.MailEnable strEmailAddr
objContact.Put "internetEncoding",1310720
objContact.SetInfo( )
WScript.Echo "Successfully mail-enabled contact."Mail-enabling a contact requires Exchange Data Administrator permissions.
Creating a contact is very ...