Discussion :

[jalain.gosse]

Bonjour,

je cherche à envoyer une demande faite par un formulaire par mail.
J'ai utiliser la fonction "ENVOYEROBJETBASEDEDONNEES"

j'ai réussi grâce à la fonction username a trouver l'adresse email du demandeur renseigner dans une base.
Par contre, je n'arrive pas à paramétrer "A", je souhaiterai envoyer aux différents utilisateurs qui font parti d'un groupe bien précis. J'ai créér une requête qui regroupe l'ensemble de ces utilisateurs.
Mais comment paramétrer la fonction "A" pour récupérer l'ensemble de ces emails ?
merci pour votre aide

[jalain.gosse]

Je vais me répondre à moi même, j'ai trouver une solution

J'ai créer une fonction VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function Liste_mail()
    'Création des variables
      Dim ListeEMail As Recordset
    'Requète ou se trouvant les emails
      Set ListeEMail = CurrentDb.OpenRecordset("RQ_Contacts")
 
    'Création Liste des utiliseurs
        ListeEMail.MoveFirst
        Listecomplete = " "
        While Not ListeEMail.EOF
          Listecomplete = Listecomplete & ListeEMail("EMail") & ";"
          ListeEMail.MoveNext
        Wend
    'Message pour tester le résultat => Activer si necessaire
      MsgBox Listecomplete
    'Fin Prog
        ListeEMail.Close
        Set ListeEMail = Nothing
    'Ecriture du résultat
        Liste_mail = Listecomplete
End Function

Ensuite dans le champs "A"; j'ai mis la valeur "=Liste_mail()"