Bonjour,

J'utilise actuellement une macro pour envoyer des mails avec un fichier xls xls (via outoolk 2003).
Mon soucis est que je ne peux envoyer qu'a un seul destinatare à la fois, hors j'aimerais faire un envoi groupé et avec envoi en copie caché.

code actuelle :

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
For i = 2 To li
 
Set Email = CreateObject("Outlook.Application")
Set EmailMsg = Email.CreateItem(olMailItem)
 
 EmailMsg.Recipients.Add Cells(i, col).Value 'envoi au premier de la liste
 EmailMsg.Subject = domaine & ": Reporting des demande au " & datereport
 EmailMsg.Body = "Je vous prie de trouver ci-joint la liste des demandes enregistrées par l'ECU au " & datereport
 EmailMsg.Attachments.Add chemin 'chemin du fichier joint
 
' Placement de l'e-mail dans la boîte d'envoi :
   EmailMsg.Send
    ' Libération de la variable-objet :
 
    'EmailMsg.Attachments
    Set EmailMsg = Nothing
    Set Email = Nothing
 
    Next
je précise que si je mets tous les destinataires cela ne marche pas non plus.