[R] Ajout d'un bouton parcourrir

[cbourdu57]

Bonjour

Je fais appel a vous car j'ai un petit problème ...
J'ai créer une interface qui permet d'envoyer un mail par rapport a ce que l'utilisateur entre comme donnée dans les input ...
Tout fonctionne sauf quand l'utilisateur entre n'importe quoi dans le input des pièces jointes et qu'il click sur envoyer ...

Je voudrais donc vérifier le input pour les pièces jointes avant qu'il envoie le message, pour pas qu'il n'y est d'erreur ...
Donc soit faire une vérification avant qu'il envoie
Soit permettre de parcourir les fichiers :

Voici mon code

Code : Tout sélectionner

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

        Case $Btn_envoyer

            const $olMailItem=0
            $oOApp = ObjCreate("Outlook.Application")
            $oOMail = $oOApp.CreateItem($olMailItem)
            $oOMail.Save

            With $oOMail
                .To = GUICtrlRead($Input_dest)
                .Subject = GUICtrlRead($Input_sujet)
                .Body = GUICtrlRead($Input_corps)
                .attachments.add (GUICtrlRead($Input_pieces))
                .Display
            EndWith

.....................

    EndSwitch
Wend
 

Merci

[jguinch]

Salut.
La fonction que tu recherches est certainement FileOpenDialog.

En général, voilà comment je procède :

► Afficher le texteexemple

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

GUICreate("", 200, 70)
$input = GUICtrlCreateInput("", 10, 10, 150, 25)
$browse = GUICtrlCreateButton("...", 165, 10, 25, 25)
$ok = GUICtrlCreateButton("OK", 50, 40, 100, 25)

GUISetstate()

While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then Exit
    
    If $msg = $browse Then
        $file = FileOpenDialog("Choisir un fichier", @ScriptDir, "Tous les fichies (*.*)", 5 )
        If $file <> "" Then GUICtrlSetData($input, $file)
    EndIf
    
    If $msg = $ok Then
        $file = GUICtrlRead($input)
        If FileExists($file) Then
            MsgBox(0, "OK", "C'est bon")
            #CS
            suite du code ....
            #CE
        Else
            MsgBox(16, "Erreur", "Le fichier " & $file & " n'existe pas")
        EndIf
    EndIf
WEnd

[cbourdu57]

Ouaaaa merci beaucoup ! Le code fonctionne nickel !
Il y avait juste un petit bug, quand tu ne m'étais rien dans pièces jointes il entrait dans le else et donc il afficher Erreur le fichier "..." n'existe pas
Donc pour ne pas obliger l'utilisateur a entrer quelque chose , il faut juste changer le if

Code : Tout sélectionner

If FileExists($file) or $file="" Then
                    MsgBox(0, "OK", "C'est bon")
                    $olMailItem=0
                    $oOApp = ObjCreate("Outlook.Application")
                    $oOMail = $oOApp.CreateItem($olMailItem)
                    $oOMail.Save

                    With $oOMail
                        .To = GUICtrlRead($Input_dest)
                        .Subject = GUICtrlRead($Input_sujet)
                        .Body = GUICtrlRead($Input_corps)
                        if $file<>"" then
                            .attachments.add (GUICtrlRead($Input_pieces))
                        EndIf
                        ;.Display
                        .Send
                    EndWith
                Else
                    MsgBox(16, "Erreur", "Le fichier " & $file & " n'existe pas")
                EndIf
 

Voilà pour ceux qui veulent une correction
En tout cas merci de ton aide !
J'aurai juste encore quelques questions , peut etre tu sais ...

Est il possible de mettre un texte de fond dans le input (genre : xxx@xxx.com)? car tu peux mettre un texte dans un input mais l'utilisateur fainéant doit toujours le supprimé avant d'écrire son adresse de destinataire

Est il possible d'obliger l'utilisateur, ou vérifier que l'utilisateur a bien entrer une adresse de type xxx@xxx.com ou .fr .de (et puis les autres xD je les connait pas) ?

Est il possible de rajouter au dessus du input la police, le style, les émoticones ... ?

[mikell]

1- Oui mais c'est pas top, vaudrait mieux mettre 'xxx@xxx.com' dans l'input et faire en sorte que ça s'efface au 1er clic sur l'input
2- Pour les adresses mail on peut vérifier que dans l'input l'entrée est bien de la forme 'machin@truc.ext'
Ce qui n'empêchera pas des petits malins d'écrire 'tagada@tsointsoin.zob' (comme tu peux le constater, le forum considère ça comme une adresse valide) mais a priori ceux-là n'ont rien à foutre dans ton programme
3- comprends pas

[cbourdu57]

1 et 2 : aurais tu des pistes à me donner, des fonctions à utiliser pour faire cela ?
( tu m'a fait rire avec ton tsointsoin ! )

3 : avec une image c'est plus simple :

Capture2.PNG (2.88 Kio) Vu 2110 fois

[mikell]

1- Moins évident que ce que je pensais

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <Misc.au3>

Global $testinput = 0
GUICreate(" My GUI input", 320, 120)
$input = GUICtrlCreateInput("xxx@xxx.com", 20, 20, 200, 20)
$btn = GUICtrlCreateButton("Ok", 40, 75, 60, 20)
GUISetState()

While 1
   If $testinput = 0 Then
    If _IsPressed("01") Then
     $a = GUIGetCursorInfo()
     If  $a[4] = $input Then
       GuiCtrlSetData($input, "")
       $testinput = 1
      EndIf
    EndIf
  EndIf

     $msg = GUIGetMsg()
     Select
         Case $msg = $GUI_EVENT_CLOSE
              Exit
         Case $msg = $btn
             MsgBox(64, "", GUICtrlRead($input))
             ExitLoop
     EndSelect
WEnd
 

2 - vite fait :

► Afficher le texte

Code : Tout sélectionner

$string1 = "machin@truc.fr"
$string2 = "machinàtruc.fr"
$string3 = "machin.chose@truc-chouette.fr"

_TestMail($string1)
_TestMail($string2)
_TestMail($string3)

Func _TestMail($str)
  If StringRegExp($str, '.+?@.{3,}\.\w{2,3}') Then
    Msgbox(0,"", $str & @crlf & "est une adresse mail")
  Else
    Msgbox(0,"", $str & @crlf & "n'est PAS une adresse mail")
  EndIf
EndFunc
 

3- si tu te lances dans ce genre de truc (en gros, refaire Word) alors vaut peut-être mieux oublier le script et prendre un freeware... sinon il y a la fonction _ChooseFont

[cbourdu57]

Oui bon les 3 là c'était juste pour l'esthétique, donc je vais laisser tomber la 3ème

En tout cas merci beaucoup pour les informations

Je vais tester tout ça !

[cbourdu57]

Je reviens vers toi car j'ai 2 petits soucis bizarre ...

Code : Tout sélectionner

Global $testinput = 0
While 1
; --------------------------------- Input email --------------------------------------
   If $testinput = 0 Then
    If _IsPressed("01") Then
     $a = GUIGetCursorInfo()
     If  $a[4] = $Input_dest Then
       GuiCtrlSetData($Input_dest, "")
       $testinput = 1
      EndIf
    EndIf
  EndIf

    $msg = GUIGetMsg()

    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit

 ; -------------------------------------------- GESTION DES EMAILS ---------------------------------------------------------------------

        Case $Btn_parcour_pieces
            $file = FileOpenDialog("Choisir un fichier", @ScriptDir, "Tous les fichies (*.*)", 5 )
            If $file <> "" Then GUICtrlSetData($Input_pieces, $file)

        Case $Btn_envoyer
            $file = GUICtrlRead($Input_pieces)

            If Not (StringRegExp(GUICtrlRead($Input_dest), '.+?@.{3,}\.\w{2,4}')) Then
                GuiCtrlSetData($Lbl_errdest, "Entrer une adresse mail valide !")
                GuiCtrlSetData($Lbl_errpieces, "")

            Else
                GuiCtrlSetData($Lbl_errdest, "Adresse mail valide !")
                If FileExists($file) or $file="" Then
                    GuiCtrlSetData($Lbl_errpieces, "Fichier valide !")
                    $olMailItem=0
                    $oOApp = ObjCreate("Outlook.Application")
                    $oOMail = $oOApp.CreateItem($olMailItem)
                    $oOMail.Save

                    With $oOMail
                        .To = GUICtrlRead($Input_dest)
                        .Subject = GUICtrlRead($Input_sujet)
                        .Body = GUICtrlRead($Input_corps)
                        if $file<>"" then .attachments.add (GUICtrlRead($Input_pieces))
                        .Display
                        ;.Send
                    EndWith

                Else
                    GuiCtrlSetData($Lbl_errpieces, "Ce fichier n'existe pas")
                EndIf

            EndIf

        Case $Btn_efface_mail
            GUICtrlSetData($Input_corps, "")

        Case $Btn_effacetout
            GUICtrlSetData($Input_dest, "nom@mail.com")
            GUICtrlSetData($Input_sujet, "")
            GUICtrlSetData($Input_pieces, "")
            GUICtrlSetData($Input_corps, "")

    EndSwitch
WEnd
 

Première erreur : Je n'arrive pas a clicker sur les boutons $Btn_efface_mail et $Btn_effacetout ... Trop bizarre ... (peut etre qu'il ne rentre pas dans les case ...)

Deuxième erreur (qui arrive que de temps en temps ...)
If $a[4]=$Input_dest Then
If $a^ ERROR

Error: Subscript used with non-Array variable

[mikell]

Pour les boutons, faudrait voir avec le code de la gui
Pour l'autre erreur essaie

Code : Tout sélectionner

$a = GUIGetCursorInfo($nom_de_la_gui)

[cbourdu57]

Je te passe le code pcke sinon ça va faire long sur le forum et je ne vois plus d'erreur avec le $a pour l'instant

[mikell]

Ecris le GUIGetCursorInfo avec le nom de la gui, de toute façon c'est plus propre
Pour les boutons je te donne un indice : $Lbl_errpieces

[cbourdu57]

en gros j'ai mis le label trop grand ... et donc il se mettait au dessus des boutons ... J'ai honte ...

Mais bon l'erreur est humaine !

Merci en tout cas