Problem while connecting to Exchange server 2000

  • From: "asrao" <asrao@xxxxxxxxxxxxxxxx>
  • To: <exchangelist@xxxxxxxxxxxxx>
  • Date: Sat, 13 Jul 2002 15:21:10 +0530


    When I connect to Exchange server 2000 using the following procedure
below, sometimes it is connecting smoothly without any problem but when load
testing is done it is sometimes giving an error mesage as "Provider cannot
be found. It may not be properly installed." at the statement
"lrecEmailId.Open lstrMailBoxURL, , , , , lstrUserId, lstrPassword" in the
procedure. Can you please help me out in finding a solution to this problem
and tell me what is the mistake that I have done in the procedure below for
checking the existance of the user. Please confirm the receipt of this mail
and respond me immediately. And also, if you can give me the Maximum no.of 
concurrent users that an Exchange server can support and all the related 
configurations. I will be very happy


Email: asrao@xxxxxxxxxxxxxxxx,

'' Name             : CheckEmailId
'' Description      : To verify the login credentials of the user
'' Author           : BKK
'' Inputs           : user name, password, backend server name and domain
'' Outputs          : True/False
'' Modified by      : ASRao
'' Modified Reason  : Coding standards and validations
Public Function CheckEmailId(ByVal lstrUserId As String, ByVal lstrPassword
As String, _
                            ByVal lstrBackEndServerName As String, ByVal
lstrDomainName As String) As Boolean

    '' Local variables
    Dim lstrEmailId As String               '' To hold the lstrEmailId id
    Dim lrecEmailId As ADODB.Record         '' To hold the record
    Dim lstrMailBoxURL As String            '' To hold the mailbox URL
    '' Set Error handler
''    On Error GoTo ErrHandler

    '' Create database objects
    Set lrecEmailId = CreateObject("ADODB.Record")
    lstrMailBoxURL = "http://"; & lstrBackEndServerName & "/exchange/" &
    '' Checking for the existance of the user
    lrecEmailId.Open lstrMailBoxURL, , , , , lstrUserId, lstrPassword
    '' returning the function value as 'True' if successfull
    CheckEmailId = True

    Exit Function

    '' setting the record object to nothing
    If Not lrecEmailId Is Nothing Then
        Set lrecEmailId = Nothing
    End If

    Exit Function

    '' calling the function to write the errors occured to a log file
    Call WriteIntoErrLogFile(Err.Number, Err.Description, "CheckEmailId")
    '' set the function return value as 'False'
    CheckEmailId = False
    '' continuing the execution by passing the control to ResumeHere label
    Resume ResumeHere
End Function

Other related posts:

  • » Problem while connecting to Exchange server 2000