Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 2 sur 2
Aller à la page: <  1, 2
Formulaire + envoi email Autoit barre de progression ...
Auteur Message
Répondre en citant
Message Formulaire + envoi email Autoit barre de progression ... 
Revue du message précédent :

Bonjour

Si cela peut aider, voici


Code:
#include "GUIConstants.au3"

$parentgui = GUICreate("Parent",400,300)
GUISetState(@SW_SHOW)

$childgui = GUICreate("Child",340,120,-1,-1,BitOr($WS_POPUP,$WS_CAPTION,$WS_SYSMENU),-1,$parentgui)
GUISetState(@SW_SHOW)
GUISwitch($parentgui)
GUISetState(@SW_DISABLE)

While 1
    $msg = GUIGetMsg(1)

    $ctrlmsg = $msg[0]
    $win = $msg[1]
    $posx = $msg[3]
    $posy = $msg[4]

    Select
        Case $ctrlmsg = $GUI_EVENT_CLOSE And $win = $parentgui
            ExitLoop
        Case $ctrlmsg = $GUI_EVENT_CLOSE And $win = $childgui
         GUISwitch($parentgui)
            GUISetState(@SW_ENABLE)
         GUISwitch($childgui)
         GUISetState(@SW_HIDE)
    EndSelect
WEnd

GUIDelete()

Exit


Skype
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Formulaire + envoi email Autoit barre de progression ... 
merci hugo ca avance voici le code , mais il y a une erreur
par email je recois pas ce que j'ecris ds les cases mais je recois par email :
URL : URL
Description : Titre

les GUICtrlRead() sont mal placés , qui peut me les replacer au bon endroit, c'est une histoire de GUICtrlRead() qui lit le contenu des inputs

voici le code :

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include<file.au3>

$SmtpServer = "pro.turbo-smtp.com"
$FromName = "referencement"
$FromAddress = "postmaster@des-cosmetiques.fr"
$ToAddress = "dagneaux.gicqueau@gmail.com"
$Subject = "referencement"
$AttachFiles = ""
$CcAddress = ""
$BccAddress = ""
$Importance = "Normal"
$Username = "postmaster@des-cosmetiques.fr"
$Password = "xxxxxxxxxx"
$IPPort = 587
$ssl = 0
;~ $IPPort=587
;~ $ssl=1


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Menu", 598, 367, 191, 141)
$Label1 = GUICtrlCreateLabel("Logiciel de référencement ", 136, 24, 171, 20)
GUICtrlSetFont(-1, 10, 400, 2, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("PACK STARTER ", 152, 48, 118, 20)
GUICtrlSetFont(-1, 10, 400, 2, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("URL", 32, 88, 185, 48)
$URL = GUICtrlRead(-1)
$Input2 = GUICtrlCreateInput("Description", 32, 216, 185, 48)
$Input3 = GUICtrlCreateInput("Titre", 32, 144, 185, 48)
$desc = GUICtrlRead(-1)
$Button1 = GUICtrlCreateButton("SOUMETTRE VOTRE SITE", 360, 224, 209, 73)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
soumettre()
EndSwitch
WEnd




; *******

; Fonction pour soumette le site

func soumettre()
GUICtrlDelete(-1)

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Envoi du mail.", 336, 200, 302, 218)
$Label1 = GUICtrlCreateLabel("Votre site a bien été soumis.", 40, 112, 248, 29)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Fermer", 104, 152, 123, 25)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
$Progress1 = GUICtrlCreateProgress(32, 32, 270, 41)
GUICtrlSetData(-1, 50)
#EndRegion ### END Koda GUI section ###

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
If @error Then
MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
EndIf

; On lance la fonction d'envoi

$Body = "URL : " & $URL & @CRLF & "Description : " & $desc
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
_INetSmtpMailCom($rc)
GUICtrlSetData(-1, 100)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Exit
EndSwitch
WEnd
endfunc ; Soumettre()



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 & @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
Switch $s_Importance
Case "High"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
Case "Normal"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
Case "Low"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
EndSwitch
$objEmail.Fields.Update
; Sent the Message
$objEmail.Send
If @error Then
SetError(2)
Return $oMyRet[1]
EndIf
$objEmail=""
EndFunc ;==>_INetSmtpMailCom cette ligne ne sert pas je crois dans le nouveau code
;
;
; 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



Dernière édition par referencement le Mar 12 Jan 2016 - 11:17; édité 3 fois

______________________________________________________
mon skype : olivier15051985
Skype
Répondre en citant
Message Formulaire + envoi email Autoit barre de progression ... 
erreur de la ligne corrigé , reste plus qu'à corriger GUICtrlRead()




______________________________________________________
mon skype : olivier15051985
Skype
Répondre en citant
Message Formulaire + envoi email Autoit barre de progression ... 
Bon j'ai regardé ton code rapidement et je t'ai is les GUICtrlRead() dans la fonction soumettre (logiquement)

Tu faisait un read des champs directement après les avoir créé. Il faut laisser le temps à l'utilisateur de les remplir Mort de Rire


Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include<file.au3>

$SmtpServer = "pro.turbo-smtp.com"
$FromName = "referencement"
$FromAddress = "postmaster@des-cosmetiques.fr"
$ToAddress = "dagneaux.gicqueau@gmail.com"
$Subject = "referencement"
$AttachFiles = ""
$CcAddress = ""
$BccAddress = ""
$Importance = "Normal"
$Username = "postmaster@des-cosmetiques.fr"
$Password = "xxxxxxxxxx"
$IPPort = 587
$ssl = 0
;~ $IPPort=587
;~ $ssl=1


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Menu", 598, 367, 191, 141)
$Label1 = GUICtrlCreateLabel("Logiciel de référencement    ", 136, 24, 171, 20)
GUICtrlSetFont(-1, 10, 400, 2, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("PACK STARTER  ", 152, 48, 118, 20)
GUICtrlSetFont(-1, 10, 400, 2, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("URL", 32, 88, 185, 48)
$Input2 = GUICtrlCreateInput("Description", 32, 216, 185, 48)
$Input3 = GUICtrlCreateInput("Titre", 32, 144, 185, 48)

$Button1 = GUICtrlCreateButton("SOUMETTRE VOTRE SITE", 360, 224, 209, 73)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $Button1
         soumettre()
   EndSwitch
WEnd




; *******

; Fonction pour soumette le site

func soumettre()
 local $URL = GUICtrlRead($input1)
 local $desc = GUICtrlRead($Input2)
 GUICtrlDelete(-1)

 #Region ### START Koda GUI section ### Form=
 $Form2 = GUICreate("Envoi du mail.", 336, 200, 302, 218)
 $Label1 = GUICtrlCreateLabel("Votre site a bien été soumis.", 40, 112, 248, 29)
 GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
 $Button1 = GUICtrlCreateButton("Fermer", 104, 152, 123, 25)
 GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
 GUISetState(@SW_SHOW)
 $Progress1 = GUICtrlCreateProgress(32, 32, 270, 41)
 GUICtrlSetData(-1, 50)
 #EndRegion ### END Koda GUI section ###

 Global $oMyRet[2]
 Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
 If @error Then
     MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
 EndIf

 ; On lance la fonction d'envoi

 $Body = "URL : " & $URL & @CRLF & "Description : " & $desc
 $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
 _INetSmtpMailCom($rc)
 GUICtrlSetData(-1, 100)

 While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
       Case $GUI_EVENT_CLOSE
          Exit
       Case $Button1
          Exit
    EndSwitch
 WEnd
endfunc ; Soumettre()



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 & @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
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail=""
EndFunc   ;==>_INetSmtpMailCom        [b]cette ligne ne sert pas je crois dans le nouveau code[/b]
;
;
; 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



Test et dis-nous si ça fonctionne !

Il faudrait également tester si les champs sont bien remplies et avec une URL valide avant d'envoyer.

Et habitue toi à définir tes variables en local ou global sinon tu va avoir de mauvaises surprises.


Okay

PS : Les codes sont à mettre entre les balises code (le bouton [<>])




______________________________________________________
AffPng.exe , StringBetween.exe , Hex2Png.exe
Répondre en citant
Message résolu autoit formulaire 
ouahhhh merci beaucoup c'est génial cela fonctionne nickel je reçois les infos super bien sur mon email avec le smtp

mille merci à tous !!

je passe en résolu

les personnes qui m'ont aidé n'hésitez pas à m'ajouter sur skype, je pense que vu le temps consacré chacun aura un petit quelque chose




______________________________________________________
mon skype : olivier15051985
Skype
Message Formulaire + envoi email Autoit barre de progression ... 


Montrer les messages depuis:
Répondre au sujet Page 2 sur 2
Aller à la page: <  1, 2
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch