所有新聞群組討論區列表 風禹科技驗證有限公司 Web News Reader

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

說明

此主題討論共計 2 篇文章。

請教要如何分離出,寄件者,收件者,主旨,本文,以及亂碼如何才能正確的解碼??

U.F.O2009/6/16 下午 12:22:44僅瀏覽本文回覆 | 回信 | 轉寄
我是用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
璉璉2009/6/18 下午 02:35:29僅瀏覽本文回覆 | 回信 | 轉寄
我看到這篇已有人回應,你並未接續討論:
http://social.msdn.microsoft.com/Forums/zh-TW/236/thread/c9a215c4-24a1-42e7-81ff-7e7524a31145

==> 本文由 "U.F.O <someone@microsoft.com>"
[系統略除,原始全文請點選瀏覽本文]


--
風禹科技驗證有限公司 ASP.NET Web News Reader 0.2.8 UTF-8 Beta
網站地圖 http://tlcheng.twbbs.org/wwwmap.htm
流域防洪/區域水資源/徐昇網/玫瑰圖/語音通訊 文章與程式
Basic/Fortran/Windows API/.Net/輔助說明檔 原始碼、文章與討論
微軟程式設計、系統管理使用新技術論壇討論區,網友回覆後即時簡訊、電子郵件通知:
MSDN: http://social.msdn.microsoft.com/Forums/zh-TW/categories/
TechNet: http://social.technet.microsoft.com/Forums/zh-TW/categories/
--
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

基本條件

.Net 原始碼 | ASP.NET News Reader Beta 0.2.9

請參閱

個人資料 | 發表新文章 | 搜尋 | 列印 預覽 直接

重要訊息通知

2007/06/21 由於微軟新聞伺服器移除多數新聞群組 (newsgroup),目前遭移除之群組暫時改為隱藏純瀏覽,若狀況已定案時,將會將隱藏中的群組重新調整。[討論]