E-Mail mittels VBA und mehreren Werten

strHTMLbody = _ "Auftrag bereit für Bearbeitung! " & _ "Hallo Mustermann-Team, " & _ "für Kunden Musterfirma wurden neue Aufträge angelegt und zur Bearbeitung freigegeben. " & _ {VARIABLE FÜR RANGE} & " " & _ "Mit freundlichen Grüßen " & _ "XXXX "

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'Test Dim rgQuelle As Range Public Sub starte() Set rgQuelle = ThisWorkbook.Worksheets(1).Range("A1:A30") Dim strOut As String strOut = rangeToHTML(rgQuelle) Debug.Print strOut End Sub 'Funktion aufrufen Public Function rangeToHTML(ByVal rg As Range) As String Dim col As New Collection Dim lngAnzahl As Long Dim lngZähler As Long Dim strZelle As String lngAnzahl = rg.Cells.Count strZelle = "" For lngZähler = 1 To lngAnzahl strZelle = strZelle & vbCrLf & "" Next strZelle = strZelle & vbCrLf & "" & rg.Cells(lngZähler).Value & "" rangeToHTML = strZelle End Function

Private Sub Mail_BereichalsBereich_Word1() Dim sMailtext As String With CreateObject("Outlook.Application").CreateItem(0) .Subject = "Mein Betreff ' Betreff" .To = "AnIhn@Web.de" ' Empfänger sMailtext = "Auftrag bereit für Bearbeitung!¶" & _ "Hallo Mustermann-Team,¶" & _ "für Kunden Musterfirma wurden neue Aufträge angelegt und zur Bearbeitung freigegeben.¶" .Getinspector.display .htmlbody = Replace(sMailtext, "¶", "<br>") & "<br>Mfg<br>" & .htmlbody ActiveSheet.Range("A1:A20").Copy ' Bereich kopieren With .Getinspector.WordEditor.Application.Selection .Start = Len(sMailtext) - 1 ' Mit Position spielen... .Paste 'Bereich in Mail einfügen End With End With End Sub

Dim rgQuelle As Range Public Sub starte() Set rgQuelle = ThisWorkbook.Worksheets(1).Range("A1:A30") Dim strOut As String strOut = rangeToHTML(rgQuelle) Debug.Print strOut End Sub 'Funktion aufrufen Public Function rangeToHTML(ByVal rg As Range) As String Dim lngAnzahl As Long Dim lngZähler As Long Dim strZelle As String lngAnzahl = rg.Cells.Count strZelle = "<table>" For lngZähler = 1 To lngAnzahl strZelle = strZelle & vbCrLf & "<tr><td>" & rg.Cells(lngZähler).Value & "</td></tr>" Next strZelle = strZelle & vbCrLf & "</table>" rangeToHTML = strZelle End Function

Die KI sagt:

Der Code enthält einige Fehler. Hier ist der korrigierte Code:

Dim rgQuelle As Range



Public Sub starte()

    Set rgQuelle = ThisWorkbook.Worksheets(1).Range("A1:A30")

    Dim strOut As String

    strOut = rangeToHTML(rgQuelle)

    Debug.Print strOut

End Sub



' Funktion aufrufen

Public Function rangeToHTML(ByVal rg As Range) As String

    Dim col As New Collection

    Dim lngAnzahl As Long

    Dim lngZähler As Long

    Dim strZelle As String

    lngAnzahl = rg.Cells.Count

    strZelle = ""



    For lngZähler = 1 To lngAnzahl

        strZelle = strZelle & "
" & rg.Cells(lngZähler).Value

    Next lngZähler

    

    rangeToHTML = strZelle

End Function

Die Änderungen, die vorgenommen wurden:

Der Zeilenumbruch (vbCrLf) wurde durch das HTML-Zeilenumbruch-Tag (
) ersetzt, um den Zeilenumbruch im HTML-Text darzustellen.
Die Zeilen innerhalb der Schleife wurden korrigiert, um den Wert der aktuellen Zelle richtig in den strZelle-String einzufügen.
Die Variable strZelle wurde korrekt formatiert, um den HTML-Code zu erzeugen.

Probier´s mal aus
Gruß, MCO

Beliebteste Forumthreads (12 Monate)

E-Mail mittels VBA und mehreren Werten

Auftrag bereit für Bearbeitung!

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

E-Mail mittels VBA und mehreren Werten

Auftrag bereit für Bearbeitung!

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread