RE: Exchange 2000, attachment size specification

  • From: "asrao" <asrao@xxxxxxxxxxxxxxxx>
  • To: "[ExchangeList]" <exchangelist@xxxxxxxxxxxxx>
  • Date: Tue, 16 Jul 2002 12:46:47 +0530


        I using the below service for adding contacts to the Exchange server
2000 which is running on Windows 2000 server. My problem is that I able to
do it using this service from Visual Basic. But when I add an Contact for a
user from WAP it is not adding and taking long time and after some time
giving an message saying that 'Network not available' in the UP Simulator.
And even when I test the same page in IE, there is no response. The funny
thing here is that it is working from VB but not from WAP or in IE. Can any
one please help me out in solving this issue.

Here in our office, we are using 3 servers, front end(installed with E2K)
backend server(installed with E2K) and domain server(installed with E2K) all
these machinces are running on W2K.

Please help me out immediately.



'' Name             : AddContact
'' Description      : To add a contact to a user
'' Author           : Maruthi Krishna
'' Inputs           : Backend server name, user name, contact first name,
contact last name,
''                    contact lstrEmailId, contact home phone, contact
lstrContactMobileNo,contact home address
''                    contact work address
'' Outputs          : N/A
'' Modified by      : ASRao
'' Modified Reason  : Coding standards and validations
Public Function AddContact(ByVal lstrUserId As String, ByVal lstrPassword As
String, _
                ByVal lstrBackEndServerName As String, ByVal
lstrContactFirstName As String, _
                ByVal lstrContactLastName As String, ByVal
lstrContactHomePhone As String, _
                ByVal lstrContactMobileNo As String, ByVal
lstrContactEmailId As String, _
                ByVal lstrContactHomeAddrs As String, ByVal
lstrContactWrkgAddrs As String) As Boolean

    '' Local variables
    Dim lobjPerson As New CDO.Person    '' To hold the Person object
    Dim lstrContactURL As String        '' To hold the contact URL
    Dim lrecMailBoxURL As ADODB.Record
    Dim lstrMailBoxURL As String
    Dim lobjConn As New ADODB.Connection
    Dim lstrProvider As String
    '' Set Error handler
    On Error GoTo ErrHandler

    Set lrecMailBoxURL = CreateObject("ADODB.Record")

    '' Set mailbox url string
    lstrMailBoxURL = "http://"; & lstrBackEndServerName & "/exchange/" &
    '' Open the record for the specified mailbox url
    lrecMailBoxURL.Open lstrMailBoxURL, , , , , lstrUserId, lstrPassword
    '' Set contact url string
    lstrContactURL = lrecMailBoxURL.Fields("urn:schemas:httpmail:contacts")
    '' Capturing the active connection
    lstrProvider = lrecMailBoxURL.ActiveConnection
    '' Closing the record object
    '' opening the connection for the user using the provider
    lobjConn.Open lstrProvider, lstrUserId, lstrPassword
    '' adding contact details to the userid
    With lobjPerson
        .FirstName = lstrContactFirstName
        .LastName = lstrContactLastName
        .HomePhone = lstrContactHomePhone
        .MobilePhone = lstrContactMobileNo
        .Email = lstrContactEmailId
        .HomeState = lstrContactHomeAddrs
        .WorkState = lstrContactWrkgAddrs
        '' changed by asrao on 09.Jul.2002
''       .DataSource.Open lstrContactURL, , , , , lstrUserId, lstrPassword
        .DataSource.SaveToContainer lstrContactURL, lobjConn
    End With
    '' returning the function value as 'True' if successfull
    AddContact = True

    Exit Function

    '' setting the record object to nothing
    If Not lobjPerson Is Nothing Then
        Set lobjPerson = Nothing
    End If
    If Not lobjConn Is Nothing Then
        Set lobjConn = Nothing
    End If
    If Not lrecMailBoxURL Is Nothing Then
        Set lrecMailBoxURL = Nothing
    End If

    Exit Function

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

Other related posts: