Active Directory, 3rd Edition

Creating and Mail-Enabling a Contact

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. [e-mail]
    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."

Tip

Mail-enabling a contact requires Exchange Data Administrator permissions.

Creating a contact is very ...