Ich habe mir folgenden Code aus dem Archiv gezogen.
Sub Mail_senden()
Application.DisplayAlerts = False
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
.Recipients.Add "test@test.eu"
'Betreff
.Subject = "IP"
'Nachricht
.Body = Range("A1")
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
'.Attachments.Add "c:\test.jpg"
.Send
End With
Set olApp = Nothing
Application.DisplayAlerts = True
End Sub
Das versenden funktioniert eigentlich ganz gut, nur bekomme ich immer diese Meldungen!
Ich habs per screenshot in eine worddatei gepackt siehe link.
https://www.herber.de/bbs/user/40856.doc
Kann man diese Warnungen/Meldungen irgendwie unterdrücken?
Gruß Timo