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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 126775
Url: https://administrator.de/forum/send-key-von-outlook-funktioniert-nur-manchmal-126775.html
Ausgedruckt am: 25.12.2024 um 01:12 Uhr
6 Kommentare
Neuester Kommentar