Button soll Dateiwahlfenster öfnen , tuts aber net

  • Ich schon wieder , ich bin gerade etwas am verzweifeln :( wil ein script das emails sendet machen , (er heist zwar noch windows live auto mailer , der name kommt aber nur weil ich keinen gefunden habe , ist kein bot ;D )

    hier mal das stück script:

    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****

    [/autoit][autoit][/autoit][autoit]

    #AutoIt3Wrapper_outfile=automail.exe

    [/autoit][autoit][/autoit][autoit]

    #AutoIt3Wrapper_Res_Fileversion=0.0.0.2

    [/autoit][autoit][/autoit][autoit]

    #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y

    [/autoit][autoit][/autoit][autoit]

    #AutoIt3Wrapper_Res_LegalCopyright=Jeahaha

    [/autoit][autoit][/autoit][autoit]

    #AutoIt3Wrapper_Res_Language=1031

    [/autoit][autoit][/autoit][autoit]

    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    #include

    [/autoit][autoit][/autoit][autoit]

    #include

    [/autoit][autoit][/autoit][autoit]

    #include

    [/autoit][autoit][/autoit][autoit]

    #include

    [/autoit][autoit][/autoit][autoit]

    #include

    [/autoit][autoit][/autoit][autoit]

    #include

    [/autoit][autoit][/autoit][autoit]

    #Region ### START Koda GUI section ### Form=c:\users\timo2\desktop\programieren\autoit\win live auto mail\form1.kxf

    [/autoit][autoit][/autoit][autoit]

    $Form1 = GUICreate("E-mailer", 422, 212, 342, 126)

    [/autoit][autoit][/autoit][autoit]

    $email1 = GUICtrlCreateInput("", 32, 0, 121, 21)

    [/autoit][autoit][/autoit][autoit]

    $Label1 = GUICtrlCreateLabel("@", 160, 0, 20, 24)

    [/autoit][autoit][/autoit][autoit]

    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

    [/autoit][autoit][/autoit][autoit]

    $email2 = GUICtrlCreateInput("", 184, 0, 57, 21)

    [/autoit][autoit][/autoit][autoit]

    $Label2 = GUICtrlCreateLabel("An:", 0, 0, 28, 24)

    [/autoit][autoit][/autoit][autoit]

    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

    [/autoit][autoit][/autoit][autoit]

    $Text = GUICtrlCreateEdit("", 0, 24, 417, 153)

    [/autoit][autoit][/autoit][autoit]

    GUICtrlSetData(-1, "")

    [/autoit][autoit][/autoit][autoit]

    $Button1 = GUICtrlCreateButton("Senden", 8, 184, 75, 25, $WS_GROUP)

    [/autoit][autoit][/autoit][autoit]

    $Button2 = GUICtrlCreateButton("Optionen", 344, 184, 75, 25, $WS_GROUP)

    [/autoit][autoit][/autoit][autoit]

    $Button3 = GUICtrlCreateButton("Addressen", 144, 184, 139, 25, $WS_GROUP)

    [/autoit][autoit][/autoit][autoit]

    $Button4 = GUICtrlCreateButton("Auswählen", 248, 0, 171, 25, $WS_GROUP)

    [/autoit][autoit][/autoit][autoit]

    GUISetState(@SW_SHOW)

    [/autoit][autoit][/autoit][autoit]

    #EndRegion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    $settings = "settings.properties"

    [/autoit][autoit][/autoit][autoit]

    FileOpen( $settings )

    [/autoit][autoit][/autoit][autoit]

    $smtpserver = FileReadLine( $settings , 1 )

    [/autoit][autoit][/autoit][autoit]

    $smtplogin = FileReadLine( $settings , 2 )

    [/autoit][autoit][/autoit][autoit]

    $smtppasswort = FileReadLine( $settings , 3 )

    [/autoit][autoit][/autoit][autoit]

    $vonadresse = FileReadLine( $settings , 4 )

    [/autoit][autoit][/autoit][autoit]

    $adressenordner = FileReadLine( $settings , 5 )

    [/autoit][autoit][/autoit][autoit]

    $vonname = FileReadLine( $settings , 6 )

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    $an1 = GUICtrlRead( $email1 )

    [/autoit][autoit][/autoit][autoit]

    $an2 = GUICtrlRead( $email2 )

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    While 1

    [/autoit][autoit][/autoit][autoit]

    $nMsg = GUIGetMsg()

    [/autoit][autoit][/autoit][autoit]

    Switch $nMsg

    [/autoit][autoit][/autoit][autoit]

    Case $GUI_EVENT_CLOSE

    [/autoit][autoit][/autoit][autoit]

    Exit

    [/autoit][autoit][/autoit][autoit]

    Case $Button1

    [/autoit][autoit][/autoit][autoit]

    Case $Button2

    [/autoit][autoit][/autoit][autoit]

    Run( "optionen.exe" )

    [/autoit][autoit][/autoit][autoit]

    Exit

    [/autoit][autoit][/autoit][autoit]

    Case $Button3

    [/autoit][autoit][/autoit][autoit]

    Run( "adressen.exe" )

    [/autoit][autoit][/autoit][autoit]

    Case $Button4

    [/autoit][autoit][/autoit][autoit]

    $addr = FileOpenDialog( "Addresse auswählen" , @ScriptDir & "adressen" , ".txt" )

    [/autoit][autoit][/autoit][autoit]

    FileOpen( $addr )

    [/autoit][autoit][/autoit][autoit]

    $1 = FileReadLine( $addr , 1 )

    [/autoit][autoit][/autoit][autoit]

    $2 = FileReadLine( $addr , 2 )

    [/autoit][autoit][/autoit][autoit]

    GUICtrlSetData( $email1 , $1 )

    [/autoit][autoit][/autoit][autoit]

    GUICtrlSetData( $email2 , $2 )

    [/autoit][autoit][/autoit][autoit]

    EndSwitch

    [/autoit][autoit][/autoit][autoit]

    WEnd

    [/autoit]