Hallo,
ich habe eine Excel Datei mit VBA programmiert und möchte nun eine automatische E-Mail damit versenden, soweit funktioniert das auch. Nun möchte ich einen Screenshot in die E-Mail einsetzen und dann automatisch versenden. Leider geht das dann nur, wenn ich die anzeigen lasse und dann manuell sende. Gibt es eine Möglichkeit die Mail auch mit Sreenshot automatisch zu senden? ".display" habe ich bereits versucht durch ".send" zu ersetzen, leider ohne Erfolg.
Anbei mein Code:
Public Sub Modul_11()
Sheets("Tabelle2").Select
Worksheets("Tabelle2").Range("A1:AF16").CopyPicture xlScreen, xlBitmap
Sheets("Tabelle1").Select
Dim oApp As Object
Dim Text As String
Dim Betreff As String
Set oApp = CreateObject("Outlook.Application")
Betreff = Worksheets("Tabelle3").Range("F119").Value
Text = Worksheets("Tabelle3").Range("G119").Value
On Error Resume Next
With oApp.CreateItem(0)
Application.Wait 1
.To = Worksheets("Tabelle4").Range("F28").Value
.Subject = Betreff
.Body = Text
.display
SendKeys "{END}", True
SendKeys "~", True
SendKeys "^v", True
End With
On Error GoTo 0
Set oApp = Nothing
End Sub
Vielen lieben Dank bereits im Voraus!!
Viele Grüße Zoamy
|