Discussion :

[nounous54]

Bonjour,

J'aimerais pouvoir sélectionner plusieurs destinataires pour envoyer un mail d'après une liste déroulante ou une zone de texte ou des cases à cocher.
Ce qui sera le lus simple.

J'ai une liste d'adresse mail existante dans ma table "TBL_ultilisateurs" "mail" (TBL_utilisateurs!mail).

TBL_ulisisateurs
Noms Mail
A A@gmail.com
B B@gmail.com
C C@gmail.com
D D@gmail.com

L'idée serai que toutes les adresses mails des noms sélectionnés (A.B.C..) apparaissent dans une zone de texte (txt_destinataires) avec un ; entre chaque adresse pour qu'ensuite j'utilise la valeur de "txt_destinataire" comme destinataires.

Est ce que c'est réalisable?

Merci pour votre aide

[totor92290]

Hello,
Je ne suis pas un expert mais...
Si tu es sur un formulaire si tu coches la case, tu fais un renvoi dans un champ individuel et ensuite tu fais un concatener dans un champs texte avec des séparateurs ";". C'est pas super propre mais c'est faisable.
Ensuite tu rappelles ce champs dans ta procédure d'envoi email.

[nounous54]

Bonjour,

malheureusement Totor92290, ça ne correspondra pas à mes besoin.

En fait ma TBL_utilisateur peut évoluer.
Du coup l’idéal serait une zone de liste, comme cela en fonction de mes changements, la zone de liste serait à jour automatiquement (ce qui ne serait pas le cas avec des checkbox crées).

J'arrive à sélectionner plusieurs personnes dans ma zone de liste (lst_utilisateurs).
J'arrive à afficher dans mon champ (txt_destinataire) une adresse mail correspondante au nom que je viens de sélectionner.
Mais je n'arrive pas afficher dans mon champ (txt_destinataire) les différentes mail correspondant aux différentes personnes sélectionnés dans ma zone de liste.
En faite dès que je clic un nom, il efface dans txt_utilisateur le dernier pour le remplacer par le nouveau.
Moi je voudrais que l'adresse s'ajoute et non pas qu'il remplace.

!!!!

Merci pour votre aide

[Robert1957]

Bonjour nounous54,

Pour récupérer un choix multiple dans une liste à choix multiple tu te dois de parcourir cette liste comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Déclaration des variables
Dim vaMail as Variant
Dim strMail as String
    'Parcours la liste
    If Not IsNull(cmbTaListe.ItemsSelected) Then
        For Each vaMail In cmbTaListe.ItemsSelected
            If strMail = "" Then
                strMail = cmbTaListe.ItemData(vaMail)
            Else
                strMail = strMail & ";" & cmbTaListe.ItemData(vaMail)
            End If
        Next
    End If
'La variable strMail contiendra toutes les lignes sélectionnées séparées par un ;

Bonne journée

[nounous54]

Merci beaucoup Robert 1957..
Tu es un King.
Ça fonctionne super.
Un grand bravo à toi.
Bonne soirée à tous