Envoi mail groupé en VBA

Version imprimable

01/08/2016, 13h47
kiki51500

Envoi mail groupé en VBA

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

Salut,

Pourquoi ne fais tu pas une table qui te serviras de liste des destinataires ?
01/08/2016, 14h11
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

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:

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

01/08/2016, 14h34
kiki51500

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

Code:

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

01/08/2016, 16h29
kiki51500

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

Il faut que tu utilises

Code:

MonMessage.To =

et non Cc

Code:

MonMessage.Cc =

Sinon, u peux essayer avec les modifications suivantes

Code:

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

01/08/2016, 17h00
kiki51500

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é
01/08/2016, 17h08
martii843

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:

Forms!TonFormulaire!mail

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

Salut,
Moi j'utilise ceci qui fonctionne.

Code:

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

Code:

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