Hallo zusammen,
ich muss hier für die Firma wieder ein "Klickerscript" zusammenbasteln. Ich muss folgendes machen:
Wir müssen Formulare in Outlook verteilen. Normalerweise kommen diese Formulare vom Server, allerdings gibts da bei uns ein Problem (Die Formulare werden leider nicht automatisch verteilt).
So hab ich mich entschieden, das ganze per Script zu lösen....
MIt dem Script mache ich praktisch folgendes:
- Outlook öffnen
- Extras auswählen
- Optionen auswählen
- Weitere auswählen
- Formulare auswählen
- Benutzerformulare auswählen
- Installieren auswählen
- Pfad eingeben
- OK klicken
- Installieren auswählen
- Pfad eingeben
- OK klicken
- und dann alles wieder zumachen
So, das ganze funktioniert auch schon wirklich einwandfrei. Nur hab ich das Problem, dass es vorkommen kann, dass sich ein User an mehrern Rechner anmeldet. Somit würde das Script ihm diese Formulare nochmals installieren. Und hier erscheint dann eine Meldung, die ich abfangen will (Ich hab´s im Script mal hinterlegt)..
Wenn praktisch diese Meldung kommen sollte, soll nichts passieren (Also, ich will praktisch immer mit ESC rausgehen)..
Leider funktioniert meine "If-Abfrage" nicht richtig. Könntet Ihr mir hier bitte helfen? Was mache ich da falsch?
Anbei mein Script..
Vielen Dank, und viele Grüße
Run("C:\Programme\Microsoft Office\OFFICE11\OUTLOOK.EXE")
WinWait("Posteingang - Microsoft Outlook")
WinActivate("Posteingang - Microsoft Outlook")
WinWait("Posteingang - Microsoft Outlook", "", 20)
Send("!x")
Sleep (1000)
Send("o")
WinWait("Optionen")
WinActivate("Optionen")
Sleep (1000)
Send("^!{TAB}")
Sleep (500)
Send("^!{TAB}")
Sleep (500)
Send("^!{TAB}")
Sleep (500)
Send("^!{TAB}")
Sleep (500)
Send("^!{TAB}")
Sleep (500)
Send("!w")
Sleep (1000)
WinWait("Erweiterte Optionen")
WinActivate("Erweiterte Optionen")
Send("!u")
Sleep (1000)
Send("!f")
Sleep (1000)
Send("!i")
Sleep (1000)
Send("\\server1\f$\vorlagen\ArchiveForm.cfg")
Sleep (1000)
Send("!f")
Sleep (2000)
Send("{Enter}")
Hier erscheint nun dieser Text..!! Falls dieser Text erscheint, soll das Script hier weitermachen, ansonsten weiter unten...
;$text = "&Diese Bibliothek enthält bereits eine Version dieses Formulars&"
;If $text = WinGetTitle("&Diese Bibliothek enthält bereits eine Version dieses Formulars& -", "") Then
;WinGetTitle = ("&Diese Bibliothek enthält bereits eine Version dieses Formulars&")
;Send("!n")
;Sleep (300)
;Send("{ESC}")
;Sleep (300)
;Send("{ESC}")
;Sleep (300)
;Send("{ESC}")
;Sleep (300)
;Send("{ESC}")
;Sleep (300)
;Send("{ESC}")
;Sleep (300)
;Send("{ESC}")
;Sleep (300)
;Exit
Und hier sollte die normale Installation weitergehen, falls das Ding noch nicht installiert ist.
Sleep (5000)
Send("!i")
Sleep (1000)
Send("\\server1\f$\vorlagen\ShowForm.cfg")
Sleep (1000)
Send("!f")
Sleep (2000)
Send("{Enter}")
Sleep (5000)
Send("!s")
Sleep (1000)
Send("{Enter}")
Sleep (1000)
Send("{TAB 18}")
Sleep (1000)
Send("{Enter}")
Sleep (1000)
Send("{TAB 7}")
Sleep (1000)
Send("{Enter}")
Sleep (1000)