Envoi mail groupé en VBA

**kiki51500** · 01/08/2016, 13h47

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** · 01/08/2016, 14h01

Salut,

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

**kiki51500** · 01/08/2016, 14h11

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** · 01/08/2016, 14h28

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** · 01/08/2016, 14h34

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

**kiki51500** · 01/08/2016, 16h19

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

**kiki51500** · 01/08/2016, 16h29

Précision
Le message d'erreur est qu'il n'y a pas de destinataires

**martii843** · 01/08/2016, 16h38

Il faut que tu utilises

Code :

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

MonMessage.To =

et non Cc

Code :

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

MonMessage.Cc =

Sinon, u peux essayer avec les modifications suivantes

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
Public Sub Commande3_Click()
'   Initialisation et ouverture de Outlook :
Dim i As Long
Dim Destinataires As String
Dim XDestinataires As long
XDestinataires = Dcount("[Champ]","[Table]")
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
Destinataires = Destinataires & ";" & mail
End If
Next i
 
'   Destinataire du message :
 
'  Titre du mail :
MonMessage.To = Destinataires
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

**kiki51500** · 01/08/2016, 17h00

On s'en approche
XDestinataires me donne bien le résultat de 9 correspondant au nombre de mails sortis de la requete.

J'ai une erreur 94 utilisation de null incorrecte avec un debuguage sur
Destinataires = mail

Je cherche aussi de mon coté

**martii843** · 01/08/2016, 17h08

La façon dont tu utilises "mail" dans ton code est en variable, la bonne utilisation est plutôt par exemple, si tu utilises un formulaire de traitement :

Code :

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

Forms!TonFormulaire!mail

Si tu utilises une requête, il vaut mieux utiliser le RecordSet.

**tyjez** · 02/08/2016, 10h05

Salut,
Moi j'utilise ceci qui fonctionne.

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
 
Dim appOutLook As Outlook.Application
    Dim MailOutLook As Outlook.MailItem
    Set appOutLook = CreateObject("Outlook.Application")
    Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
        .BodyFormat = olFormatRichText
        .To = "DJEZ <djez@djez.fr>; djez2 <djez2@djez2.fr>"
        .CC = "DJEZ 3 <djez3@djez3.fr>"
        '.bcc = ""
        .Subject = "SUJET DE MON MAIL"
        .HTMLBody = "Bonjour, <br /> Voici un mail au format <b><u> HTML</u></b><p>et voici un autre paragraphe</p>"
        '.Attachments.Add (strPath & strFile)
        .Send
        '.Display    'preparation du mail sans l'envoyer
End With

Pour le multidestinataire issus d'une table il suffit de créer une requête avec DAO.recordset qui met en variable (.listeDestinataire par exemple) tous les déstinataires séparés par un; et remplacer le .to = "" par .to = listeDestinataire

**kiki51500** · 02/08/2016, 13h17

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Sub EnvoiMail_click()
  ' #######################
  ' # 1. Access via DAO : #
  ' #######################
 
  ' Initialisation :
  Dim ListeEMail As Recordset
  Set ListeEMail = CurrentDb.OpenRecordset("Requete/table où sont stockés les mails")
  ListeEMail.MoveFirst
  ListeComplete = ""
 
  ' Parcourt de la requête :
  While Not ListeEMail.EOF
    ListeComplete = ListeComplete & ListeEMail("ChampMail") & ";"
    ListeEMail.MoveNext
  Wend
 
  ' On enlève le dernier point virgule :
  ' ListeComplete nous sera évidemment utile tout à l'heure :
  ListeComplete = Left(ListeComplete, Len(ListeComplete) - 1)
 
  ' Stop DAO :
  ListeEMail.Close
  Set ListeEMail = Nothing
 
  ' #######################################
  ' # 2. Envoi de l'E-Mail avec Outlook : #
  ' #######################################
 
  ' Initialisation :
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)
 
  ' Préparation du message :
  MonMessage.to = ListeComplete
 
  ' Récupération de la chaîne d'E-Mails Access :
  MonMessage.bcc = ""
  MonMessage.Subject = "Statistiques mensuelles Techniques"
  Corps = "Bonjour à tous,"
  Corps = Corps & Chr(13) & Chr(10)
  MonMessage.body = Corps
 
  ' C'est parti :
  MonMessage.send
 
  ' Fermeture de la session Outlook :
  Set MonOutlook = Nothing
End Sub

Bonjour à tous,

En cherchant à plusieurs, on trouve donc merci pour votre aide.
On a trouvé cela sur le net j’espère que cela pourra aider ceux qui en auraient besoin comme moi.

Merci et je passe en résolu

Envoi mail groupé en VBA [AC-2010]

VBA Access

Discussions similaires

Partager

Partager