Reading email from Exchange

[tshad]

I can't seem to retrieve messages that are not in my mailbox from Exchange.

If I am reading mail from my Exchange server, I will get messages that are
in my inbox that have already been read but not deleted (outlook).

What I am trying to get are messages that haven't been read yet?

Is there a way to do this?

Here is the code I am using.

The problem with this code is that I am getting the very first email in my
inbox (back to 10/15/2004).

*************** *************** *************** ******
Dim tcpClient As TcpClient = New TcpClient
Dim hostName As String = "MyServer.c om"
Dim userName As String = "tts"

Dim userPassword As String = "ac1234"
Dim messageNumber As String = "1"
Dim returnMessage As String
Dim sTemp As String

Try
tcpClient.Conne ct(hostName, 110)
Dim networkStream As NetworkStream = tcpClient.GetSt ream()
Dim bytes(tcpClient .ReceiveBufferS ize) As Byte
Dim sendBytes As Byte()

networkStream.R ead(bytes, 0, CInt(tcpClient. ReceiveBufferSi ze))

sendBytes = Encoding.ASCII. GetBytes("User " + userName + vbCrLf)
networkStream.W rite(sendBytes, 0, sendBytes.Lengt h)

sTemp = networkStream.R ead(bytes, 0, CInt(tcpClient. ReceiveBufferSi ze))

sendBytes = Encoding.ASCII. GetBytes("Pass " + userPassword + vbCrLf)
networkStream.W rite(sendBytes, 0, sendBytes.Lengt h)

sTemp = networkStream.R ead(bytes, 0, CInt(tcpClient. ReceiveBufferSi ze))

sendBytes = Encoding.ASCII. GetBytes("STAT" + vbCrLf)
networkStream.W rite(sendBytes, 0, sendBytes.Lengt h)

sTemp = networkStream.R ead(bytes, 0, CInt(tcpClient. ReceiveBufferSi ze))

sendBytes = Encoding.ASCII. GetBytes("RETR " + messageNumber + vbCrLf)
networkStream.W rite(sendBytes, 0, sendBytes.Lengt h)

Thread.Sleep(50 0)

networkStream.R ead(bytes, 0, CInt(tcpClient. ReceiveBufferSi ze))
returnMessage = Encoding.ASCII. GetString(bytes )
EmailContent.Te xt = returnMessage

sendBytes = Encoding.ASCII. GetBytes("QUIT" + vbCrLf)
networkStream.W rite(sendBytes, 0, sendBytes.Lengt h)

tcpClient.Close ()
Catch ex As Exception
EmailContent.Te xt = "Could not retrieve email or your inbox is empty"
End Try
*************** *************** *************** ***********

Thanks,

Tom