outlook öffnen und neue mail erstellen

Public Sub Outlook_öffnen()
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = Range("B1")
.Subject = Range("B4")
.cc = Range("B2")
.bcc = Range("B3")
.Body = Range("B5") & vbCrLf & vbCrLf & Range("B6") & vbCrLf & vbCrLf & Range("B7") & vbCrLf &   _
_
Range("B8") & vbCrLf & Range("B9") & vbCrLf & vbCrLf & Range("B10") & vbCrLf & vbCrLf & Range(" _
B11")
.Display
'.attach = "C:\Users\" 'Hier wird ein Attachment eingefügt
'.Send 'Hier wird die Mail gesendet
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub