[R] Envoie d'email

[DJSIR]

Fonctionne chez moi avec ton SMTP et les SMTP suivants

smtp.orange.fr > adresse@orange.fr
smtp.free.fr > adresse@free.fr
smtp.live.com > adresse@live.com / @live.fr / @live.ca / @hotmail.com

Pour une progress bar t'utilise GUICtrlCreateProgress

et tu m'expliquera aussi :

$Texte = GUICtrlCreateEdit("", 24, 176, 153, 169)
GUICtrlSetData(-1, "Texte")

Tu la créée vide et tu la remplis !

[jamesst20]

Je t'expliquerai sur MSN Sinon Pourquoi mon texte veut pas fonctionner

Merci

A+

[jamesst20]

Voila!!! J'ai Réussie

► Afficher le texte

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <INet.au3>

$Form1_1 = GUICreate("Email envoie", 229, 469, 192, 124)
$SMTP = GUICtrlCreateInput("Serveur SMTP", 24, 16, 153, 21)
$desti = GUICtrlCreateInput("Nom du Destinaire", 24, 48, 153, 21)
$Adressed = GUICtrlCreateInput("Adresse du Destinaire", 24, 80, 153, 21)
$Texte = GUICtrlCreateEdit("", 24, 176, 153, 169)
GUICtrlSetData(-1, "Texte")
$MyButton1 = GUICtrlCreateButton("Go", 48, 424, 124, 30, $BS_FLAT)
$adresser = GUICtrlCreateInput("Adresse qui recoit le message", 24, 112, 153, 21)
$sujetmess = GUICtrlCreateInput("Sujet du message", 24, 144, 153, 21)
GUISetState(@SW_SHOW)



While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

case $MyButton1
$s_SmtpServer = GUICtrlRead($SMTP)
$s_FromName = GUICtrlRead($desti)
$s_FromAddress = GUICtrlRead($Adressed)
$s_ToAddress = GUICtrlRead($adresser)
$s_Subject = GUICtrlRead($sujetmess)
$as_Body = GUICtrlRead($Texte)

$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)

$err = @error
If $Response = 1 Then
MsgBox(0, "Success!", "Mail sent")
Else
MsgBox(0, "Error!", "Mail failed with error code " & $err)
EndIf



EndSwitch
WEnd

Maintenant j'aimerais ajouter une barre de progression qui fonctionne
Aussi on peut pas envoyer de texte

Merci de votre aide

A+

Aider moi svp

ya personne qui peut m'aider? :O

[DJSIR]

Pourquoi ajouter une barre de progression alors que l'envoi du message est Instantanné ? De plus, on va pas t'aider pour ton mail bomber !

[Narmeke]

Oué, l'envoie est quasiment instantanée mais le mail peut être envoyer avec seulement la moitié du texte.. C'est pour cela qu'il vaut mieux mettre une pause de 2 secondes pour un envoie nickel sans problèmes.

Je dis cela car j'ai eu ce problème.

P.S : Le mail bomber c'est pas une bonne idée. J'en est coder un en php. Si sa vous intérresse !!

[guitarist]

Pour le post plus haut merci de rajouter la balise de code MERCI!!^^

[DJSIR]

De plus, je viens de relire le sujet, et je me suis rendu compte que l'on avait déja répondu à toutes ses questions

[jamesst20]

Bon parfait vous voulez pas m'aider.. Merci quand meme SUPER forum.

[timmalos]

jamesst, il vous arrive de vous remettre en question? Juste au hasard, faites des efforts on est pas là pour vous mettre votre programme sur un plateau. (Ou si, si vous le souhaitez je vous le fait : 500 €)

Donc vous voulez des infos? Vous ecoutez ce qu'on vous dit, et vous en TENEZ compte. Je lis qu'on vous a dejà donné des informations, donc repartez de 0 et relisez le post entier. Ensuite ecrivez quelque chose de constructif. Vous pouvez ne pas comprendre, mais ne dites pas que c'est de la faute de ceux qui essayent de vous aider.

[jamesst20]

Je suis bien daccord avec toi mes je vient de relire le poste et.. Je voit toujours pas la réponse qui me dit pourquoi le texte ne fonctionne pas..

Et avec le Sleep de deux seconde sa ne fonctionnais pas non plus.. I ldonne meme pas une seule lettre dans le texte

Merci

[jamesst20]

Bonjours a tous.. J'ai réussie pour la Progress Bar mais toujours rien pour mon Texte

Merci de votre aide

[Narmeke]

Voila ton script complet. Il est composé du script de base "Mail.au3" qui contient tous ce qui est gestion des events, interface graphique puis de "_MailFonctions.au3" qui lui contient les fonctions utile à l'envoie du mail.

Code [Mail.au3]

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#Include <inet.au3>


#Include <_MailFonctions.au3>;Fonctions mails


$Form1_1 = GUICreate("Email Sender", 229, 469, 192, 124)
$SMTP = GUICtrlCreateInput("Serveur SMTP", 24, 16, 153, 21)
$desti = GUICtrlCreateInput("Nom de l'expéditeur", 24, 48, 153, 21)
$Adressed = GUICtrlCreateInput("Email de l'expéditeur", 24, 80, 153, 21)
$Texte = GUICtrlCreateEdit("", 24, 176, 153, 169)
GUICtrlSetData(-1, "Texte")
$MyButton1 = GUICtrlCreateButton("Go", 48, 424, 124, 30, $BS_FLAT)
$adresser = GUICtrlCreateInput("Email du destinataire", 24, 112, 153, 21)
$sujetmess = GUICtrlCreateInput("Sujet du message", 24, 144, 153, 21)
GUISetState(@SW_SHOW)



While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        case $MyButton1
            $s_SmtpServer = GUICtrlRead($SMTP)
            $s_FromName = GUICtrlRead($desti)
            $s_FromAddress = GUICtrlRead($Adressed)
            $s_ToAddress = GUICtrlRead($adresser)
            $s_Subject = GUICtrlRead($sujetmess)
            $as_Body = GUICtrlRead($Texte)
            $s_AttachFiles = ""                                    ; the file you want to attach- leave blank if not needed
            $s_CcAddress = ""                                      ; address for cc - leave blank if not needed
            $s_BccAddress = ""                                     ; address for bcc - leave blank if not needed
            $s_Username = ""                                       ; username for the account used from where the mail gets sent  - Optional (Needed for eg GMail)
            $s_Password = ""                                       ; password for the account used from where the mail gets sent  - Optional (Needed for eg GMail)
            $IPPort = 25                                           ; port used for sending the mail
            $ssl = 0

            Global $oMyRet[2]
            Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
            $rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl)
            If @error Then
            MsgBox(0, "Error sending message", "Error code:" & @error & "  Rc:" & $rc)
            Else
            MsgBox( 0, "Mail Sender", "Mail Sent with success !")
            EndIf

        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd
 

Code [_MailFonctions.au3]

► Afficher le texte

Code : Tout sélectionner

;---------------------
;  Fonctions pour
;   L'envoie de mail
;---------------------
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "",$IPPort=25, $ssl=0)
    $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment ($S_Files2Attach[$x])
            Else
                $i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
                SetError(1)
                return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $Ssl Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
;Update settings
    $objEmail.Configuration.Fields.Update
; Sent the Message
    $objEmail.Send
    if @error then
        SetError(2)
        return $oMyRet[1]
    EndIf
EndFunc ;==>_INetSmtpMailCom
;
;
; Com Error Handler




Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description,3)
    ConsoleWrite("### COM Error !  Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
EndFunc ;==>MyErrFunc
;---------------------
;  Fin Fonctions pour
;   L'envoie de mail
;---------------------
 

Voilà !
Le script fonctionne très bien chez moi.

Ensuite, voici la liste des SMTP les plus courant.

Liste [SMTP]

► Afficher le texte

9 Telecom : smtp.neuf.fr
9ONLINE : smtp.9online.fr
ALICE ADSL : smtp.alice.fr , smtp.aliceadsl.fr
AOL : smtp.neuf.fr
BOUYGUES BBOX : smtp.bbox.fr
Bouygues Télécom : smtp.bouygtel.fr
CARAMAIL : smtp.lycos.co.uk
CEGETEL : smtp.cegetel.net
CLUB INTERNE : mail.club-internet.fr
DARTY BOX : smtpauth.dbmail.com
FREE : smtp.free.fr
GMAIL : smtp.gmail.com
HOTMAIL : smtp.live.com (Port 25 avec connexion SSL)
IFrance : smtp.ifrance.com
LA POSTE : smtp.laposte.net
Numéricable : smtp.numericable.fr
ORANGE : smtp.orange.fr

Et bien d'autres ...

Source : http://www.commentcamarche.net/faq/suje ... cipaux-fai

En espérant avoir pus t'aider. Le script peut être modifier à volonté après libre cours à ton imagination.

==Informations==
- Marche parfaitement lors de la compilation.
- Tu ne savais pas que la personne qui envoyer le message était l'expéditeur et non pas le déstinataire

Code : Tout sélectionner

$desti = GUICtrlCreateInput("Nom du Destinaire", 24, 80, 153, 21)
PAR
$desti = GUICtrlCreateInput("Nom de l'expéditeur", 24, 80, 153, 21)

PUIS
$desti = GUICtrlCreateInput("Nom du Destinaire", 24, 80, 153, 21)
PAR
$Adressed = GUICtrlCreateInput("Adresse de l'expéditeur", 24, 112, 153, 21)

ET ENFIN
$adresser = GUICtrlCreateInput("Adresse qui recoit le message", 24, 144, 153, 21)
PAR
$adresser = GUICtrlCreateInput("Adresse du destinataire", 24, 144, 153, 21)
 

Mais bon après si tu veux que ton script sois incompréhensible tu fais ce que tu veux !!

[jamesst20]

Ouais

En autant que sa marche

[Narmeke]

Tu peux passer en résolu !

[jamesst20]

Ces fait j'avait oublier