Hallo zusammen,
nach längerer recherche bin ich auf euer Forum gestoßen und hoffe, Ihr könnt mir helfen.
Ich generiere eine Email mit Anhang. Bis hierhin kein Problem.
Set olMail = CreateObject("Outlook.Application")
With olMail.CreateItem(0)
.GetInspector.Display
olOldBody = .htmlBody
.To = StringTo
.cc = StringCC
.BCC = StringBCC
If Me.Cells(myCell.Row, "F").Value = "" Then
.Subject = strDateiname & " " & Format(Now, "DD.MM.YYYY - hh.mm")
Else
.Subject = Me.Cells(myCell.Row, "F").Value
End If
.htmlBody = Me.Cells(myCell.Row, "G").Value ' & olOldBody
.Attachments.Add strFileName
If LCase(Me.Cells(myCell.Row, "H").Value) = "hoch" Then
.Importance = 2
End If
If Range("B3").Value = "Anzeigen" Then
.Display
Else
.Send
End If
End With
Set olMail = Nothing
nun zum Problem:
mit dem oben aufgeführten Code erstellt er mir zwar die Email, mit Signatur, knallt mir den Text, der in der Zelle "G" steht OHNE Absatz, also im fließtext ein. Gut, dachte ich mir, lass ich das mit dem htmlbody und mach nen normalen body draus ... resultat: jetzt ist der Zeilenumbruch der Zelle zwar vorhanden, aber die Signatur sieht dementsprechend "bescheiden" aus.
Wie bekomme ich also in diesen Code die Signatur, die in HTML vorliegt rein und gleichzeitig den Zeilenumbruch der Zelle?
Ich hoffe auf rege vorschläge.
Vielen Dank vorab.
Dominic
|