Phone List

This sample contains sections of code that do the following:

Modify the Phone number property of a mailbox.
Cause the browser to display a user identification dialog box.
Modify the property of an object that contains a string value. If the property does not exist on the object, an error is generated.

Phone List Sample Code

This code modifies the Phone number property of a mailbox. By default, all users have access to modify this property on their own mailbox. This following code will cause the browser to display a user identification dialog. The IIS server's password authentication must be set to Allow Anonymous and Basic (Clear Text) only. This way, the browser will be able to use the correct security context when using the GetObject method.


Dim strAT ' Authorization Type information
strAT = Request.ServerVariables("AUTH_TYPE")
If InStr(1, "_BasicNTLM", strAT, 1) < 2 Then
  Response.Buffer = True
  Response.Status = ("401 Unauthorized")
  Response.End
End If
Dim strMailboxPath        ' ADsPath to the user's mailbox
Dim strServer             ' name of the Microsoft Exchange 5.5 server
Dim intPosPrefix          ' numeric index used used to build ADsPath to 
                          ' schema object
Dim intPosSuffix          ' numeric index used used to build ADsPath to 
                          ' schema object
Dim strPrefix             ' prefix string used to build ADsPath to 
                          ' schema object
Dim strSuffix             ' suffix string used to build ADsPath to
                          ' schema object
Dim strPathToSchemaObject ' ADsPath to the schema object
Dim objMailbox            ' mailbox object
Dim strNewPoneNumber      ' value of the new phone number
Function isUserEditable(strSchemaObjectPath)
  Dim objSchemaObject     ' schema object
  Dim intValue            ' value of the 'Access-Category' property
  Set objSchemaObject = GetObject(strSchemaObjectPath)
  intValue = objSchemaObject.Get("Access-Category")
  If intValue = 2 Then    ' user may modify the mailbox property
    isUserEditable = True
  Else                    ' the value was 0, 1, or 3
    isUserEditable = False
  End If
End Function

The following procedure modifies the property of an object that contains a string value. To set a property to the empty string, you must remove it from the object:


Sub ModifyProperty(strNewValue, strADsProperty)
  On Error Resume Next
  If Len(strNewValue) <> 0 Then
    objMailbox.Put strADsProperty, CStr(strNewValue)
  Else  ' The new value is empty
    objIADs.Get (strADsProperty)

If the property doesn't exist on the object, an error will be generated:


    If Err.Number = 0 Then 
' the property exists on the object and must be removed
      objMailbox.PutEx ADS_PROPERTY_CLEAR, strADsProperty, CStr("
")
    End If
    Err.Clear
  End If
End Sub
Const ADS_PROPERTY_CLEAR = 1

used by the PutEx method to clear a property from an object


strMailboxPath =
"LDAP://SPARKER1/cn=SParker,cn=Recipients,ou=3081,o=16"
strServer = "sparker1"
strNewPoneNumber = "(425) 882-8080 x 13882"
intPosPrefix = InStr(strMailboxPath, "/cn")
intPosSuffix = InStr(strMailboxPath, "ou")
strPrefix = Mid(strMailboxPath, 1, intPosPrefix - 1) + "/cn="
strSuffix = ",cn=Microsoft DMD," + Mid(strMailboxPath,
intPosSuffix, Len(strMailboxPath))
strPathToSchemaObject = strPrefix + "Telephone-Office1" + strSuffix
If isUserEditable(strPathToSchemaObject) Then
  Set objMailbox = GetObject(strMailboxPath)
  ModifyProperty strNewPhoneNumber, "telephoneNumber"
  objMailbox.SetInfo  ' save the object information
  Response.Write "Phone number modified successfully : <BR>"
Else
  Response.Write "You don't have permissions to modify your phone
..'number : <BR>"
End If
%>