Hallo
Ich möchte gern das Tabellenblatt "Drucken" Bereich "A1:AJ57"als PDF in die Zwischenablage kopieren.
Dieses dann per Mail versenden und aus der Zwischenablage löschen.
Zum Mail Versenden könnte ich folgenden Code verwenden:
Dim oApp As Object
Set oApp = CreateObject("Outlook.Application")
On Error Resume Next
With oApp.CreateItem(0)
Application.Wait 1
.To = "mail@mail.de"
.Subject = "Text" & "_" & ThisWorkbook.Worksheets("Drucken").Range("BH31")
.Body = "Text"
.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 oApp = Nothing
End Sub
Vielen Dank für Eure Hilfe