Ich benutze den unten stehenden Code. Kann man das Script so ändern, sodass die Mail automatisch verschickt wird, ohne das die Mail angezeigt wird und ich auf "Senden" drücken muß?
Set olAppication = CreateObject("Outlook.Application")
Set objEMail = olAppication.CreateItem(olMailItem)
Application.Wait Now + TimeSerial(0, 0, 5)
With objEMail
.To = "empfaenger@xyz.com"
.Subject = "bla"
.Body = "bla"
.display
End With
SendKeys "%s", True
SendKeys "^{ENTER}", True
Set objEMail = Nothing