21
Fenster per vbs ansprechen mit variablem Namen
Hallo,
gibt es einen vbs-Befehl mit dem ich ein vorhandenes Fenster aktivieren kann?
Der Name des Fensters lautet:
Bericht vom 23.10.2009
Wobei immer das aktuelle Datum drinsteht:
So sieht der Code aus:
gibt es einen vbs-Befehl mit dem ich ein vorhandenes Fenster aktivieren kann?
Der Name des Fensters lautet:
Bericht vom 23.10.2009
Wobei immer das aktuelle Datum drinsteht:
So sieht der Code aus:
oOMail.Subject = "Automatisierter ITK-Report vom " & Date 
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 127788
Url: https://administrator.de/contentid/127788
Ausgedruckt am: 15.11.2024 um 05:11 Uhr
21 Kommentare
Neuester Kommentar
Hi,
Ich hab zwar kaum Ahnung von vbs aber probier mal
Ich hab zwar kaum Ahnung von vbs aber probier mal
...Date.now
Die Datefunktion klappt ja
Es geht nur darum das Fenster über den Namen anzusprechen
Und wie mache ich das mit einem sich täglich ändernden Datum?
Es geht nur darum das Fenster über den Namen anzusprechen
Und wie mache ich das mit einem sich täglich ändernden Datum?
Das aktuelle Datum wird durch ".Now" angezeigt.
bin mir aber nicht sicher ob das klappt!!
wenn nicht hab ich auch keine Ahnung.
Gruß
bennib22
bin mir aber nicht sicher ob das klappt!!
wenn nicht hab ich auch keine Ahnung.
Gruß
bennib22
Ich vermute mal, mit "aktivieren" meinst Du, dem Fenster den Focus zu geben.
In dem Fall:
In dem Fall:
Set o = CreateObject("Wscript.Shell")
o.AppActivate(NameDesFensters)
Hallo KikiMiki!
Versuchs mal mit:
Gruß Dieter
Versuchs mal mit:
oOMail.Subject = "Automatisierter ITK-Report vom " & Date
oOMail.DisplayGruß Dieter
So wollte ich es lösen:
Aber wenn das Skript läuft klappt der Wchsel auf das Outlook Fenster nicht jedes mal
Keine Ahnung wieso
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 1500
WshShell.AppActivate oOMail
WScript.Sleep 1500
oOMail.display ' Fenster anzeigen
WScript.Sleep 1500
WshShell.SendKeys("%s") ' Sende ein "Alt-S". Outlook denkt der User "sendet Aber wenn das Skript läuft klappt der Wchsel auf das Outlook Fenster nicht jedes mal
Keine Ahnung wieso
Hallo KikiMiki!
Vielleicht hilft Dir dieses funktionierende Beispiel weiter?
Gruß Dieter
Vielleicht hilft Dir dieses funktionierende Beispiel weiter?
Dim appMail
Set appMail = CreateObject("Outlook.Application").CreateItem(0)
With appMail
.Subject = "Bestellung " & Now
.To = "Max.Mustermann@test.uk"
.cc = "Max.Mustermann@test.uk"
'.HTMLbody = HtmlText
'.body = Text
.Display
End With
Set appMail = NothingGruß Dieter
Hi didi,
seh da keinen großen Unterschied ;)
Hier meine Funktion
seh da keinen großen Unterschied ;)
Hier meine Funktion
Dim oOApp
Dim oOMail
Dim WshShell
Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)
oOMail.display ' Fenster anzeigen
oOMail.To = "me@me.de"
oOMail.CC = ""
oOMail.Subject = "Automatisierter Report vom " & Date
oOMail.Body = "Im Anhang befindet sich der Report"."
oOMail.Attachments.Add (SkriptPfad & "Bericht.xls"), olByValue, 1
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 1500
WshShell.AppActivate oOMail
WScript.Sleep 1500
oOMail.display ' Fenster anzeigen
WScript.Sleep 1500
WshShell.SendKeys("%s") ' Sende ein "Alt-S". Outlook denkt der User "sendet
Hallo KikiMiki!
Ich sehe da schon einen Unterschied. Die Zeile 8 sollte wohl erst in Zeile 14 stehen und der Rest ganz entfallen
Gruß Dieter
Ich sehe da schon einen Unterschied. Die Zeile 8 sollte wohl erst in Zeile 14 stehen und der Rest ganz entfallen
Gruß Dieter
SendKeys ist des Teufels. Sollte man NIE NIE NIE verwenden, es sei denn es geht gar nicht anders und im Normalfall gehts anders.
Ich finde, es ist unlogisch codiert:
Erst Fenster aktivieren, dann den Display Befehl? Finde ich komisch, muß aber auch glücklicherweise kein Outlook verwenden.
Außerdem gibt es viele Gründe, warum SendKeys unzuverlässig ist:
Unter Last reichen eventuell die 1,5 Sekunden nicht aus, daß das Fenster schon aufgebaut und im Focus ist wenn der SendKey Befehl kommt: Eingabe geht ins Leere bzw. falsche Programm
Eventuell drängt sich in den 1,5 Sekunden ein anderes Popup/Programm in den Vordergrund: Eingabe geht ins Leere bzw. falsche Programm
Eine systemmodale Dialogbox ist offen: Eingabe geht ins Leere bzw. falsche Programm
Sendkeys auf einem Multitaskingsystem mit mehreren Programmen ist wie Roulettespielen: Man kann das richtige Programm erwischen, aber zuverlässig ist was anderes.
Ich finde, es ist unlogisch codiert:
Erst Fenster aktivieren, dann den Display Befehl? Finde ich komisch, muß aber auch glücklicherweise kein Outlook verwenden.
Außerdem gibt es viele Gründe, warum SendKeys unzuverlässig ist:
Unter Last reichen eventuell die 1,5 Sekunden nicht aus, daß das Fenster schon aufgebaut und im Focus ist wenn der SendKey Befehl kommt: Eingabe geht ins Leere bzw. falsche Programm
Eventuell drängt sich in den 1,5 Sekunden ein anderes Popup/Programm in den Vordergrund: Eingabe geht ins Leere bzw. falsche Programm
Eine systemmodale Dialogbox ist offen: Eingabe geht ins Leere bzw. falsche Programm
Sendkeys auf einem Multitaskingsystem mit mehreren Programmen ist wie Roulettespielen: Man kann das richtige Programm erwischen, aber zuverlässig ist was anderes.
Habs umgestellt
Klappt leider immer noch nicht
Er will mir einfach das Outlookfenster nicht vor holen....
Dim oOApp
Dim oOMail
Dim WshShell
Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)
oOMail.To = "me@me.de
oOMail.CC = "he@he.de"
oOMail.Subject = "Automatisierter Report vom " & Date
oOMail.Body = "Im Anhang befindet sich der Report."
oOMail.Attachments.Add (SkriptPfad & Report.xls"), olByValue, 1
oOMail.display ' Fenster anzeigen
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 1500
WshShell.SendKeys("%s") ' Sende ein "Alt-S". Outlook denkt der User "sendet
Klappt leider immer noch nicht
Er will mir einfach das Outlookfenster nicht vor holen....
Dim oOApp
Dim oOMail
Dim WshShell
Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)
oOMail.To = "me@me.de
oOMail.CC = "he@he.de"
oOMail.Subject = "Automatisierter Report vom " & Date
oOMail.Body = "Im Anhang befindet sich der Report."
oOMail.Attachments.Add (SkriptPfad & Report.xls"), olByValue, 1
oOMail.display ' Fenster anzeigen
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 1500
WshShell.SendKeys("%s") ' Sende ein "Alt-S". Outlook denkt der User "sendet
Hallo Adreas,
hast du eine andere Idee?
Wenn ich es nicht über sendkey mache bringt outlook eine Sicherheitswarnung wo ich jedes mal "ja" drücken muss zum zulassen
Habs umgestellt
Klappt leider immer noch nicht
Er will mir einfach das Outlookfenster nicht vor holen....
hast du eine andere Idee?
Wenn ich es nicht über sendkey mache bringt outlook eine Sicherheitswarnung wo ich jedes mal "ja" drücken muss zum zulassen
Habs umgestellt
Klappt leider immer noch nicht
Er will mir einfach das Outlookfenster nicht vor holen....
Dim oOApp
Dim oOMail
Dim WshShell
Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)
oOMail.To = "me@me.de
oOMail.CC = "he@he.de"
oOMail.Subject = "Automatisierter Report vom " & Date
oOMail.Body = "Im Anhang befindet sich der Report."
oOMail.Attachments.Add (SkriptPfad & Report.xls"), olByValue, 1
oOMail.display ' Fenster anzeigen
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 1500
WshShell.SendKeys("%s") ' Sende ein "Alt-S". Outlook denkt der User "sendet
Hallo KikiMiki!
Also, ich hab's mit meinem und Deinem Code getestet und funktioniert mit beiden Codes einwandfrei?
Bei Dir fehlen "-Zeichen, fehlen die im Script auch?
Gruß Dieter
Also, ich hab's mit meinem und Deinem Code getestet und funktioniert mit beiden Codes einwandfrei?
Bei Dir fehlen "-Zeichen, fehlen die im Script auch?
Gruß Dieter
Zeichen sind vollständig ;)
Hallo AndreasHoster!
Die Display-Anweisung ist doch die Fensteraktivierung. Mail mit Daten initialisieren und dann erst anzeigen.
Ich verwende auch kein Outlook, aber zum testen reicht Outlook-Express.
Gruß Dieter
Die Display-Anweisung ist doch die Fensteraktivierung. Mail mit Daten initialisieren und dann erst anzeigen.
Ich verwende auch kein Outlook, aber zum testen reicht Outlook-Express.
Gruß Dieter
Hallo KikiMiki!
In diesem Quelltext fehlen die Zeichen auch:
hier: oOMail.To = "me@me.de > = "me@me.de"
hier: oOMail.Attachments.Add (SkriptPfad & Report.xls"), olByValue, 1 > = & "Report.xls"
Gruß Dieter
In diesem Quelltext fehlen die Zeichen auch:
hier: oOMail.To = "me@me.de > = "me@me.de"
hier: oOMail.Attachments.Add (SkriptPfad & Report.xls"), olByValue, 1 > = & "Report.xls"
Gruß Dieter
@ Didi
Zeichen sind alle da
War nur copy-paste Fehler.....
;)
Es geht ja alles, nur Send-key nicht ;)
Zeichen sind alle da
War nur copy-paste Fehler.....
;)
Es geht ja alles, nur Send-key nicht ;)
Hallo KikiMiki!
Achso, stehe ich irgenwie auf der Leitung? Das anzeigen geht nur das senden nicht?
Gruß Dieter
Achso, stehe ich irgenwie auf der Leitung? Das anzeigen geht nur das senden nicht?
Gruß Dieter
Hallo KikiMiki!
Wieso verwendest Du anstelle von SendKey Alt+S nicht einfach die Anweisung Send mit oder ohne Display?
Gruß Dieter
Wieso verwendest Du anstelle von SendKey Alt+S nicht einfach die Anweisung Send mit oder ohne Display?
.Display
.SendGruß Dieter
Hallo Didi,
wie meinst du das?
wie meinst du das?
Hallo KikiMiki!
Mhm, wie ich das meine, sieht man doch eigentlich am letzten Code
Also, mit der Anweisung Display, wird ja Dein Mail-Fenster angezeigt und dann könntest im Fenster Deine Mail senden. Mit der zusätzlichen Send-Anweisung, wird Dein Mail-Fenster auch angezeigt und der Sendbefehl ist auch schon aktiviert. Wenn Du die Display-Anweisung weg läßt und nur die Send-Anweisung drinnen läßt, dann wird keine Mail angezeigt und nur der Sendbefehl aktiviert. Allerdings kann ich nur mit Outlook-Express testen und da muss dann nach Ablauf einer bestimmten Zeit (paar Sekunden), nochmal zusätzlich das Absenden mit Ja/Nein bestätigt werden? Keine Ahnung, wie das in Outlook gehandhabt wird? Und ob das gegebenenfalls per Einstellungen unterbunden werden kann?
Gruß Dieter
Mhm, wie ich das meine, sieht man doch eigentlich am letzten Code
Also, mit der Anweisung Display, wird ja Dein Mail-Fenster angezeigt und dann könntest im Fenster Deine Mail senden. Mit der zusätzlichen Send-Anweisung, wird Dein Mail-Fenster auch angezeigt und der Sendbefehl ist auch schon aktiviert. Wenn Du die Display-Anweisung weg läßt und nur die Send-Anweisung drinnen läßt, dann wird keine Mail angezeigt und nur der Sendbefehl aktiviert. Allerdings kann ich nur mit Outlook-Express testen und da muss dann nach Ablauf einer bestimmten Zeit (paar Sekunden), nochmal zusätzlich das Absenden mit Ja/Nein bestätigt werden? Keine Ahnung, wie das in Outlook gehandhabt wird? Und ob das gegebenenfalls per Einstellungen unterbunden werden kann?
Gruß Dieter
