AutoIt Français

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <File.au3>
#include <Inet.au3>


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("emaileur au3 ", 634, 511, 194, 126)
$e = GUICtrlCreateEdit("", 8, 72, 617, 393)
GUICtrlSetData(-1, "")
$Input1 = GUICtrlCreateInput("", 8, 40, 617, 21)
$Button1 = GUICtrlCreateButton("ajouter un contact", 8, 8, 299, 25)
$Button2 = GUICtrlCreateButton("modifier ses informations", 328, 8, 299, 25)
$Button3 = GUICtrlCreateButton("envoyer", 8, 472, 619, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $infosarray = ""
Global $contactarray = ""
If FileExists(@ScriptDir & "/contacts.au3mailer") = 0 Then
    _FileCreate(@ScriptDir & "/contacts.au3mailer")
EndIf
If FileExists(@ScriptDir & "/infos.au3mailer") = 0 Then
        $infosserveur = InputBox("infos", "entrer l'adresse de votre serveur : ")
    FileWrite(@ScriptDir & "/infos.au3mailer", $infosserveur & @crlf)
    $infosnom = InputBox("infos", " entrer votre nom/pseudo : ")
    FileWrite(@ScriptDir & "/infos.au3mailer", $infosnom & @crlf)
    $infosemailtoi = InputBox("infos", " entrer votre adresse email : ")
    FileWrite(@ScriptDir & "/infos.au3mailer", $infosemailtoi)
EndIf
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $newcontact = InputBox("nouveau contact", "entrer l'adresse email de votre nouveau contacts, il sera ajouter aux autres :")
        $test = FileRead(@ScriptDir & "/contacts.au3mailer")
If $test = "" Then
FileWrite(@ScriptDir & "/contacts.au3mailer", $newcontact)
Else
    FileWrite(@ScriptDir & "/contacts.au3mailer",@CRLF & $newcontact)
EndIf
case $Button2
    FileDelete(@ScriptDir & "/infos.au3mailer")
    _FileCreate(@ScriptDir & "/infos.au3mailer")
        $infosserveur = InputBox("infos", "entrer l'adresse de votre serveur : ")
    FileWrite(@ScriptDir & "/infos.au3mailer", $infosserveur & @crlf)
    $infosnom = InputBox("infos", " entrer votre nom/pseudo : ")
    FileWrite(@ScriptDir & "/infos.au3mailer", $infosnom & @crlf)
        $infosnom = InputBox("infos", " entrer votre nom/pseudo : ")
    FileWrite(@ScriptDir & "/infos.au3mailer", $infosnom & @crlf)
$infosserveur = InputBox("infos", "entrer l'adresse de votre serveur : ")
    FileWrite(@ScriptDir & "/infos.au3mailer", $infosserveur & @crlf)
    $infosemailtoi = InputBox("infos", " entrer votre adresse email : ")
    FileWrite(@ScriptDir & "/infos.au3mailer", $infosemailtoi)
Case $Button3
_FileReadToArray(@ScriptDir & "/infos.au3mailer", $infosarray)
_FileReadToArray(@ScriptDir & "/contacts.au3mailer", $contactarray)
$sujet = GUICtrlRead($Input1)
$corps = GUICtrlRead($e)

For $i = 1 To $contactarray[0] step 1
$iferor =   _INetSmtpMail($infosarray[0],$infosarray[1],$infosarray[2],$contactarray[$i],$sujet,$corps)
$err = @error
If $iferor <> 1 Then
    MsgBox(0,"erreur",  "erreur "& $err)
    Exit
EndIf
Next
MsgBox(0, "fini", "l'action entreprise est terminee")
            EndSwitch
WEnd