Format aus Excel in Email beibehalten

Sub AUTOMATISIERTE_EMAIL()
Dim olApp As Object
Dim WsShell
Set olApp = CreateObject("Outlook.Application")
Set sAdress = Range("D4")
Set sSubject1 = Range("A4")
Set sSubject2 = Range("M4")
sBody = Range("U1").Value
Dim IntZeile As Integer
For IntZeile = 4 To 5000
If Cells(IntZeile, 11) = "OK" Then
With olApp.CreateItem(0)
.To = sAdress.Offset(IntZeile - 4, 0).Value 'Empfänger"
.Subject = " Die Opportunity " & sSubject1.Offset(IntZeile - 4, 0).Value & " endet am: " &  _
sSubject2.Offset(IntZeile - 4, 0).Value 'Betreff
.Body = sBody 'Nachricht
.ReadReceiptRequested = False 'Lesebestätigung aus
.Display 'Email anzeigen
End With
End If
Next
End Sub