Screenshot UF -> Anhang Outlook
14.08.2018 11:07:31
Christian
nach ewiger Recherche muss ich doch mal wieder um Hilfe fragen.
Eigentlich möchte ich einfach nur einen Screenshot von meinen Userform machen und dies per Button, welcher auch im Userform integriert ist, auslösen.
Anschließend möchte ich den Screenshot als Anhang in Outlook einfügen und versenden.
Ich habe auch bereits einen recht simplen - im Vergleich zu dem Rest was mir Google ausspuckt hat - Code gefunden.
Private Sub CommandButton1_Click()
Range("A1:A10").CopyPicture xlScreen, xlBitmap
Dim oApp As Object
Set oApp = CreateObject("Outlook.Application")
On Error Resume Next
With oApp.CreateItem(0)
Application.Wait 1
.To = "irgendwer"
.Subject = "Das ist der Betreff"
.Body = "Text als Beschreibung"
.Display
SendKeys "{END}", True
SendKeys "~", True
SendKeys "^v", True
SendKeys "~", True
.GetInspector 'fügt die Standard-Signatur an
End With
On Error GoTo 0
Set oApp = Nothing
End Sub
Die Funktion würde so passen, nur statt Range würde ich gerne das Userform1 haben.
Vielen Dank im Voraus für eure Anregungen :-)!
Gruß,
Chris
Anzeige