Email via VBA generieren und formatieren

Sub TestMail()
Dim olApp As Object ', AktMail As Object,
Dim myAnswer As Object
Set olApp = CreateObject("Outlook.Application")             'OutlookVerweis
If Not olApp.ActiveInspector Is Nothing Then                'Pruefung auf offene Mail
With olApp.ActiveInspector.CurrentItem()
Set myAnswer = .ReplyAll                            'allen Antworten-Verweis
.Close False                                        'Aktuelle Mail schliessen
End With
With myAnswer
'.SentOnBehalfOfName = "xxxxxxx"                     'senden von Konto
'.Subject = "Angebot" & " " & Range("G17")           'Betreff NEU schreiben? ohne  _
_
diese Zeile AW: Original-Betreff
.htmlbody = Range("E5") & "," & "

" & "

" & Range("J9") & "

" & "

" &   _
_
Range("P14") & "

" & "

" & Range("P22") & .htmlbody
.Display                                            'anzeigen
'.sent                                                  'senden
End With
Else
MsgBox "Bitte zuerst die angebots E-Mail öffnen"
End If
Set myAnswer = Nothing
Set olApp = Nothing
End Sub