Discussion :

[sebflex]

Bonjour,

Je souhaite envoyer un email à plusieurs destinataires à partir d'un bouton. Des adresses email sont stockées dans une table et une requête me permet de sélectionner les adresses des destinataires choisis.

Je pense utiliser le code ci-dessous pour lancer mon email:

Code :

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

1
2
3
4
5
6
7
8
Dim Olook As Outlook.Application
Dim Omail As MailItem
Set Olook = New Outlook.Application
Set Omail = Olook.CreateItem(olMailItem)
Omail.To = "*********" '< ----adresses des destinataires
Omail.Subject = "Bonjour "
Omail.Body = "Comment ça va?"
Omail.Send 'Envoi le mail

Le problème, c'est que je ne sais pas comment récupérer les éléments de ma requête et les placer après Omail.To =.

Si l'un d'entre vous à une solution, je lui en serais très reconnaissant.

Merci d'avance pour vos réponses.

[mouaa]

il faut récupérer les résultats de ta requête en créant un recordset (on trouve de nombreux tutos là dessus).

ensuite, je pense qu'il faut créer un String contenant la liste des adresses mails à partir du recordset.

enfin, il suffit d'affecter la valeur de ton String à ton "mail.To"

et le tour est joué

[sebflex]

Merci pour cette réponse.
Le problème, c'est que je débute en VBA (2 semaines de pratique) et je dois avouer que j'ai du mal à mettre en application ce que tu me conseilles.
Est-il possible de développer un peu cette explication?

Merci beaucoup.

[Montagna73]

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
'Variable
Dim Select_Req As String
Dim Rep As Recordset
 
'Req en Langage sql
Select_Req = "Select [id_post#]as post from Rdv where rdv.[id_chamb#]= " & Jury & " and rdv.[id_H#]= #" & H & "#;"
 
'Stockage de ta sélection dans un Table
Set Rep = CurrentDb.OpenRecordset(Select_Req)
 
'Boucle
Do Until Rep.EOF = True
WksSheet.Cells(J, I) = Rep!Post
Rep.MoveNext
Loop

[DurDur]

Bonsoir,

Voilà mon code qui fonctionne bien:

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
 
Dim jc_dbase as DAO.database
Dim jc_Liste as DAO.recorset
Dim jc_Cible as string
Dim jc_Message as object
 
'ouvre un RecordSet sur les adresses MAIL
Set jc_Liste = jc_dBase.OpenRecordset("Select WEBPERSO FROM tbl_adherent " & jc_Tri)
 
'boucle sur chaque enregistrement et les ajoute au champ BBC du mail
    While Not jc_Liste.EOF
            jc_Cible = jc_Cible & jc_Liste.Fields("WEBPERSO") & "; "
            jc_Liste.MoveNext
    Wend
 
'supprime la dernière virgule et complète avec les adresses le champ des destinataires d'une copie
jc_Message.BCC = Left(jc_Cible, Len(jc_Cible) - 2)
 
' envoi un E-MAIL à mon adresse pour controle
jc_Message.To = "XXXXX.xxxx@neuf.fr"

Voilà

Bonne soirée.

JC57