Hallo zusammen,

mein Ziel ist es, ein String aus zwei oder drei Sätzen in Linkenform ins Outlook darzustellen. 

Beispielsweise in der Form:

"sehr geehrte..

1.) ABC

2.) BCE

3.) GZE"

Die Sätze "ABC, BCE, GZE" werden aus bestimmten Zellen als String zusammengesetzt und durch ein ";" separiert. Damit die drei Sätze als Listenform in der Mail (outlook) auftauchen, werden die noch zusätzlich transponiert.

Die frage ist jetzt, welche Funktion ist hier am effizientesten, diese Sätze als Listenform in Outlook hinzuzufügen. unten habe ich mal mein Versucht dargestellt. Mir fällt spontan ein, dass ich die Auflistung vllt, durch die "collectionfunktion" oder durch die "Function RangetoHTML(rng As Range)" (wo der Range in HTML umgewandelt wird) darstellen könnte. Oder habt Ihr noch eine bessere Idee?

Danke Euch schonmal im Voraus

Dim KommString As String

Dim arrWerte() As String

Dim rngBereich As Range

Dim Text As String


KommString = KommString & ";" & cell.Value

KommString = Right(KommString, Len(KommString) - 1)

arrWerte = Split(KommString, ";")

rngBereich = Application.WorksheetFunction.Transpose(arrWerte)


Text = "</BODY>" & rngBereich & "</BODY>"

With objMailItem
    .GetInspector
    .To = Empf
    .cc = cc
    .Subject = Betreff
    .HTMLBody = Text & .HTMLBody
    .Display
End With