Active Directory, 3rd Edition

Mail-Enabling a User

You can easily mail-enable a user with very little code using ADSI and CDOEXM. The following code shows you how to mail-enable a single user specified by a known DN:

    ' This code mail enables a user.
    Option Explicit
    Dim strUserDN, strEmailAddr, objUser
    ' ------ SCRIPT CONFIGURATION ------
    strUserDN = "<UserDN>"   ' e.g. cn=DrAmy,cn=Users,dc=mycorp,dc=com
    strEmailAddr = "<EmailAddress>"  'e.g. [e-mail]
    ' ------ END CONFIGURATION ---------
    Set objUser = GetObject("LDAP://" & strUserDN)
    objUser.MailEnable 
 strEmailAddr
    objUser.Put "internetEncoding",1310720
    objUser.SetInfo(  )
    WScript.Echo "Successfully mail-enabled user."

Tip

Mail-enabling a user requires Exchange Data Administrator permissions.

This should all be familiar, with the exception of MailEnable. MailEnable is a method of the IMailRecipient CDOEXM interface. For a user, it takes a single argument: the email address to associate with the user. In the background, the specific changes made by the MailEnable method are on the user object in Active Directory and include changes to the following attributes:

• targetAddress

• mailNickname

• mAPIRecipient

• legacyExchangeDN

Warning

You are probably looking at that list of attributes and thinking, "Hey, I can just populate those attributes with LDAP calls; I don't even need to use CDOEXM!" To be honest, that is almost true. It is only "almost" true for two reasons: first, depending on which knowledge base articles you read, you will find confusion ...