Screenshot als E-Mail - Laufzeitfehler 1004 CopyPi

Private Sub CommandButton94_Click()
Sheets("Blatt1").Range("A1:AA20").CopyPicture xlScreen, xlBitmap
Dim OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
On Error Resume Next
With OutApp.CreateItem(0)
Application.Wait 1
.To = "Emfpänger"
.Subject = "Betreff"
.Display
SendKeys "{END}", True
SendKeys "~", True
SendKeys "^v", True
SendKeys "~", True
.GetInspector 'fügt die Standart-Signatur an
End With
On Error GoTo 0
Set OutApp = Nothing
End Sub