EMail Body nach Inputbox generieren

Sub test()
Dim i As Long
Dim f As Long
With Worksheets("SOKA-Auszug")
i = Application.InputBox("Bitte Zeile eingeben", "Arbeitnehmer", 0, Type:=1)
If i = 0 Then Exit Sub
f = .Range(i, "B").Value
Dim olApp As Object
Dim olOldBody As String
olSubject = Format(Date, "dd-MM-yyyy") & " " & "Anforderung AN-Kontoauszüge BKN: " & .Cells(i,  _
_
_
_
_
_
"G")
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
strhtml = strhtml & "Sehr geehrte Damen und Herren," & "

" & "

strhtml = strhtml & "ich bitte um Zusendung der Arbeitnehmerkontoauszüge für den unten aufgefü  _
_
_
_
_
_
hrten Arbeitnehmer, gerne per E-Mail: " & "

" & "

" & "

strhtml = strhtml & "Betriebsnummer: " & Range("G2") & "

" & "

strhtml = strhtml & "Firma: " & f & "

" & Range("K2").Value & " in " & Range("L2").Value & " _
_
_
_
_
_
" & Range("M2").Value & " 

" & "

strhtml = strhtml & "Name, Vorname: " & Range("F2").Value & "

" & "

strhtml = strhtml & "Beginn: " & Range("D2").Value & " 

" & "

" & "

strhtml = strhtml & "AN-Nummer/Geburtsdatum: " & Range("D20").Value & "

" & "

" & "

strhtml = strhtml & "Meine Kontaktdaten sind unten Aufgeführt." & "

" & "

strhtml = strhtml & "Vielen Dank für Ihre Bemühungen." & olOldBody
.GetInspector.Display
olOldBody = .htmlbody
.to = "anforderung@soka-bau.de"
.Subject = olSubject
.htmlbody = "" & strhtml
End With
End With
End Sub