Code in Visual Basic

Private Sub CommandButton1_Click()
On Error Resume Next
Dim AktuelleZeile As Integer
AktuelleZeile = ActiveCell.Row
If MsgBox("Gewählte Auftragsnummer: " & Range("A" & AktuelleZeile), vbOKCancel, "Achtung!")  _
_
= vbOK Then
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.Display
.To = "E-mailadresse"
.Subject = "Auftrag Nr: " & Range("A" & AktuelleZeile) & ", " & Range("F" &  _
AktuelleZeile)
.Body = "Sehr geehrte Damen und Herren!" & vbCrLf & vbCrLf & _
"Anbei dürfen wir Ihnen nachfolgenden Auftrag mit der Bitte um Bearbeitung übermitteln." _
_
& vbCrLf & vbCrLf & _
"Auftragsnummer:   " & Range("A" & AktuelleZeile) & vbCrLf & _
"Auftragsgruppe:   " & Range("F" & AktuelleZeile) & vbCrLf & _
"Termin zur Erledigung:   " & Range("K" & AktuelleZeile) & vbCrLf & vbCrLf & _
"Gebäude/Bereich:   " & Range("C" & AktuelleZeile) & ", " & Range("D" & AktuelleZeile) & _
_
", " & Range("E" & AktuelleZeile) & vbCrLf & _
"Ansprechperson vor Ort:   " & Range("I" & AktuelleZeile) & vbCrLf & vbCrLf & _
"AUFTRAGSINHALT:   " & Range("G" & AktuelleZeile) & vbCrLf & _
"Anmerkung: " & Range("H" & AktuelleZeile) & vbCrLf & vbCrLf & _
"______________________________________________________________________________" &  _
vbCrLf & vbCrLf & _
"Vielen Dank & beste Grüße" & vbCrLf & _
Range("J" & AktuelleZeile) & vbCrLf & vbCrLf & _
End With
Else
End If
End Sub