connecting to exchange server 2003 from vb.net

[vasanthya_then]

Hi All,

I have been trying to connect to Exchange server 2003 from VB.NET.I have tried out some code.But it throws me Login Timeout(440) error.Here is the code:

Imports System.Net
Imports System.IO
Imports System
Imports System.Xml
Imports System.Text.RegularExpressions
Imports System.Net.HttpWebRequest
Module Module1
Sub Main()
Dim strServerName As String = "servername"
Dim strDomain As String = "domain"
Dim strUserID As String = "userID"
Dim strPassword As String = "password"
' TODO: Replace with the URL of an object on Exchange Server
Dim sUri As String = "https://servername/exchange/userID/inbox/"
Dim myUri As System.Uri = New System.Uri(sUri)
'Dim HttpWRequest As HttpWebRequest = WebRequest.Create(myUri)
Dim sQuery As String
' TODO: Replace with appropriate user credential
Dim myCred As NetworkCredential = New NetworkCredential("domain\userID", "password")
Dim MyCredentialCache As CredentialCache = New CredentialCache()
MyCredentialCache.Add(myUri, "Basic", myCred)
'HttpWRequest.Credentials = MyCredentialCache
' Create our Web request object.
Dim PROPPATCHRequest As HttpWebRequest
PROPPATCHRequest = CType(System.Net.HttpWebRequest.Create(myUri), System.Net.HttpWebRequest)
' Authenticate to OWA. Assign the returned cookies to a string.
Dim strReusableCookies As String
strReusableCookies = AuthenticateSecureOWA(strServerName, strDomain, strUserID, strPassword)
' Add the cookie set that is obtained after OWA authentication to our request header.
PROPPATCHRequest.Headers.Add("Cookie", strReusableCookies)
PROPPATCHRequest.ContentType = "text/xml"
PROPPATCHRequest.KeepAlive = False
PROPPATCHRequest.AllowAutoRedirect = False


'Specify the PROPPATCH method.
PROPPATCHRequest.Method = "GET"
' we need to store the data into a byte array
Dim ByteQuery() As Byte = System.Text.Encoding.ASCII.GetBytes(sQuery)
PROPPATCHRequest.ContentLength = ByteQuery.Length
Try
Dim QueryStream As Stream = PROPPATCHRequest.GetRequestStream()
' write the data to be posted to the Request Stream
QueryStream.Write(ByteQuery, 0, ByteQuery.Length)
QueryStream.Close()
Catch ex As Exception
MsgBox("Exception: " + ex.Message)
End Try
' Send Request and Get Response
PROPPATCHRequest = CType(System.Net.HttpWebRequest.Create(myUri), System.Net.HttpWebRequest)

Dim HttpWResponse As HttpWebResponse = PROPPATCHRequest.GetResponse()
' Get Status and Headers
Dim iStatCode As Integer = HttpWResponse.StatusCode
Dim sStatus As String = iStatCode.ToString()
Console.WriteLine("Status: {0} {1}", sStatus, HttpWResponse.StatusDescription.ToString())
Console.WriteLine("Request Headers:")
Console.WriteLine(PROPPATCHRequest.Headers.ToString())
Console.WriteLine("Response Headers:")
Console.WriteLine(HttpWResponse.Headers.ToString())
' Get Response Stream
Dim strm As Stream = HttpWResponse.GetResponseStream()
' Read the Response Steam
Dim sr As StreamReader = New StreamReader(strm)
Dim sText As String = sr.ReadToEnd()
Console.WriteLine("Response: {0}", sText)
MsgBox("sText: " + sText)

' Close Stream
strm.Close()
' Clean Up
PROPPATCHRequest = Nothing
HttpWResponse = Nothing
MyCredentialCache = Nothing
myCred = Nothing
strm = Nothing
sr = Nothing

End Sub

' Code to call the Authentication:
Private CookieJar As CookieContainer
Private strCookies As String
'Implementation of the Authentication to the Exchange Server 2003 server that is enabled with forms-based authentication
Private Function AuthenticateSecureOWA(ByVal strServerName As String, ByVal strDomain As String, ByVal strUserName As String, ByVal strPassword As String) As String
' contains the code for authentication(couldnt post the code due to size restrictions)
Return strCookies
End Function

End Module

----------------------------

I guess the error is bcoz I have not authenticated using SSL certificate which the exchange server (might) expects. Can anyone please help me out?Someone tell me how to use SSL certificates in VB.NET to authenticate to the exchange server 2003.
I've been trying these for several days .

Thanks in advance,
Vasanth.

[Matus Niepel]

Are you still looking for solution? I have got a similar problem, could you post me full code? My mail: mniepel at komandor.sk
My code is also too long to post it to forum.
Thanx.