kikimiki
Oct 23, 2009, updated at 09:36:01 (UTC)
view19598
view21
0
Goto Top

Fenster per vbs ansprechen mit variablem Namen

GermanQuestionBatch, ShellDevelopment
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:

oOMail.Subject = "Automatisierter ITK-Report vom " & Date
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 127788

Url: https://administrator.de/contentid/127788

Printed on: April 18, 2024 at 06:04 o'clock

21 Comments
Latest comment
Goto Top
Member: bennib22
bennib22 Oct 23, 2009 at 10:41:48 (UTC)
Goto Top
Hi,
Ich hab zwar kaum Ahnung von vbs aber probier mal
...Date.now
Member: KikiMiki
KikiMiki Oct 23, 2009 at 10:43:57 (UTC)
Goto Top
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?
Member: bennib22
bennib22 Oct 23, 2009 at 11:42:03 (UTC)
Goto Top
Das aktuelle Datum wird durch ".Now" angezeigt.
bin mir aber nicht sicher ob das klappt!!
wenn nicht hab ich auch keine Ahnung.

Gruß
bennib22
Member: AndreasHoster
AndreasHoster Oct 23, 2009 at 12:03:12 (UTC)
Goto Top
Ich vermute mal, mit "aktivieren" meinst Du, dem Fenster den Focus zu geben.
In dem Fall:
Set o = CreateObject("Wscript.Shell")  
o.AppActivate(NameDesFensters)
Mitglied: 76109
76109 Oct 23, 2009 at 12:04:13 (UTC)
Goto Top
Hallo KikiMiki!

Versuchs mal mit:
oOMail.Subject = "Automatisierter ITK-Report vom " & Date  
oOMail.Display

Gruß Dieter
Member: KikiMiki
KikiMiki Oct 23, 2009 at 12:07:45 (UTC)
Goto Top
So wollte ich es lösen:

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
Mitglied: 76109
76109 Oct 23, 2009 at 12:13:57 (UTC)
Goto Top
Hallo KikiMiki!

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 = Nothing

Gruß Dieter
Member: KikiMiki
KikiMiki Oct 23, 2009 at 12:20:52 (UTC)
Goto Top
Hi didi,

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
Mitglied: 76109
76109 Oct 23, 2009 at 12:44:29 (UTC)
Goto Top
Hallo KikiMiki!

Ich sehe da schon einen Unterschied. Die Zeile 8 sollte wohl erst in Zeile 14 stehen und der Rest ganz entfallenface-wink

Gruß Dieter
Member: AndreasHoster
AndreasHoster Oct 23, 2009 at 12:59:38 (UTC)
Goto Top
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.
Member: KikiMiki
KikiMiki Oct 23, 2009 at 13:05:42 (UTC)
Goto Top
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
Member: KikiMiki
KikiMiki Oct 23, 2009 at 13:07:16 (UTC)
Goto Top
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....


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
Mitglied: 76109
76109 Oct 23, 2009 at 13:24:52 (UTC)
Goto Top
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
Member: KikiMiki
KikiMiki Oct 23, 2009 at 13:30:24 (UTC)
Goto Top
Zeichen sind vollständig ;)
Mitglied: 76109
76109 Oct 23, 2009 at 13:33:33 (UTC)
Goto Top
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
Mitglied: 76109
76109 Oct 23, 2009 at 13:37:27 (UTC)
Goto Top
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
Member: KikiMiki
KikiMiki Oct 23, 2009 at 13:43:04 (UTC)
Goto Top
@ Didi
Zeichen sind alle da
War nur copy-paste Fehler.....
;)

Es geht ja alles, nur Send-key nicht ;)
Mitglied: 76109
76109 Oct 23, 2009 at 13:48:18 (UTC)
Goto Top
Hallo KikiMiki!

Achso, stehe ich irgenwie auf der Leitung? Das anzeigen geht nur das senden nicht?

Gruß Dieter
Mitglied: 76109
76109 Oct 24, 2009 at 07:45:00 (UTC)
Goto Top
Hallo KikiMiki!

Wieso verwendest Du anstelle von SendKey Alt+S nicht einfach die Anweisung Send mit oder ohne Display?
.Display
.Send

Gruß Dieter
Member: KikiMiki
KikiMiki Oct 26, 2009 at 10:10:41 (UTC)
Goto Top
Hallo Didi,

wie meinst du das?
Mitglied: 76109
76109 Oct 26, 2009 at 10:55:53 (UTC)
Goto Top
Hallo KikiMiki!

Mhm, wie ich das meine, sieht man doch eigentlich am letzten Codeface-smile

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
GermanQuestionBatch, ShellDevelopment
Hotly discussed
AlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment