Hej!

Jag har följande text i en fil som jag läser in och skickar med mail.

#BEGIN 30723 0703141
FROM: info@mail.com
10130723070080
2426490400000000097430050703140000000000100004500008505
2426490500000000099425310703140000000000300003300009082
2426490600000000099784850703140000000000100004500007761
2426490700000000099784900703140000000000100004500008225
2426490800000000099237760703140000000000100004500009121
2426490900000000087636820703140000000000200002000007139
2426491000000000099629290703140000000000100004500009202
9000700002780030723070080
#END

I mailklienten ser allt bra ut men om man tittar på hela meddelandet så ser texten konstigt ut. Radbrytningarna har ersatts med "=0D=0A".

Om jag kopierar texten i filen och skickar det via min mailklient "Outlook Experess" ser allt bra ut, även när man kollar hela meddelandet.

Koden jag använder för att skicka mailet:

Sub Main()
        Dim s As String(), fil As String = "", b As String = "", c() As String
        Dim fillista As String = "", file2 As String = "", index As Int32
        Dim strArgs() As String = Command.Split(",")
        Dim client As SmtpClient = New SmtpClient(My.Settings.host)
        Dim from As MailAddress = New MailAddress(My.Settings.mailfromAccount, My.Settings.from, System.Text.Encoding.GetEncoding(20127))
        Dim till As MailAddress = New MailAddress(My.Settings.mailtoAccount)
        Dim message As MailMessage = New MailMessage(from, till)
        Console.WriteLine("Startar programmet!")
        message.BodyEncoding = System.Text.Encoding.GetEncoding(20127)
        message.Subject = My.Settings.subject
        message.Subject += " : " + DateTime.Today.AddDays(-1).ToShortDateString
        message.SubjectEncoding = System.Text.Encoding.GetEncoding(20127)

        If strArgs.Length > 0 Then
            If strArgs(0).Trim = "" Then
                strArgs(0) = Console.ReadLine
                If strArgs(0).Trim = "" Then
                    Exit Sub
                End If
            End If
        End If
        b = strArgs(0)
        If System.IO.Directory.Exists(b) Then
            Dim sr As StreamReader = Nothing
            Dim line As String = ""
            Dim fInfo As FileInfo = Nothing
            s = System.IO.Directory.GetFiles(b)
            If s.Length > 0 Then
                For index = 1 To s.Length
                    fil = s(index - 1)
                    fInfo = New FileInfo(fil)
                    message.Body += File.ReadAllText(fil, Encoding.GetEncoding(20127)).ToString
                Next
            End If
            Try
                Console.WriteLine(message.Body.ToString)
                client.Send(message)
            Catch ex As Exception
                Console.WriteLine("Ett fel uppstod då mailet skulle skickas" & vbNewLine & ex.Message.ToString)
            End Try
            message.Dispose()
        End If
    End Sub

Läs om quoted printable: http://en.wikipedia.org/wiki/Quoted_printable

Hur gör man då för att fixa till det?

Varför behöver du få det fixat om det ser bra ut i mailklienten? Skall mailet läsas av ett annat program?

Ja det ska läsas av ett annat program

Har du möjlighet att lägga in en liten för-parser i det program som skall läsa mailet?

Annars kanske du kan skicka texten som en attachment. Då kan du sätta TransferEncoding till SevenBit (vilket den ser ut att uppfylla).

Det fixade sig ... tackar för tipset