Sie sind hier: Home | News | Software | Tutorial AutoIt Teil 2: Outlook-Express-Sicherungen automatisch einspielen

Tutorial AutoIt Teil 2: Outlook-Express-Sicherungen automatisch einspielen

Tutorial AutoIt Teil 2: Outlook-Express-Sicherungen automatisch einspielen




CODE:
If Msgbox (4,"Outlook-Express-Daten überschreiben","Sollen alle Konten, Regeln, Adressen und E-Mails von Outlook Express durch die Sicherungen ersetzt werden?",10)=7 Then Exit


;-------------- Regeln und Konten in die Registry schreiben -----------
RegDelete ("HKEY_CURRENT_USERSoftwareMicrosoftInternet Account Manager")
RegDelete ("HKEY_CURRENT_USERIdentities")

Run ("regedit /s c:OEBackupOEConfig.reg")
Run ("regedit /s c:OEBackupKonten.reg")

;-------------- Adressbuch importieren ------------

Run ("C:ProgrammeOutlook Expresswab.exe")
WinWaitActive ("Adressbuch","&Namen eingeben oder auswählen:")

If WinWaitActive ("Adressbuch","Das Adressbuch ist derzeit nicht das Standardprogramm",1)=1 Then
send ("{ldelim}Enter{rdelim}")
endif
Send ("!d")
Send ("i")
Send ("{ldelim}Enter{rdelim}")
Send ("C:OEBackupAdressen.wab")
Send ("{ldelim}Enter{rdelim}")
WinWaitActive ("Adressbuch","Der Importvorgang wur")
Send ("{ldelim}Enter{rdelim}")
Send ("!{ldelim}F4{rdelim}")

;-------------- E-Mail-Dateien zurück kopieren ----------

;Wizard abschalten:
RegWrite ("HKEY_CURRENT_USERSoftwareMicrosoftInternet Connection Wizard","Completed","REG_BINARY","01000000")


Run ("C:ProgrammeOutlook Expressmsimn.exe")
WinWaitActive ("Outlook Express")
sleep (3000)

Opt("WinTitleMatchMode", 4)


;Schleife, um alle Meldungen wegzudrücken
Do

;Falls nach Passwort gefragt wird:
If WinActive ("Anmeldung","&Benutzername")=1 Then send ("{ldelim}ESC{rdelim}")
;Falls nach Online-Modus gefragt wird / E-Mails heruntergeladen werden sollen:
If WinActive ("classname=#32770")=1 Then Send ("{ldelim}ESC{rdelim}n")

Until WinActive ("classname=Outlook Express Browser Class")


;Outlook Express schließen:
WinClose ("classname=Outlook Express Browser Class")



;Maßnahme gegen das Sende/Empfang-Fenster nach dem Beenden:
Do

If WinExists ("classname=#32770") Then
send ("{ldelim}ESC{rdelim}")
EndIf
Until ProcessExists ("msimn.exe")=0


$UserID = RegRead ("HKEY_CURRENT_USERIdentities","Default User ID")

$Pfad = @UserProfileDir & "Lokale Einstellungen" & "Anwendungsdaten" & "Identities" & "" & $UserID & "MicrosoftOutlook Express"

Filecopy ("C:OEBackup*.dbx", $Pfad,1)



MsgBox(0,"Fertig","Alle Konten, Regeln, Adressen und E-Mails wurden zurück kopiert.",5)

Seite 6 / 6

Weitere Informationen

Wie geht's weiter? Zu diesem Thema haben wir eine redaktionelle Übersicht erstellt. Sie finden das Special zu Browser & Mailer hier.

Links zum Thema