Send Key von Outlook funktioniert nur manchmal
Hallo,
über ein Skript wird eine xls an eine neue Email gehängt und an definierte Empfänger geschickt.
Mein Ziel ist es dies vollautomatisiert zu machen.
Eigentlich klappt es wenn die Sicherheitswarnung in Outlook nicht wäre. Hier muss ich dann am Ende immer auf JA klikcken damit zugegriffen werden kann.
Meine aktuelle Lösung simuliert am Ende ein ein ALT+S, so wird die Mail sofort losgeschickt.
Am Anfang klappte das prima, doch mittlerweile hab ich festgestellt dass wenn ein anderes Fenster aktiviert ist dass dieses SendKey nicht funktioniert
Es funktioniert nur wenn kein anderes Fenster aktiviert ist.
Jemand eine Idee wie man das umgehen kann?
Hier der Code:
über ein Skript wird eine xls an eine neue Email gehängt und an definierte Empfänger geschickt.
Mein Ziel ist es dies vollautomatisiert zu machen.
Eigentlich klappt es wenn die Sicherheitswarnung in Outlook nicht wäre. Hier muss ich dann am Ende immer auf JA klikcken damit zugegriffen werden kann.
Meine aktuelle Lösung simuliert am Ende ein ein ALT+S, so wird die Mail sofort losgeschickt.
Am Anfang klappte das prima, doch mittlerweile hab ich festgestellt dass wenn ein anderes Fenster aktiviert ist dass dieses SendKey nicht funktioniert
Es funktioniert nur wenn kein anderes Fenster aktiviert ist.
Jemand eine Idee wie man das umgehen kann?
Hier der Code:
Const olByValue = 1
Const olMailItem = 0
Dim oOApp
Dim oOMail
Dim WshShell
Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)
oOMail.display ' Fenster anzeigen
oOMail.To = "User1@email.de;User2@email.de"
oOMail.CC = "reporting@email.de"
oOMail.Subject = "Automatisierter Report"
oOMail.Body = "Im Anhang befindet sich Report"
oOMail.Attachments.Add (SkriptPfad & "Report.doc"), olByValue, 1
'oOMail.Send '<< dieser Befehl würde die Warnung anzeigen
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate oOMail
WshShell.SendKeys("%s") ' Sende ein "Alt-S". Outlook denkt der User "sendet
Please also mark the comments that contributed to the solution of the article
Content-Key: 126775
Url: https://administrator.de/contentid/126775
Printed on: April 23, 2024 at 15:04 o'clock
6 Comments
Latest comment