WinForms

Απ: Encoding email body

kostasdiktia — Wed, 02 Dec 2009 12:27:01 GMT

Χρησιμοποιώ αυτό τον κώδικα για να πάρω από τον streamreader οτι διαβασω από τον server. Ο κώδικας δώθηκε μπας και δείτε κάτι λάθος ΕΣΕΙΣ οι πιο εμπειροι και μου προτείνετε κάτι, για το πώς να πάρω το charset (ίσως με διαφορετικό τρόπο). Για να κάνω post στο dotnetzone μάλλον δεν έχω βρει κάτι άλλο σχετικό στο net και το χρησιμοποιώ σαν έσχατη λύση. Αλαμπουρνέζικα = ιερογλυφικά = χαρακτήρες οι οποίοι δεν εμφανίζονται σωστά κωδικοποιημένοι.
Και ερωτώ! Σκέφτηκα αφού γεμίζω με τα δεδομένα τον StremReader, να βρω το charsettype και μετά να τρέξω όλο το string και να το κωδικοποιώ γραμμή-γραμμή.
Μόνο έτσι μπορώ να το κάνω, με System.Text.Encoding?
Έχει διαβάσει κάποιος κάτι που μου ξέφυγε στο RFC και να μπορούσε να βοηθήσει ώστε να ξέρω από πριν το charset ενός mail?

Ευχαριστώ.

Απ: Encoding email body

Παναγιώτης Καναβός — Wed, 02 Dec 2009 02:16:36 GMT

Ποιά είναι η ερώτηση? Δίνεις καμμιά 40αριά γραμμές κώδικα και μετά ρωτάς τί? Σε τί μορφή είναι τα string που παίρνεις? Τί θα πει αλαμπουρνέζικα? Τί έχει να κάνει ο κώδικας με τα string που παίρνεις? Κοίταξες τις 4-5 συζητήσεις που έχουν γίνει κατά καιρούς για το πως μετατρέπουμε από το ένα charset στο άλλο με τη χρήση της System.Text.Encoding?

Ο λόγος που γκρινιάζουμε συνέχεια και λέμε να προσέχουμε πως κάνουμε ερωτήσεις είναι ότι μία δυσνόητη ερώτηση μπορεί να μην πάρει ποτέ απάντηση. Άσε που πολλές φορές, απλά και μόνο προσδιορίζοντας την σωστή ερώτηση θα βρεις και την απάντηση.

Απ: Encoding email body

kostasdiktia — Wed, 02 Dec 2009 01:52:06 GMT

Κανεις?!

Encoding email body

kostasdiktia — Thu, 26 Nov 2009 22:13:27 GMT

Γεια σας,

κάνω retrieve κάποια gmails με χρήση pop.
Ακολουθεί ο κώδικας:

Private Function Retrieve_Mail()

        Dim oFile As System.IO.File
        Dim oWrite As System.IO.StreamWriter
        Dim tcpClient As New TcpClient
        tcpClient.Connect(server_inc, port_inc)
        Dim sslstream As SslStream = New SslStream(tcpClient.GetStream())
        sslstream.AuthenticateAsClient(server_inc)


        Dim sw As System.IO.StreamWriter = New StreamWriter(sslstream)
        Dim reader As System.IO.StreamReader = New StreamReader(sslstream)
        sw.WriteLine("USER " & username)
        sw.Flush()
        sw.WriteLine("PASS " & password)
        sw.Flush()
        sw.WriteLine("RETR 1")
        sw.Flush()
        sw.WriteLine("Quit ")
        sw.Flush()

        Dim str As String = ""
        Dim strTemp As String = ""


        While strTemp = reader.ReadLine() <> Nothing

            If (strTemp = ".") Then
                Exit While
            End If
            If strTemp.IndexOf("-ERR") <> -1 Then
                Exit While
            End If
            str += strTemp
        End While

        Dim message As String = reader.ReadToEnd

        Dim lines2() As String = Split(message, vbCrLf)
        Dim full As String = ""
        Dim i As Integer = 0
        Dim mfrom, msub, mdate As String
        Dim dateTimeInfo As DateTime = DateTime.Now
        Dim mssn As String = dateTimeInfo.ToString("ddMMyyyyhhmmss") & "_" & noumero & ".txt"
        oWrite = oFile.CreateText(Application.StartupPath & "/accounts/" & yourmail & "/" & mssn)
        Dim inbody As Boolean = False
        Dim context As Boolean = False

        For Each line As String In lines2

            If i > 1 And line <> "+OK Farewell" Then
                If line = "" Then
                    inbody = True
                End If
                If line.StartsWith("From:") Then
                    mfrom = line.Replace("From:", "")
                ElseIf line.StartsWith("Date: ") Then
                    mdate = line.Replace("Date: ", "")
                ElseIf line.StartsWith("Subject: ") Then
                    msub = line.Replace("Subject: ", "")
                ElseIf inbody Then
                    oWrite.WriteLine(line)
                End If
            End If
            i += 1
        Next
        SQLConn = New SqlConnection(SQLString)
        SQLCmnd = New SqlCommand("INSERT Mails (MSSN, MFROM, MSUB, MDATE) VALUES ('" & mssn &"', '" & mfrom & "', '" & msub & "', '" & mdate & "')", SQLConn)
        SQLConn.Open()
        SQLCmnd.ExecuteNonQuery()
        SQLConn.Close()
        oWrite.Close()
        Return 0
    End Function

Χρησιμοποιώ τον παραπάνω κώδικα και για να ξεχωρίζω το body απτο header. Το θέμα είναι όταν το mail μου είναι διαφορετικής κωδικοποίησης από Unicode, στο παραγόμενο .txt παιρνιούνται αλαμπουρνέζικα. Διάβασα το RFC του POP, αλλά δεν βρήκα κάτι να με βοηθήσει.
Σκέφτηκα αφού γεμίζω με τα δεδομένα τον StremReader, να βρω το charsettype και μετά να τρέξω όλο το string και να το κωδικοποιώ γραμμή-γραμμή. Μήπως θα ήταν ορθότερο να αποθηκεύω το body σε xml?

Οποιαδήποτε βοήθεια καλοδεχούμενη..