Tabelle per Mail - Warnmeldung umgehen
F.
Ich möchte ein Tabellenblatt an eine festgelegte Adresse senden lassen.
Dabei sollte die im Betreff der Inhalt der Zelle C4 und "test" stehen. Zudem sollte
die Warnmeldung umgangen werden. Einzeln klappte das recht gut. Aber nie zusammen.
Im Code unten fehlt ua. der korrekte Betreff.
Hat jemand ein paar Tipps für mich?
Sub Email()
Dim olApp As Object
Dim wsShell
If MsgBox("Testtesttest", _
vbYesNo + vbQuestion, "Question") = vbNo Then Exit Sub
Application.DisplayAlerts = False
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
Sheets("testblatt").Select
Sheets("testblatt").Copy
ActiveWorkbook.SendMail "test@test.com", "testblatt"
Set wsShell = CreateObject("WScript.Shell")
wsShell.AppActivate olApp
wsShell.SendKeys "%s"
Set wsShell = Nothing
End With
Application.DisplayAlerts = True
MsgBox "Thank you very much!"
End Sub
Vielen Dank und Gruss
Frédéric