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