[R] Lire une Input

[floriande26]

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

J'ai essayer :

► 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 $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

[jl56]

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

[floriande26]

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

[scorp84]

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

[floriande26]

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?

[scorp84]

Bonsoir,

Non ce n'est pas normal.

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


Amicalement.

BM