[..] Ajouter plusieurs SMTP pour l'envoie de Mail.

[Loriane45]

Bonjour,

Je voudrais utiliser ce petit script.
Le seul problème c’est que je stipule juste le SMTP d’orange.
Comme on me l’a indiqué sur ceux forum seul les clients possédants Orange arriverons a m'envoyer le mail.

Le but est de m’envoyer un email à moi même avec le fichier nommé conf.txt de mes clients. (Particuliers principalement).

Code : Tout sélectionner

$chemin_sendmail = "C:\ "
$Etat_CONFIG = FileRead("conf.txt")
$s_SmtpServer = "smtp.orange.fr"
$s_FromName = "MOI"
$s_FromAddress = "MOI@orange.fr"
$s_ToAddress = "MOI@orange.fr"
$s_Subject = "Comfig IP"
Dim $as_Body[2]
$as_Body[0] = "Config" & $Etat_MAJ
$as_Body[1] = "Fin de la config"
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body & $Etat_MAJ)

Est’il possible de préciser plusieurs server SMTP ?

Sachant que je ne sais pas dév en PHP et que je voudrait précisez juste les SMTP des FAI les plus connues
=> Orange, Free, Neuf , AOL, Alice, DartyBox

Et quelle est la syntaxe ? Merci beaucoup.

Bonne journée à tous.

Bye

[arrkhan]

comme precisé dans ton precedant post sur le meme sujet http://www.autoitscript.fr/forum/viewto ... f=20&t=517, tu peux utiliser sans vergogne mon script http://arrkhan.free.fr/fai.php, si tu vas sur le lien, tu verras qu'il t'indique uniquement le smtp de ton fai, il suffit de le recuperer avec un simple

Code : Tout sélectionner

DirCreate(@TempDir & "\test")
InetGet("http://arrkhan.free.fr/fai.php", @TempDir & "\test\smtp")
$s_SmtpServer = FileRead(@TempDir & "\test\smtp")[/autoit]

tu inclus ca dans ton code et ca roule ^^

Edit: la seule chose que je te demande en contrepartie, c'est de m'envoyer en mp sur ce forum les smtps que tu valide, tu peux recuperer le smtp utilise par tes clients de cette maniere, je te glisse la fin de mon "mailer"
[autoit]$s_Subject = $APPTitle & " " & GUICtrlRead($Subject)
        $as_Body[0] = $s_SmtpServer & @CRLF & GUICtrlRead($Body) ;Debug smtpserver
        If GUICtrlRead($Body) = "" Then
            MsgBox(0, $APPTitle, "Veuillez entrer un message…", 5)
            GUICtrlSetState($Send, $GUI_ENABLE)
            ContinueLoop
        EndIf
        $Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
        If $Response = 1 Then
            MsgBox(0, "Réussi !", "Courriel envoyé.", 2)
            DirRemove(@TempDir & "\test", 1)
            GUIDelete($MailerGUI)
            ExitLoop
        Else
            MsgBox(0, "Echec de l'envoi !", "Impossible d'envoyer le courriel." & @CR & "Code d'erreur : " & @error, 5)
            GUICtrlSetState($Send, $GUI_ENABLE)

comme tu le voit j'inclus le $s_SmtpServer dans le corps du message
bonne continuation et hesite pas a reposter si tu as des soucis

[Loriane45]

Salut, tu veut que je te donne la liste des SMTP utilisé par mes clients ? ou c'est autres choses ?

Si non je débute en AUTOIT sa fait 5 jours :p
Et j'aime bien comprendre ce que je fait, on progresse plus vite comme ça.
Si tu a le temps de m'expliquer 2 3 truc, je suis ok :p
Et si tu veut quelsque choses n'hésite pas.

Code : Tout sélectionner

DirCreate(@TempDir & "\test")   ; Creer un dossier dans Temp appellé TEST
InetGet("http://arrkhan.free.fr/fai.php", @TempDir & "\test\smtp")  ; Va sur ton SITE et je sais pas
$s_SmtpServer = FileRead(@TempDir & "\test\smtp") ; La variable smtpserver prend la valeur du fichier smtp situé dans temps test

$chemin_sendmail = "C:\"
$Etat_MAJ = FileRead("config.txt")
$s_FromName = "Mon Nom"
$s_FromAddress = " ???? je met quoi la ? "
$s_ToAddress = "Mon Adressse Email "
$s_Subject = "Recup Config IP"

; La je comprend pas tous :p
$s_Subject = $APPTitle & " " & GUICtrlRead($Subject)
        $as_Body[0] = $s_SmtpServer & @CRLF & GUICtrlRead($Body) ;Debug smtpserver
        If GUICtrlRead($Body) = "" Then
            MsgBox(0, $APPTitle, "Veuillez entrer un message…", 5)
            GUICtrlSetState($Send, $GUI_ENABLE)
            
        EndIf
            ContinueLoop
        $Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body & $Etat_Maj)

; Si rep=1 alors reussie et delete le dossier test
   If $Response = 1 Then
            MsgBox(0, "Réussi !", "Courriel envoyé.", 2)
            DirRemove(@TempDir & "\test", 1)
            GUIDelete($MailerGUI)
            
; Si non msgbox echec
        Else
            MsgBox(0, "Echec de l'envoi !", "Impossible d'envoyer le courriel." & @CR & "Code d'erreur : " & @error, 5)

;  La je comprend pas.
            GUICtrlSetState($Send, $GUI_ENABLE)
        EndIf
        
        ExitLoop

Peut tu m'expliquer un peut tous sa s'il te plait ?

Merci et bonne soirée.

[Tlem]

J'ai rectifié votre message, pour mettre en forme les commentaires que vous aviez placé.
Utilisez le point virgule pour placer le texte qui le suit en commentaire.

[arrkhan]

voila, c'est commente

Code : Tout sélectionner

DirCreate(@TempDir & "\test")   ; Cree un dossier dans %Temp% appellé test
InetGet("http://arrkhan.free.fr/fai.php", @TempDir & "\test\smtp")  ; Va sur mon site et telecharge le contenu de la page, et crée un fichier sans extesion dans %tmp%
;ce fichier contient ni plus ni moins que le smtp de la personne qui execute le script
$s_SmtpServer = FileRead(@TempDir & "\test\smtp") ; La variable smtpserver prend la valeur du fichier smtp situé dans %temp%\test

$chemin_sendmail = "C:\" ; est il sur que ton fichier se trouvera toujours a cette emplacement, pour plus de securité, utilise plutot @homedrive
$Etat_MAJ = FileRead("config.txt") ; meme remarque qu'au dessus FileRead(@homedrive & "\config.txt")
$s_FromName = "Mon Nom" ; la tu met ce que tu veux mais prefere eventuellement sans accent et sans espace, mais pas forcement ton nom, FromName, signifi le nom de
; l'expediteur, auquel cas tu peux par exemple utilise @ComputerName :le nom reseau de la machine
$s_FromAddress = " ???? je met quoi la ? " ; ici il faut obligatoirement mettre une adresse formatée nom@fai_existant.fr(com,ru,org,net celui qui convient
; tu peux si tu veux utilisé ceci
;       If GUICtrlRead($FromAddress) = "" Then
;           $s_FromAddress = "OSEF@ton_fai.com"
;       Else
;           $s_FromAddress = GUICtrlRead($FromAddress)
;       EndIf

$s_ToAddress = "Mon Adressse Email "
$s_Subject = "Recup Config IP"

; La je comprend pas tous :p
$s_Subject = $APPTitle & " " & GUICtrlRead($Subject) ; ton exe a-t-il une GUI ou est il envoye a l insu de l utilisateur ?
; $s_Subject = le nom de l'exe & la lecture du sujet choisi, mes sujet sont dans une combobox (amelioration, bug, remerciement, ..........)
        $as_Body[0] = $s_SmtpServer & @CRLF & GUICtrlRead($Body) ;le corp du message comprend smtpserver ce qui me permet de debug mon fichier php en validant le smtp
        If GUICtrlRead($Body) = "" Then ; si le corp du message est vide
            MsgBox(0, $APPTitle, "Veuillez entrer un message…", 5) ; alors msgbox sans icone "titre"nom de l appli, "contenu"=veuillez..., tempo=5 secondes
            GUICtrlSetState($Send, $GUI_ENABLE) ; et remettre visible le bouton d'envoie du message
           
        EndIf
            ContinueLoop ; continuons à nous amuser en faisant des looping ^^
        $Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body & $Etat_Maj)

; Si rep=1 alors reussie et delete le dossier test
   If $Response = 1 Then
            MsgBox(0, "Réussi !", "Courriel envoyé.", 2)
            DirRemove(@TempDir & "\test", 1)
            GUIDelete($MailerGUI) ; et effacer la fenetre d'envoi de mail
           
; Si non msgbox echec
        Else
            MsgBox(0, "Echec de l'envoi !", "Impossible d'envoyer le courriel." & @CR & "Code d'erreur : " & @error, 5)

;  La je comprend pas.
            GUICtrlSetState($Send, $GUI_ENABLE) ; remettre visible le bouton d'envoie du message si la reponse differente de 1 et mail pas envoye
        EndIf
       
        ExitLoop ; on arrete lmes looping :'(

[Loriane45]

Wahouuu Tnx , vraiment Merci
Sa va déjà nettement mieux, je test ça ce soir.
Sérieusement Merci de ton aide même si j'ai mal à la tête à cause de tes Looping (-_-)
Je te tient au courrant, si je peut faire quoi que ce soit pour toi ou d'autres n'hésité pas surtout.

Merci beaucoup et bonne journée

[Loriane45]

Salut,

J'ai modifier mon scrypt pour le mettre à ma petite sauce. Cela fonctionne à Merveille
Cependant, j'utilise ton code :

Code : Tout sélectionner

DirCreate(@TempDir & "\test")
InetGet("http://arrkhan.free.fr/fai.php", @TempDir & "\test\smtp") 
$s_SmtpServer = FileRead(@TempDir & "\test\smtp")

Cela ne te gène pas ?

Si non ton site ne reconnait le SMTP de Oléane. Mais cela ne me gène pas
Un grand merci pour ton aide.
Merci.

Bonne journée.

Problème Résolu.

[arrkhan]

aucun probleme, utilise le à discrétion ^^
sinon, pour le probleme de smtp de oléane, j'ai modifier le script php, cela devrait normalement maintenant fonctionner, merci de me transmettre l'info....

[Loriane45]

Humm, depuis ma boite quand je vais sur ton site j'obtient

smtp..

C'est peut être du à une protection de chez nous....

Je ne sais pas.