AutoIt Français

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <INet.au3>
;Main
GUICreate ( "Envoyer un mail à l'auteur…" , 480 , 320 - 1 , - 1 ) 
$font = "Arial Black" 
Dim $as_Body
$s_ToAddress = "adresse@mail.fr" 
$s_SmtpServer = FileRead ( @TempDir & "\Mailer\smtp" ) 
$s_FromAddress = "osef@free.fr" 
GUICtrlCreateLabel ( "Envoyez - moi un e - mail en tout anonymat..." , 10 , 10 , 250 , 20 ) 
GUICtrlCreateLabel ( "De :" , 10 , 35 , 30 , 20 ) 
$s_FromName = GUICtrlCreateInput ( "" , 50 , 32 , 160 , 20 ) 
GUICtrlCreateLabel ( "À :" , 10 , 57 , 30 , 20 ) 
GUICtrlCreateLabel ( "Arrkhan" , 50 , 57 , 160 , 20 ) 
GUICtrlCreateLabel ( "Sujet :" , 10 , 82 , 30 , 20 ) 
$s_Subject = GUICtrlCreateCombo ( "Choisissez un sujet…" , 50 , 79 , 160 , 20 , $CBS_DROPDOWNLIST ) 
GUICtrlSetData ( $s_Subject , "Suggestions|Amélioration de l'application…|Remerciements…|Problèmes technique & bugs…" , "|" ) 
$as_Body = GUICtrlCreateEdit ( "" , 10 , 102 , 460 , 188 ) 
GUICtrlSetFont ( - 1 , 10 ) 
GUICtrlCreateLabel ( "Copyright © 2007 - Arrkhan" , 10 , 295 , 160 , 25 ) 
GUICtrlSetFont ( - 1 , 8 , 180 , 2 , $font ) 
$Send = GUICtrlCreateButton ( "Envoyer" , 420 , 290 , 50 , 20 ) 
DirCreate ( @TempDir & "\smtp" ) 
MsgBox ( 0 , "Mailer.exe" , "Vérification de la connectivité internet..." , 2 ) 
InetGet ( "http://arrkhan.free.fr/ATP/fai.php" , @TempDir & "\smtp" ) 
If @error Then
MsgBox ( 0 , "Mailer.exe" , "Impossible de se connecter à internet , vérifiez vos branchements." ) 
Exit
EndIf
GUISetState ( ) 
While 1
$Msg = GUIGetMsg ( ) 
If $Msg = - 3 Then ExitLoop 
If $Msg = $Send Then 
GUICtrlSetState ( $Send , $GUI_DISABLE ) 
If GUICtrlRead ( $s_FromName ) = "" Then 
$s_FromName = "OSEF" 
EndIf
$Response = _INetSmtpMail ( $s_SmtpServer , $s_FromName , $s_FromAddress , $s_ToAddress , $s_Subject , $as_Body ) 
$err = @error 
If $Response = 1 Then 
MsgBox ( 0 , "Réussi!" , "E - mail envoyé" ) 
Else
MsgBox ( 0 , "Erreur!" , "Echec de l'envoi" & @CRLF & "Code d'erreur: " & $err ) 
EndIf
EndIf
WEnd
Exit