Banner

Home

Impressum

Kontakt

Links


Suchmaschineneintrag
Eigene Layer erstellen

MCP

Buttonnetzwerk für ein freies Internet

Add to Google

Outlook mit AutoIt fernsteuern:

Wer kennt die Problematik nicht, der PC muss neu aufgesetzt werden mit all den Anwendungen wie z.B. Office inklusive MS-Outlook!

Früher, bis Version 2003 hatte man den Vorteil, da gab es noch den Export-Assistenten, mit dem man seine Office-Konfiguration inklusive der einzelnen E-Mail-Accounts exportieren und dann in der Neuinstallation wiederherstellen konnte.

Seit Office 2007 fehlt dieses Tool und so ist man, wenn nicht gerade ein Tools eines Fremdherstellers diese Aufgabe übernehmen kann, gezwungen alles per Hand neu einzupflegen. Und das ist absolut ÄTZEND!

Aber, AutoIt sei Dank, gibt es hierfür eine sehr preisgünstige (Freeware)-Lösung!

Nachfolgend will ich Ihnen ein Beispiel an die Hand geben, dass diese lästigen Neueingaben für Sie erledigt.

SKRIPT (OUTLOOK 2003):

;Tastaturwartezeit festlegen
Opt("SendKeyDelay", 100)

;Windowswartezeit festlegen
Opt("WinWaitDelay",100)

;
Opt("WinTitleMatchMode",4)

;versteckten Text auswerten
Opt("WinDetectHiddenText",1)

;Mausbewegungen deaktivieren
Opt("MouseCoordMode",0)

;Outlook starten (64-BIT-Systeme)
run(@ProgramFilesDir & " (x86)\Microsoft Office\Office11\OUTLOOK.EXE /recycle")

;Outlook starten (32-BIT-Systeme)
run(@ProgramFilesDir & "\Microsoft Office\Office11\OUTLOOK.EXE /recycle")

;5000ms Wartezeit einfügen bis Outlook bereit ist
Sleep(5000)

;warten bis Fenster Outlook Heute erscheint
WinWait("Outlook Today - Microsoft Outlook","")
If Not WinActive("Outlook Today - Microsoft Outlook","") Then WinActivate("Outlook Today - Microsoft Outlook","")
WinWaitActive("Outlook Today - Microsoft Outlook","")

;ALT+T senden
Send("!T")

;Taste A senden
Send("A")

;Warten bis Fenster Kontoeinstellungen erscheint
WinWait("Account Settings","")
If Not WinActive("Account Settings","") Then WinActivate("Account Settings","")
WinWaitActive("Account Settings","")

;ALT+N senden
Send("!n")
Send("!n")

;Warten bis E-Mail neu Fenster erscheint
WinWait("Add New E-mail Account","")
If Not WinActive("Add New E-mail Account","") Then WinActivate("Add New E-mail Account","")
WinWaitActive("Add New E-mail Account","")

;Namen senden
Send("MAILBENUTZER")

;Taste TAB senden
Send("{TAB}")

;E-Mailadresse übergeben
Send("EMAIL@EMAIL.de")

;ALT+M senden
Send("!m")

;ALT+N senden
Send("!n")
Send("!n")

;Taste TAB 3* senden
Send("{TAB 3}")

;POP3-Informationen übergeben
Send("POP3.MAILSERVER.de")

;Taste TAB senden
Send("{TAB}")

;SMTP-Informationen übergeben
Send("SMTP.MAILSERVER.de")

;Taste TAB senden
Send("{TAB}")

;Login-Namen übergeben
Send("USERNAME")

;Taste TAB senden
Send("{TAB}")

;Login-Passwort übergeben
Send("PASSWORT")

;ALT+M senden
Send("!m")

;Warten bis Fenster erweiterte Optionen geöffnet ist
WinWait("Internet E-mail Settings","")
If Not WinActive("Internet E-mail Settings","") Then WinActivate("Internet E-mail Settings","")
WinWaitActive("Internet E-mail Settings","")

;Accountnamen festlegen
Send("Mailaccountname")

;SHIFT+TAB senden
Send("+{TAB}")

;Taste RECHTS senden
Send("{RIGHT}")

;ALT+O senden
Send("!o")

;SHIFT+TAB senden
Send("+{TAB}")

;Eingabetaste simulieren
Send("{ENTER}")

;ALT+N senden
Send("!n")

;Eingabetaste senden
Send("{ENTER}")

;Warten bis wieder das Fenster Account-Settings aktiv ist
WinWait("Account Settings","")
If Not WinActive("Account Settings","") Then WinActivate("Account Settings","")
WinWaitActive("Account Settings","")

;=========================

;Die nächsten Schritte sind nur notwendig, falls die eingehenden Mails in einen
;anderen Ordner als dem Posteingangsordner landen sollen

;ALT+F senden
Send("!f")

WinWait("New E-mail Delivery Location","")
If Not WinActive("New E-mail Delivery Location","") Then WinActivate("New E-mail Delivery Location","")
WinWaitActive("New E-mail Delivery Location","")

;Taste RECHTS 2* senden
Send("{RIGHT 2}")

;Taste NACH-UNTEN 2* senden
Send("{DOWN 2}")

;EINGABE-Taste simulieren
Send("{ENTER}")


;Warten bis das Accountsettingsfenster wieder aktiv ist
WinWait("Account Settings","")
If Not WinActive("Account Settings","") Then WinActivate("Account Settings","")
WinWaitActive("Account Settings","")

;=========================

Die Pfeiltastensteuerung bei dem vorgenannten optonalen Abschnitt muss an die jeweilige Ordnerposition angepaßt werden, je nachdem wie der Mailordner benannt wurde, in den die eingegangenen E-Mails verschoben werden sollen.

Wird der Standartordner "Posteingang" verwendet, so kann dieser Abschnitt vollkommen aus dem Skript herausgenommen werden.

©2008 Gerhard Meier - ALLE RECHTE VORBEHALTEN -
Stand:
05/17/2010 9:51