Screenshot in Mail einfügen
28.11.2020 08:15:32
Tamás
Folgenden Code benutze ich dafür:
Sub SCREENSHOT_MAIL()
Application.ScreenUpdating = False
Dim Betreff As String, Text As String
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
Betreff = "Screenshot " & Sheets("Ausgabe").Range("K4").Value
Sheets("Quelle").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Temp\Screenshot " & Sheets("Ausgabe").Range("K4").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:= _
False, IgnorePrintAreas:=False, OpenAfterPublish:=False
Application.ScreenUpdating = True
Sheets("Ausgabe").Range("A1:Y36").CopyPicture xlScreen, xlBitmap
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Crop_Picture.xlsm"
Windows("Crop_Picture.xlsm").Activate
Sheets("Picture").Select
ActiveSheet.Paste
Selection.Width = 300
Selection.Height = 300
Selection.Copy
Application.DisplayAlerts = False
Windows("Crop_Picture.xlsm").Close
Application.DisplayAlerts = True
Application.ScreenUpdating = False
With olApp.CreateItem(0)
.To = Sheets("Mailversand").Range("B3").Value
.Cc = Sheets("Mailversand").Range("B4").Value
.Subject = Betreff
.Attachments.Add "C:\Temp\Screenshot " & Sheets("Ausgabe").Range("K4").Value & ".pdf"
.Display
End With
' einfügen aus Zwischenablage
' "^" steht für Strg
SendKeys "^v", True
SendKeys "{NUMLOCK}", True
Set olApp = Nothing
Set Rng = Nothing
Sheets("Ausgabe").Select
Application.ScreenUpdating = True
End Sub
Erste Vorraussetzung ist, das Mailprogramm, in meinem Fall Outlook, muss bereits geöffnet sein. Wenn nicht läuft das Makro auf einen Fehler. Aber selbst wenn das Mailprogramm bereits geöffnet ist, kommt es beim ersten Versuch auch zu 99% zu einer Fehlermeldung, dann wird zwar eine Mail erstellt, inkl. PDF Datei im Anhang usw, aber das Einfügen des Screenshots klappt dann nicht. Vermutlich liegt das am "SendKeys". Wenn ich diese Mail ohne Screenshot dann schließe und das Makro erneut ausführe klappt es in der Regel auch dass die Mail inkl. Screenshot erzeugt wird.
Das zweite Ding ist die Sache mit dem skalieren. Am liebsten würde ich den Screenshot über eine fixe Höhe oder Breite automatisch in der Mail skalieren. Aber ich finde dazu keinen Ansatzpunkt. Daher gehe ich über eine eigens dafür erstellte, ansonsten leere Excel Datei, füge den Screenshot dort ein und skaliere mit einer bestimmten Höhe und einer bestimmten Breite, dadurch kommt es natürlich vor dass der Screenshot verzert wird, denn die Ausgangsbreite und Höhe sind nicht immer gleich.
Wonach ich jetzt suche ist eine Möglichkeit den Code zu optimieren. Ich möchte dass das Erzeugen einer Mail immer schon im ersten Versuch inkl. Screenshot klappt, am liebsten wie gesagt mit der Skalierung des Screenshots in Outlook, und die Skalierung entweder auf Breite oder Höhe, so dass das Seitenverhältnis erhalten bleibt.
Ich würde mich wahnsinnig freuen wenn es hier eine Lösung für meine Probleme gäbe.
Vielen Dank schonmal im Vorraus
Viele Grüße
Tamás