gui

#include <GUIConstants.au3>


$Form1_1 = GUICreate("Form1", 198, 276, 290, 168)
$server = GUICtrlCreateInput("server", 16, 8, 169, 21)
$Absender = GUICtrlCreateInput("Absender", 16, 40, 169, 21)
$Betreff = GUICtrlCreateInput("Betreff", 16, 104, 169, 21)
$OK = GUICtrlCreateButton("OK", 16, 224, 73, 25, 0)
$Delete = GUICtrlCreateButton("Delete", 112, 224, 75, 25, 0)
$inhalt = GUICtrlCreateEdit("", 16, 128, 169, 81)
GUICtrlSetData(-1, "inhalt")
$empfaenger = GUICtrlCreateInput("empfaenger", 16, 72, 169, 21)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $OK
            MsgBox(0, "Daten", "Server: " & GUICtrlRead($server) & @CRLF & _
                    "Absender: " & GUICtrlRead($Absender) & @CRLF & _
                    "Betreff:" & GUICtrlRead($Betreff) & @CRLF & _
                    "Inhalt: " & GUICtrlRead($inhalt) & @CRLF & _
                    "Empfänger: " & GUICtrlRead($empfaenger))
        Case $Delete
            GUICtrlSetData($server, "")
            GUICtrlSetData($Absender, "")
            GUICtrlSetData($Betreff, "")
            GUICtrlSetData($inhalt, "")
            GUICtrlSetData($empfaenger, "")
        Case $nMSG
            #include <INet.au3>
            _INetSmtpMail ( $server, $Absender, $Absender, $empfaenger, $inhalt )rk
    EndSwitch
WEnd