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
|