Hallo zusammen,
mein Script ist ja eigentlich schon fertig aber nun sehe ich da ein kleinen Fehler:
Wenn ich erst die Archivedatei wähle und danach ein Postfach schreibt er mir dies nicht ins Logfile
Zudem funktioniert die Clearfunktion nicht mehr.
Ich hab die Case anweißung geändert (in If)
Funktioniert aber dennoch net:
Spoiler anzeigen
#include <GuiConstants.au3>
#include <GuiCombo.au3>
#Include <GuiEdit.au3>
#Include <Array.au3>
Dim $Label, $Input, $Btn_Show, $Btn_Hide, $Combo, $Btn_Exit, $msg, $ret
[/autoit] [autoit][/autoit] [autoit]FileDelete(@UserName & " Postfaecher.txt")
[/autoit] [autoit][/autoit] [autoit];Hauptfenster erstellen
GUICreate("Outlook 2003 Konfigurationsassisten von xxxxxxxx", 405, 420)
GUICtrlCreateLabel("Outlook 2003 Konfigurationsassisten", "15", "15")
GUICtrlCreateLabel("von xxxxxxx-xxxxx", "15", "30")
GUICtrlCreateLabel("V.1.2", "360", "10")
;HM-Logo
GUICtrlCreatePic("xxxlogo.jpg", 110, 55, 193, 40)
If Not FileExists("xxxxxlogo.jpg") Then
GUICtrlCreateLabel("" & @CRLF & " xxxxxxxxxxxxx" & @CRLF & "", 110, 55, 190, 40)
GUICtrlSetBkColor(-1, 0xcc0033)
GUICtrlSetColor(-1, 0xffffff)
EndIf
;Labels
GUICtrlCreateLabel("Es werden nun folgende Einstellungen für Sie übernommen:", "15", "114", "290")
GUICtrlCreateLabel("UserName:", "15", "138", "80")
$username = GUICtrlCreateLabel(@UserName, 80, 138, 120, 16)
GUICtrlCreateLabel("Server:", "15", "155", "90")
$server = GUICtrlCreateLabel("xxxxxxxxxxxx", "80", "155", "150")
GUICtrlCreateLabel("Postfächer:", "37", "185", "90")
GUICtrlCreateLabel("Ihre Auswahl:", "225", "185", "90")
$Combo = GUICtrlCreateList("", 37, 200, 150, 120)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];~ Inhalt der ComboBox für Postfächer
$Postfaecher = FileRead("Postfaecher.txt")
GUICtrlSetData($Combo, $Postfaecher)
$Btn_Add = GUICtrlCreateButton("+", 196, 225, 20, 20)
$Btn_Del = GUICtrlCreateButton("-", 196, 255, 20, 20)
$text_I = GUICtrlCreateList("", 225, 200, 150, 120,)
GUICtrlCreateLabel("Archive Datei:", "15", "335", "90")
$archivedat = GUICtrlCreateInput("", "85", "332", "150")
$durchsuchen = GUICtrlCreateButton("Durchsuchen", "245", "330", "80")
$archivclear = GUICtrlCreateButton("löschen", "332", "330", "50")
;Ok-Button erstellen
$ok = GUICtrlCreateButton("OK", "112", "370", "80")
;Abbrechen-Button erstellen
$cancel = GUICtrlCreateButton("Abbrechen", "220", "370", "80")
Global $status = 0
GUICtrlCreateLabel("© xxxxx-xxxxxxxxxx", "111", "396", "420")
GUISetState()
$status1 = 0
$status2 = 0
$statusarchiv = 0
While 1
$msg = GUIGetMsg()
If $msg = $cancel Then
FileDelete(@UserName & " Postfaecher.txt")
Exit
EndIf
If $msg = $ok Then ExitLoop
If $msg = $Btn_Del Then
$status = 0
GUICtrlSetData($text_I, "")
FileDelete(@UserName & " Postfaecher.txt")
EndIf
If $msg = $Btn_Add Then
GUICtrlSetData($text_I, GUICtrlRead($Combo))
FileWrite(@UserName & " Postfaecher.txt", GUICtrlRead($Combo) & @CRLF)
EndIf
If $msg = $durchsuchen Then
$durchsuchen1 = FileOpenDialog("","Z:\","PST Dateien (*.pst)")
GUICtrlSetData($archivedat,$durchsuchen1)
$statusarchiv = 1
If @error Then ContinueLoop
EndIf
If $msg = $archivclear Then
GUICtrlSetData($archivedat,"")
$statusarchiv = 0
EndIf
WEnd