ich habe eine Datei, wo nur die Userform sichtbar ist.
Nun möchte ich das dass Tabellenblatt "Drucken" der Bereich "A1:AJ57" in eine Email eingefügt wird.
Der erste Ansatz war:
Private Sub CommandButton3_Click()
Worksheets("Drucken").Range("A1:AJ57").CopyPicture xlScreen, xlBitmap
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 = "Test" & "_" & ThisWorkbook.Worksheets("Drucken").Range("BH31")
.Body = "Testmail"
.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
Was natürlich beim ausgeblendetem Tabellenblatt nicht funktioniert.Eine reine .Copy Version klappte, sieht aber unschön aus, Grafiken sind verschoben etc.
Hat jemand Rat oder eine Idee?