目前新聞群組：microsoft.public.tw.dotnet.framework.aspnet

220 6752 <633807229457280000@hisdt.nntp> article
Path: netnews!not-for-mail
From: U.F.O <someone@microsoft.com.x>
Newsgroups: microsoft.public.tw.dotnet.framework.aspnet
Subject: 請教要如何分離出,寄件者,收件者,主旨,本文,以及亂碼如何才能正確的解碼??
Date: Tue, 16 Jun 2009 04:22:44 +0000 (UTC)
Organization: HISDT 風禹科技驗證有限公司
Lines: 49
Sender: "59.124.205.73" <admin@tlcheng.twbbs.org>
Message-ID: <633807229457280000@hisdt.nntp>
NNTP-Posting-Host: 59-127-4-39.hinet-ip.hinet.net
X-Trace: netnews.hinet.net 1245126164 10975 59.127.4.39 (16 Jun 2009 04:22:44 GMT)
X-Complaints-To: usenet@HiNetnews.hinet.net
NNTP-Posting-Date: Tue, 16 Jun 2009 04:22:44 +0000 (UTC)
X-Mailer: HISDT NNTP Class http://tlcheng.twbbs.org/News/
Xref: netnews microsoft.public.tw.dotnet.framework.aspnet:6752

我是用VS2008 asp.net vb想寫一個webmail但遇到一些問題
下面的程式能抓出整封mail,但不太了解如何截取想要的寄件者,收件者,主旨,本文,並且參考了璉璉大大的一些文章,也不太了解如何運用璉璉大大分享的strtool來做解碼,真的不知道要如何運用T_T..


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim serverMessage As String
        Dim tcpC As New TcpClient()
        Try
            tcpC.Connect("mail.server.com", 995)
        Catch ex As Exception
            Response.Write("Error connecting to host: " & ex.Message & " - Please check your details and try again")
            Response.End()
        End Try
        Dim sslstream As SslStream = New SslStream(tcpC.GetStream(), False)
        sslstream.AuthenticateAsClient("mis-mail.ingrasys.com")
        Dim sw As StreamWriter = New StreamWriter(sslstream)
        Dim reader As StreamReader = New StreamReader(sslstream)
        sw.WriteLine("USER xxxx")
        sw.Flush()
        sw.WriteLine("PASS xxxx")
        sw.Flush()
        sw.WriteLine("STAT")
        sw.Flush()
        sw.WriteLine("RETR 1")
        sw.Flush()
        sw.WriteLine("Quit")
        sw.Flush()
        serverMessage = ReadMessage(sslstream)
        tcpC.Close()
        Me.Label1.Text = Replace(serverMessage, vbCrLf, "<br>")
    End Sub
    
    Shared Function ReadMessage(ByVal sslStream As SslStream) As String
        Dim buffer(2048) As Byte
        Dim messageData As StringBuilder = New StringBuilder
        Dim bytes As Integer = -1
        Do
            bytes = sslStream.Read(buffer, 0, buffer.Length)
            Dim decoder As Decoder = Encoding.ASCII.GetDecoder
            Dim chars(decoder.GetCharCount(buffer, 0, bytes)) As Char
            decoder.GetChars(buffer, 0, bytes, chars, 0)
            messageData.Append(chars)
        Loop While Not (bytes = 0)
        Return messageData.ToString
    End Function
--
ASPNET News Reader http://tlcheng.twbbs.org/News/Reader.aspx 
RSS 2.0 http://tlcheng.twbbs.org/News/rss2.aspx?Action=List&Newsgroup=microsoft.public.tw.dotnet.framework.aspnet