eMailbody aus Textbox, Problem mit zu vielen Zeilenumbrüchen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von XBrainBug.

    eMailbody aus Textbox, Problem mit zu vielen Zeilenumbrüchen

    Hallo zusammen,

    ​ich habe ein Problem dabei Text aus einer TextBox (Multiline) in den Body einer Mail einfügen (kein HTML Body).
    ​In der TextBox sieht alles bestens aus aber sobald ich die Mail verschicke erhalte ich 2-3 Zeilenumbrüche in jeder Zeile.
    ​Ich habe schon versucht die TextBox Zeilenweise auszulesen, mit Replace die Zeilenumbrüche zu entfernen aber nichts bringt ein brauchbares Ergebnis.

    ​Wie schaffe ich es, das wirklich nur die Zeilenumbrüche im Body der Mail landen, die auch im Textfeld angegeben sind?

    Der Code ist ja eigentlich idiotensicher:

    VB.NET-Quellcode

    1. With Msg
    2. .IsBodyHtml = False
    3. .From = New MailAddress(Me.TextBox_Absender.Text)
    4. .To.Add(Empfänger)
    5. If BCC <> "" Then
    6. .Bcc.Add(BCC)
    7. End If
    8. .Subject = Me.TextBox_Betreff.Text
    9. .Body = Me.TextBox_Text.Text
    10. .Attachments.Add(Data)
    11. End With​
    Ich denke das Problem gelöst zu haben aber bin nicht sicher ob das wirklich der richtige weg ist. Es sind wohl in der TextBox verschiedene Zeichen für Zeilenumbruch enthalten. Wenn ich ein REplace auf VbCrLf mache, sieht alles bestens aus.

    VB.NET-Quellcode

    1. With Msg
    2. .IsBodyHtml = False
    3. .From = New MailAddress(Me.TextBox_Absender.Text)
    4. .To.Add(Empfänger)
    5. If BCC <> "" Then
    6. .Bcc.Add(BCC)
    7. End If
    8. .Subject = Me.TextBox_Betreff.Text
    9. .Body = REPLACE(Me.TextBox_Text.Text, VbCrLf, "")
    10. .Attachments.Add(Data)
    11. End With