Hi,
I need to develop an application that can read the undeliverable mails and make an entry into the database about all these mails.
i m using following code to get mails from server
-----code start
Private
Sub InitializeConnection(ByVal hostname As String, ByVal port As Integer)
Try
_imapClient =
New TcpClient(hostname, port)
_imapNs = _imapClient.GetStream()
_imapSw =
New StreamWriter(_imapNs)
_imapSr =
New StreamReader(_imapNs)
Response.Write(
"*** Connected ***" & "<br></br>")
Catch ex As SocketException
Console.WriteLine(ex.Message)
End Try
End Sub
Private Function Responses() As String
Dim data As Byte() = New Byte(_imapClient.ReceiveBufferSize - 1) {}
Dim ret As Integer = _imapNs.Read(data, 0, data.Length)
Return Encoding.ASCII.GetString(data).TrimEnd()
End Function
Public Sub AuthenticateUser(ByVal username As String, ByVal password As String)
_imapSw.WriteLine((
"$ LOGIN " & username & " ") + password)
_imapSw.Flush()
Response.Write(Responses() &
"<br>")
End Sub
Public Function MailCount() As Integer
_imapSw.WriteLine(
"$ STATUS INBOX (messages)")
_imapSw.Flush()
Dim res As String = Responses()
Dim m As Match = Regex.Match(res, "[0-9]*[0-9]")
Return Convert.ToInt32(m.ToString())
End Function
Public Function MailUnreadCount() As Integer
_imapSw.WriteLine(
"$ STATUS INBOX (unseen)")
_imapSw.Flush()
Dim res As String = Responses()
Console.WriteLine(res)
Dim m As Match = Regex.Match(res, "[0-9]*[0-9]")
Return Convert.ToInt32(m.ToString())
End Function
---- code end
---- output
*** Connected ***
220 kingsin.kingsbus.local Microsoft ESMTP MAIL Service ready at Tue, 12 May 2009 11:00:47 +0100
500 5.3.3 Unrecognized command
500
500
-----------------
getting unrecognized command error
How to read mails from mail server?
Regards,
Rushabh D. Vipani.
