AutoIt Français

Bonjour, j'aimerais savoir comment lire une input et pouvoir envoyer par e-mail ..

J'ai essayer :

► Afficher le texte

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <File.au3>
$Form1 = GUICreate("Fenetre", 517, 345, 192, 124)
$Label1 = GUICtrlCreateLabel("Générateur ", 8, 8, 277, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 8, 80, 193, 21)
$Label2 = GUICtrlCreateLabel("Repmlis", 232, 80, 79, 17)
$Button1 = GUICtrlCreateButton("Générer", 128, 216, 289, 89, $WS_GROUP)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND") ; Ceci sert pour surveiller la zone d'input
GUISetState(@SW_SHOW)
$File = "MonFichier.txt"
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Input1
            ConsoleWrite(GUICtrlRead($Input1))
$s_SmtpServer="smtp.gmail.com"
$s_FromName=""
$s_FromAddress=""
$s_ToAddress=""
$s_Subject = "TEST"
$as_Body = "Test"
$s_AttachFiles = "MonFichier.txt"
$s_CcAddress = ""
$s_BccAddress = ""
$s_Username = ""
$s_Password = ""
$IPPort = 465
$ssl = 1
$s_Importance="Normal"


_INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body , $s_AttachFiles , $s_CcAddress, $s_BccAddress, $s_Importance, $s_Username, $s_Password , $IPPort , $ssl)

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $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])
            ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment ($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                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
    If Number($IPPort) = 0 then $IPPort = 25
    $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
    ; Set Email Importance
    $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    $objEmail=""
 EndFunc   ;==>_INetSmtpMailCom

    EndSwitch
WEnd

Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWndFrom, $iIDFrom, $iCode, $hWndInput1
    If Not IsHWnd($Input1) Then $hWndInput1 = GUICtrlGetHandle($Input1) ; Attention à bien utiliser le control ID de votre input
    $hWndFrom = $ilParam
    $iIDFrom = BitAND($iwParam, 0xFFFF) ; HiWord
    $iCode = BitShift($iwParam, 16) ; LoWord
    Switch $hWndFrom
        Case $hWndInput1
            Switch $iCode
                Case $EN_CHANGE
                    ; C'est ici que vous devez gérer vos contrôles sur l'input
                    $MyInput = GUICtrlRead($Input1)
                    If StringLen($MyInput) >= 4 Then
                        GUIDelete($Form1)
                   FileWrite( $File, & $MyInput)
                        Exit
                    EndIf
                    ; Fin du contrôle/execution
            EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND

Mais sa ne marche pas pour moi

PS: J'ai ENLEVER MON ADRESSE MSN pour éviter de me faire ***

.... mais je sais que sinon je la met c'est une précaution

Bonsoir,

► Afficher le texte

Code : Tout sélectionner

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
$Form1 = GUICreate("Fenetre", 517, 345, 192, 124)
$Label1 = GUICtrlCreateLabel("Générateur ", 8, 8, 277, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 8, 80, 193, 21)
$Label2 = GUICtrlCreateLabel("Repmlis", 232, 80, 79, 17)
$Button1 = GUICtrlCreateButton("Générer", 128, 216, 289, 89, $WS_GROUP)
;~ GUIRegisterMsg($WM_COMMAND, "WM_COMMAND") ; Ceci sert pour surveiller la zone d'input
GUISetState(@SW_SHOW)
$File = "MonFichier.txt"
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Button1
            $ce_que_contient_input1=GUICtrlRead($Input1)
            MsgBox(0,"Dans l'input il y a ceci",$ce_que_contient_input1)
            $s_SmtpServer = "smtp.gmail.com"
            $s_FromName = ""
            $s_FromAddress = ""
            $s_ToAddress = ""
            $s_Subject = $ce_que_contient_input1
            $as_Body = $ce_que_contient_input1
            $s_AttachFiles = ""
            $s_CcAddress = ""
            $s_BccAddress = ""
            $s_Username = ""
            $s_Password = ""
            $IPPort = 465
            $ssl = 1
            $s_Importance = "Normal"


            _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Importance, $s_Username, $s_Password, $IPPort, $ssl)



    EndSwitch
WEnd

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance = "Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $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])
            ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                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
    If Number($IPPort) = 0 Then $IPPort = 25
    $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
    ; Set Email Importance
    $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "High"
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    $objEmail = ""
EndFunc   ;==>_INetSmtpMailCom


Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWndFrom, $iIDFrom, $iCode, $hWndInput1
    If Not IsHWnd($Input1) Then $hWndInput1 = GUICtrlGetHandle($Input1) ; Attention à bien utiliser le control ID de votre input
    $hWndFrom = $ilParam
    $iIDFrom = BitAND($iwParam, 0xFFFF) ; HiWord
    $iCode = BitShift($iwParam, 16) ; LoWord
    Switch $hWndFrom
        Case $hWndInput1
            Switch $iCode
                Case $EN_CHANGE
                    ; C'est ici que vous devez gérer vos contrôles sur l'input
                    $MyInput = GUICtrlRead($Input1)
                    If StringLen($MyInput) >= 4 Then
                        GUIDelete($Form1)
                        FileWrite($File, $MyInput)
                        Exit
                    EndIf
                    ; Fin du contrôle/execution
            EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND

Je ne sais pas ce que vous voulez faire, donc j'ai modifié votre code selon mon interprétation

Vos fonctions ne doivent pas etre dans votre boucle principale comme Func _INetSmtpMailCom

votre fonction WM_COMMAND attend 4 caracteres puis ...

je préfère ne pas l'utiliser mais j'utilise votre bouton générer
celui provoque la lecture de input1 puis stocke la valeur dans la variable $ce_que_contient_input1
j'affiche cette valeur dans un boite de dialogue puis je renseigne les variables $s_Subject et $as_Body
pour l'envoie de l'email
pourquoi pas, c'est un exemple

A+ JL56

ps je n'ai pas testé l'envoie d'email

Merci pour ton code mais j'ai pas compris les explications

Et on peut mettre 2 Input et les enovyer par mail C'ést ;
$s_Subject = $ce_que_contient_input1 & $ce_que_conttient_input2
$as_Body = $ce_que_contient_input1 & $ce_que_conttient_input2

C'est sa?

Mais sinon IL FONCTIONNE merci

Bonjour floriande26,

Oui, c'est ça. N'oublie pas les espaces entre tes valeurs de champs :

Code : Tout sélectionner

$s_Subject = $ce_que_contient_input1 & " " & $ce_que_conttient_input2
$as_Body = $ce_que_contient_input1 & " " & $ce_que_conttient_input2

Fais aussi attention à la longueur du contenu de tes champs pour la lisibilité de l'objet de ton mail.

J'utilise souvent cette fonction à la fin de mes scripts pour me faire un rapport par mail pour savoir si tout s'est bien passé.

En général, je valorise la variable $erreur à 0 au début de mon script et si j'ai une erreur ou un problème lors du déroulement de mon script, je la valorise à 1.

A la fin je teste ma variable pour définir l'objet de mon mail :

Code : Tout sélectionner

If $erreur=0 Then
    $mail_objet="AUTOIT > " & @ComputerName & " > " & @ScriptName & " > OK"
Else
    $mail_objet="AUTOIT > " & @ComputerName & " > " & @ScriptName & " > PROBLEME"
EndIf

En espérant avoir pu t'aider.

N'hésite pas si tu as d'autres questions.

Amicalement.

BM

Merci sa m'aide beaucoup mais l'email je recoit l'input10input2

Par exemple input1 = Salut
et input2= sa va?

Je recoit Salut0sa va?

Normal que j'ai ce zéro?

Bonsoir,

Non ce n'est pas normal.

Envoie moi ton code que je te dise ce qui ne va pas.

Amicalement.

BM

AutoIt Français

[R] Lire une Input

[R] Lire une Input

Re: [..] Lire une Input

Re: [..] Lire une Input

Re: [R] Lire une Input

Re: [R] Lire une Input

Re: [R] Lire une Input