[VS 2008 PRO]Lettere Accentate non riconosciute nella ricezione delle e-mail.

Ho cercato dappertutto e non sono riuscito ancora a venirne a capo con le lettere accentate
nella ricezione delle mail,non vengono riconosciute correttamente.
Premetto che tutto funziona correttamente.

Questo il codice:-
Dgv è il DataGridView

 For i = 1 To nmrMessaggi ' nmrMessaggi è il totale dei messaggi da scaricare
            msgstring = GetMessage(i)  'GetMessage è la funzione che scarica i messaggi dal server
            msg = CreateFromText(msgstring)
            Dgv.Item(0, i - 1).Value = splitpiu(0)
            Dgv.Item(1, i - 1).Value = msg._Subject
            Dgv.Item(2, i - 1).Value = msg._From
            Dgv.Item(3, i - 1).Value = msg._To
            Dgv.Item(4, i - 1).Value = i
            Dgv.Item(5, i - 1).Value = msg._Received
            TextBox3.AppendText(msg._Body & vbCrLf)
        Next

Questa la funzione

 Function GetMessage(ByVal msgindex As Integer) As String
        Dim tmpString As String
        Dim Data As String
        Dim SzData() As Byte
        Dim msg As String = String.Empty
        Try
            Data = "RETR " & msgindex.ToString & vbCrLf
            SzData = Encoding.ASCII.GetBytes(Data.ToCharArray)
            NetStrm.Write(SzData, 0, SzData.Length)
            tmpString = RdStrm.ReadLine()
            If tmpString.Substring(0, 4) <> "-ERR" Then
                While (tmpString <> ".")
                    msg = msg & tmpString & vbCrLf
                    tmpString = RdStrm.ReadLine
                End While
            End If
        Catch exc As InvalidOperationException
            MsgBox("Errore: " & vbCrLf & Err.ToString())
        End Try
        Return msg
    End Function

questa l'altra funzione:-

 Public Function CreateFromText(ByVal strMessage As String) As Message
        Dim Mssg As New Message
        Dim brkPos As Integer
        Dim Header As String
        Dim Headers() As String
        Dim Body As String
        Dim HeaderName As String
        Dim HeaderValue As String
        brkPos = InStr(1, strMessage, vbCrLf & vbCrLf)
        If brkPos Then
            Header = strMessage.Substring(0, brkPos - 1)
             Body = strMessage.Substring(brkPos + 1, strMessage.Length - Header.Length - 3)
        Else
            Throw New Exception("Formato messaggio non valido.")
            Exit Function
        End If
        Headers = Split(Header, vbCrLf)
        Dim _header As String
        For Each _header In Headers
            brkPos = _header.IndexOf(":")
            If brkPos >= 0 Then
                HeaderName = _header.Substring(0, brkPos)
            Else
                HeaderName = ""
            End If
            HeaderValue = _header.Substring(brkPos + 1)
            Select Case HeaderName.ToLower
                Case "received"
                    Mssg._Received = HeaderValue
                Case "from"
                    Mssg._From = HeaderValue
                Case "to"
                    Mssg._To = HeaderValue
                Case "subject"
                    Mssg._Subject = HeaderValue
                Case "date"
                    Mssg._Date = HeaderValue
            End Select
        Next
        Return Mssg
    End Function

Ho provato tutti gli Encoding,ma il risultato è sempre lo stesso.
Any idea?

Che oggetto è RdStrm ?

L'encoding da utilizzare è: System.Text.Encoding.GetEncoding(1252)

Che oggetto è RdStrm ?

StreamReader

L'encoding da utilizzare è: System.Text.Encoding.GetEncoding(1252)

Già provato in precedenza anche come UTF8 ma non và.

Posta anche il codice dove valorizzi RdStrm...

Imports System.Text.Encoding
Imports System.Net.Sockets
Imports System.Text
Imports System.IO
-------------------------------------------------------------------------------------------------------------------
Module POP3Message1

    Dim Server As TcpClient
    Dim NetStrm As NetworkStream
    Dim RdStrm As StreamReader

Ho anche visualizzato per intero i messaggi e la codifica (dal server)è fatta in iso-8859-1.

Originariamente inviato da mastrix

Posta anche il codice dove valorizzi RdStrm...

Originariamente inviato da sistemista

Imports System.Text.Encoding
Imports System.Net.Sockets
Imports System.Text
Imports System.IO
-------------------------------------------------------------------------------------------------------------------
Module POP3Message1

    Dim Server As TcpClient
    Dim NetStrm As NetworkStream
    Dim RdStrm As StreamReader

Questa è solo la dichiarazione...

Si,hai ragione ho avuto un lapsus.

tmpString = RdStrm.ReadLine

è nel primo post dentro la funzione GetMessage.

Ciao sistemista...

Non volevo dire neanche questo, anche perchè questo è il codice che hai postato nel primo post...

Cmq,
cerco di andare così senza codice, e lo prendo da MSDN...

 Dim sr As StreamReader = New StreamReader("c:\tmp\TestFile.txt", System.Text.Encoding.Default)

E' qui che hai provato tutti gli Encoding????

Prova a Dare un'occhiata anche qui
Encoding.Convert Method (Encoding, Encoding, Byte[]) (System.Text)

Bye....

Non so se hai seguito tutto il thread dall'inizio,ma non devo leggere un file di testo,devo
interpretare le risposte del server,suddividere il messaggio in varie parti ed eseguire
uno "split" del messaggio suddiviso dai vari received,from,to,subject etc.etc.
ed ho provato tutti gli encoding a disposizione,ma il problema rimane.

Ciao sistemista,
il problema (secondo me) risiedere nell'inizializzazione dello StreamReader.

Dovresti postare la parte in cui prendi lo stream NetworkStream, dal TCPCLIENT, e generi lo StreamReader.