Hallo Alle zusammen,
komme leider nicht mehr weiter und nach unzähligen Stunden in Google kein Schritt weiter.
Vielleicht kann ja jemand von euch helfen, für jede Hilfe bin ich sehr dankbar!
Folgender Code klappt 1 bis max 3 mal. Danach erfolgt die Fehlermeldung "Laufzeitfehler 1004"
Als Fehlerquelle wird die erste Zeile markiert. Schließe ich die Datei und versuch es nochmal
klappt es wieder 1 bis 3 mal und Feierabend. Wisst Ihr woran es liegen könnte?
Private Sub CommandButton1_Click()
Sheets("Arbeitsblatt1").Range("A1:AA19").CopyPicture xlScreen, xlBitmap
Dim OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
On Error Resume Next
With OutApp.CreateItem(0)
Application.Wait 1
.To = "Empfänger"
.Subject = "Betreff"
.Display
SendKeys "{END}", True
SendKeys "~", True
SendKeys "^v", True
SendKeys "~", True
.GetInspector 'Signatur
End With
On Error GoTo 0
Set OutApp = Nothing
End Sub
Vielen Dank im voraus!
Gruß
ALexander |