c'est un logiciel qui envoi des email d'informations a une liste de contacts.
sa peut servir pour un abonnement à un site ou a une entreprise.des trucs du genre
► Afficher le texte
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