Discussion :

[martonpylon12]

Bonjour,

Je cherche sur le forum mais je ne trouve rien qui puisse me dire comment envoyer un mail "groupé" à toutes les personnes qui apparaissent comme le résultat d'une requête.

J'ai des Agents, avec leur mail

J'ai une requête qui les filtre selon certains critères

Et j'aimerais pouvoir envoyer un mail prédéfini (Sujet + message) aux personnes correspondants aux critères de la requête.

ça doit être tout simple mais je ne sais même pas comment commencer ni quoi rechercher sur le forum

Merci pour votre aide

[Tofalu]

Si je ne m'abuse, un exemple de code source est disponible ici :

http://access.developpez.com/sources

[martonpylon12]

Salut et merci tofalu

j'ai trouvé ça effectivement

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Public Sub EnvoiMassif()
'Ajouter les références suivantes :
'Microsoft Outlook
'Microsoft DAO
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
Dim strContenu As String
Dim oRst As DAO.Recordset
Dim oFld As DAO.Field
Dim strTo As String
'Instancie Outlook
Set oApp = CreateObject("Outlook.Application")
'Crée un nouveau message
Set oMail = oApp.CreateItem(olMailItem)
oMail.Body = "Bonjour," & vbCrLf & _
             "Venez retrouver l'ensemble de nos produits sur notre site Web" & _
             vbCrLf & "http://www.notresite.fr"
 
'Ouvre un recordset sur les clients
Set oRst = CurrentDb.OpenRecordset("SELECT * FROM Clients")
'Boucle sur chaque client et les ajoute au champ BCC du mail
While Not oRst.EOF
  strTo = strTo & oRst.Fields("ChampEmailClient") & "; "
  oRst.MoveNext
Wend
'Supprime la dernière virgule
oMail.BCC = Left(strTo, Len(strTo) - 2)
oMail.Subject = "NewsLetter " & Date
'Envoi le mail
oMail.Send
'ferme le curseur
oRst.Close
Set oRst = Nothing
'Ferme Outlook
oApp.Quit
Set oApp = Nothing
End Sub

donc si j'ai bien compris, à la place de cette ligne

Code :

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

Set oRst = CurrentDb.OpenRecordset("SELECT * FROM Clients")

je mets dans la parenthèse le code de ma requête qui me donne la liste des agents à contacter, c'est bien ça ?

Mais surtout, je le mets où ce code ?, je crée un bouton et je le mets dans la procédure ?

Encore désolé pour ces questions à 2 euros ..

@+

[Lou Pitchoun]

Salut martonpylon12
Tu viens de gagner 4 €
Effectivement, tu dois y mettre ton SQL, et oui tu l'exécutes à partir d'un bouton, ou si tu gères un menu dans ton application tu peux l'intégrer dedans et donc copier le code dans un module.