Discussion :

[kiki51500]

Bonjour à tous,

Je sais comment envoyer des mails via VBA
Mais là je ne vois pas l'astuce.

Je souhaite envoyer des stats et je voudrais que le contenu d'une table en soit destinataire
Cependant vu que ce sont des mails lourds (plusieurs PDF), j'aimerai ne pas envoyer X mail pour X destinataires mais plutôt un seul mail vers TOUS les destinataires.
Je sais faire si je met les adresses en dur dans VBA, mais je gère différents sites donc difficile de revenir pour corriger les entrants et sortants.

Avez vous une idee?
Merci à vous

[martii843]

Salut,

Pourquoi ne fais tu pas une table qui te serviras de liste des destinataires ?

[kiki51500]

Je l'ai mais sauf erreur de ma part, par defaut, ca enverra un mail par destinataire.

Et je cherche justement comment les regrouper sur le meme mail pour en envoyer qu'un

Merci de ton aide

[martii843]

J'ai sauté une ligne, désolé.

Alors au lieu de faire une boucle qui va envoyer le mail par destinataire tu peux faire une boucle qui va ajouter un destinataire à ta liste de destinataires du mail.

Par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim i as Long
Dim Destinataires as String
 
For i=1 to XDestinataires
if Destinataires = "" then
Destinataires = TonChampDestinataire
else
Destinataires = Destinataires & ";"& TonChampDestinataire
end if
 
Next i

[kiki51500]

Oh merci à toi, donc c'est possible.
Je teste ça et je te tiens au courant
Merci

[kiki51500]

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
Public Sub Commande3_Click()
'   Initialisation et ouverture de Outlook :
Dim i As Long
Dim Destinataires As String
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
 
For i = 1 To XDestinataires
If Destinataires = "" Then
Destinataires = mail
Else
MonMessage.Cc = Destinataires & ";" & mail
End If
Next i
 
'   Destinataire du message :
 
'  Titre du mail :
MonMessage.Subject = "TEST TEST"
'  Contenu du mail :
Corps = "Bonjour,"
MonMessage.body = Corps
'   C’est parti :
MonMessage.send
 '   Fermeture de la session Outlook :
Set MonOutlook = Nothing
 
End Sub

Je dois l'avoir dans le désordre mais je n'arrive pas à trier tout ça pour que cela fonctionne
Table des QUI avec nom, prenom, fonction et mail
Requete sur les QUI en fonction de mes criteres
Formulaire sur ma requete avec un bouton qui lance la fonction sur clic
Merci de me permettre d'abuser de ton aide