VB - Zeilenumbruch im html-Body

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von queckjunior.

    VB - Zeilenumbruch im html-Body

    Hallo,

    ich sende aus einem Formular heraus eine Mail:

    Unter .htmlbody = ...... wird der Body zusammengesetzt. Wie bekomme ich hier einen zeilenumbruch rein? mit + vbNewLine + oder & vbNewLine &
    funktioniert das irgendwie nicht

    Quellcode

    1. Try
    3. Dim objOutlook As Object 'Outlook.Application
    4. Dim objOutlookMsg 'As Outlook.MailItem
    5. 'Dim objOutlookAttach ' As Outlook.Attachment
    6. ''Dim objOutlookAttach1 ' As Outlook.Attachment
    7. Dim empfaenger As String
    9. 'Erstellen der Outlook Session
    10. objOutlook = CreateObject("Outlook.Application")
    12. 'Erstellen der E-Mail
    13. objOutlookMsg = objOutlook.CreateItem(0)
    15. 'Empfänger zusammenbasteln
    16. empfaenger = MailketteTextBox.Text
    18. With objOutlookMsg
    19. .To = empfaenger
    20. .CC = ""
    21. .BCC = ""
    22. .Subject = "Kundenreklamation Projekt " & Pro_nummerTextBox.Text & " vom " & DatumDateTimePicker.Value
    23. .htmlbody = "Projektnummer " & Pro_nummerTextBox.Text & " Teileanzahl " & TeileanzahlTextBox.Text & " Reklamationsdatum " & DatumDateTimePicker.Value & " Reklamationsgrund " & reklamationsgrundRichTextBox.Text
    25. '//am Bildschirm anzeigen
    26. .Display()
    27. '.send()
    28. 'Attachment erstellen
    29. 'If RichTextBox1.Text <> "" Then 'Wenn ein Leerstring kommt gibt es einen Fehler
    30. ' objOutlookAttach = .Attachments.Add(RichTextBox2.Text)
    31. 'End If
    32. End With
    34. objOutlook = Nothing
    35. objOutlookMsg = Nothing
    37. Catch ex As Exception
    38. MessageBox.Show(ex.Message)
    39. End Try


    queckjunior

    Problem selbst gelöst. Das Wort .htmlbody am Zeilenanfang muss in .body umgewandelt werden. Dann funktioniert auch das & vbCrLf &.

    Quellcode

    1. .body = "Projektnummer " & Pro_nummerTextBox.Text & vbCrLf & "Teileanzahl " & TeileanzahlTextBox.Text & vbCrLf & "Reklamationsdatum " & DatumDateTimePicker.Value & vbCrLf & "Reklamationsgrund " & reklamationsgrundRichTextBox.Text


    queckjunior

Facebook
Telefonspende