[R] Envoie d'email

[jamesst20]

Bonjours à tous, J'aimerais créer un Scrip qui envoie un message à l'adresse destiner. Alors j'ai tout préparer l'interface etc.. Mais je ne sais pas trop comment m'y prendre pour l'envoie du message..

J'ai fait sa pour commencer

► Afficher le texte

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("Email envoie", 229, 447, 192, 124)
$SMTP = GUICtrlCreateInput("Serveur SMTP", 24, 16, 153, 21)
$desti = GUICtrlCreateInput("Nom du Destinaire", 24, 80, 153, 21)
$Adressed = GUICtrlCreateInput("Adresse du Destinaire", 24, 112, 153, 21)
$Texte = GUICtrlCreateEdit("", 24, 208, 153, 169)
GUICtrlSetData(-1, "Texte")
$MyButton1 = GUICtrlCreateButton("Go", 48, 400, 124, 30, $BS_FLAT)
$adresser = GUICtrlCreateInput("Adresse qui recoit le message", 24, 144, 153, 21)
$portse = GUICtrlCreateInput("Le Port du Serveur", 24, 48, 153, 21)
$sujetmess = GUICtrlCreateInput("Sujet du message", 24, 176, 153, 21)
GUISetState(@SW_SHOW)






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

$SMTP = GUICtrlRead($SMTP)
$destinom = GUICtrlRead($desti)
$Adressee = GUICtrlRead($Adressed)
$receveurmessage = GUICtrlRead($adresser)
$sujet = GUICtrlRead($sujetmess)
$Texteenvoi = GUICtrlRead($Texte)
$Port = GUICtrlRead($portse)

Case $MyButton1



EndSwitch
WEnd

Merci beaucoup pour votre aide

[roselito13]

Utiliser la Section recherche un Topic a déjà était crée, Tous est dedans.

==> viewtopic.php?f=3&t=4007

[jamesst20]

Salut, Je sais mais j'obtien er

error code:1 rc:0

alors ces pour sa que je cherche a en faire un fonctionnel.

PS: le SMTP de mon fournisseur bell est hm.sympatico.ca

Merci

[roselito13]

Alors, Simpatico, je ne connait pas donc je me permet de posée un question !

Un SMTP donc je pense avoir cette forme smtp.FAI.fr
Tente smtp.simpatico.fr et non hm.sympatico.ca

Et tu as qui comme fournisseur pour avoir simpatico en SMTP ?

P.s un smtp est avec le nom de ton fournisseur, par exemple. smtp.orange|free|wanadoo.fr

En lisent la doc j'ai trouver une astuce, met "192.168.1.1" en smtp sans le .fr ni rien, et test.

Ensuite le corps du Email, n'est pas bon sa doit être un tableau... par exemple

► Afficher le texte

as_Body $ [0] = = "Testing the new email udf" "Test de l'UDF nouvel e-mail"
$as_Body [ 1 ] as_Body $ [1] = = "Second Line" "Second Line"

Ensuit juste après la commende d'envoi met sa

Code : Tout sélectionner

Msgbox(0,"", @error )

Puis vas voir sur se site pour savoir se que l'erreur veux dire ==> http://www.autoitscript.com/autoit3/doc ... tpMail.htm
Et je croi que c'est tous

[jamesst20]

Salut mon fournisseur est bell..

http://assistance.sympatico.ca/index.cf ... nt_id=1067

Sinon.. avec le SMTP mentionner sa donne toujours la meme érreur..

Merci de ton aide

A+

[jamesst20]

Yess!!!!!!!!!! J'ai réusssie!!!!!!!!!!!!!!!!!!!!!!!!!!!

Mon SMTP est en faite smtp1.sympatico.ca

Voici mon code:

► Afficher le texte

#include <INet.au3>

$s_SmtpServer = "Ton smtp"
$s_FromName = "nom"
$s_FromAddress = "ladresse de la personne qui envoie"
$s_ToAddress = "Ladresse qui recoit"
$s_Subject = "Salut"
$as_Body = "Hello world"

$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

Merci
Alors je continue mon program

A+

[guitarist]

ta plus qu'à remplacer [..] par [R]
Merci bonne prog.

[jamesst20]

Bonjours a tous, J'essaie de faire pareil dans mon programme mais sa ne fonctione pas lors de la compilation

► Afficher le texte

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

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

$sujetmess = GUICtrlCreateInput("Sujet du message", 24, 176, 153, 21)
GUISetState(@SW_SHOW)






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

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


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



EndSwitch
WEnd

Merci de votre aide!

[Narmeke]

Attds jte le code dans 20 minutes tu l'as ton script !!

[guitarist]

Est-tu sur que toutes les includes servent?

[jamesst20]

Non

Mais vaut mieux plus que tien

Sinon Super j'Ai hate d'avoir mon script

A+

[Narmeke]

Bon comme je suis de bonne humeur ...

Voilà ton code :

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
 ;==Includes Mails==
#Include<file.au3>
#Include<inet.au3>
;==Fin Includes Mails==


$Form = GUICreate("Mail Sender [By Narmeke]", 307, 335, 349, 216)
$Tab1 = GUICtrlCreateTab(16, 16, 273, 273)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUICtrlCreateTabItem("")
$Label1 = GUICtrlCreateLabel("De :", 30, 24, 24, 17)
$Input1 = GUICtrlCreateInput("Autoit@forum.fr", 35, 48, 169, 21)
$Label2 = GUICtrlCreateLabel("À :", 30, 80, 17, 17)
$Input2 = GUICtrlCreateInput("celuiquivarecevoir@exemple.com", 35, 106, 169, 21)
$Label3 = GUICtrlCreateLabel("Sujet :", 30, 136, 34, 17)
$Input3 = GUICtrlCreateInput("", 35, 157, 169, 21)
$Label4 = GUICtrlCreateLabel("Texte :", 30, 192, 37, 17)
$Input4 = GUICtrlCreateInput("", 35, 218, 169, 21)
$Label5 = GUICtrlCreateLabel("Narmeke Software 2009-2010", 64, 304, 172, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
$Button1 = GUICtrlCreateButton("GO", 208, 256, 73, 25, $WS_GROUP)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Button1
            $Expediteur = GUICtrlRead( $Input1)
            $Destinataire = GUICtrlRead( $Input2)
            $Sujet = GUICtrlRead( $Input3)
            $Texte = GUICtrlRead( $Input4)

            $s_SmtpServer =_INetGetSource("http://www.autoitscript.fr/smtp.php")

$s_FromName = "Nouveau Mail"                      ; name from who the email was sent
$s_FromAddress = $Expediteur  ;  address from where the mail should come
$s_ToAddress = $Destinataire                  ; destination address of the email - REQUIRED
$s_Subject = $Sujet           ; subject from the email - can be anything you want it to be
$as_Body = $Texte                                   ; the messagebody from the mail - can be left blank but then you get a blank mail
$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                                               ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465                                         ; GMAIL port used for sending the mail
;~ $ssl=1                                              ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS


;--> Le Script
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)
EndIf
;

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

        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd
 

Le SMTP est trouver automatiquement. Donc rien à faire !!

Un petit merci ne fait pas de mal !



P.S : Si tu ne comprend pas je peux te mettre plus de commentaires..

[jamesst20]

Merci mais le SMTP automatique fonctionne pas pour mon fournisseur..

2) Érreur de compilation de ton programme
3) J'aimerais que qu'elle qu'un m'aide a trouver une solution pour Mon Programme

Merci quand meme

Sinon pourquoi il ne veut pas compiler?

► Afficher le texte

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

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

$sujetmess = GUICtrlCreateInput("Sujet du message", 24, 176, 153, 21)
GUISetState(@SW_SHOW)






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

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


Case $MyButton1
$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

Merci de votre aide

[Narmeke]

Click droit sur le script puis compiler !! Essaie sa ! Moi sa marche et si ton adresse est hotmail il se trouve dans les indésirables.

[jamesst20]

Oui mais il fonctionne pas!

[guitarist]

Exactement cher moi nn plus

[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+

[Narmeke]

Mets ton message en résolu et cherche sur le forum pour la barre de progression ya des exemples !

[jamesst20]

Ok mais le texte? Chu pas capable d'écrire un texte.. LE sujet tout mes pas le texte..

Merci de votre aide

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