Envoi de mail via un macro vba sur excel

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:

---

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.

bonjour

j'espere que cet exemple pourra t'aider

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub envoiMesssage_multiDestinataires() Dim outApp As New Outlook.Application Dim Dest As Outlook.Recipient Dim Msg As Outlook.MailItem   Set Msg = outApp.CreateItem(0)   Msg.Subject = "le sujet" Msg.Body = "bonjour, " & vbLf & "vous trouverez ci joint ... " Msg.Display   Set Dest = Msg.Recipients.Add("destinataire1@mail.com") Set Dest = Msg.Recipients.Add("destinataire2@provider.com") Set Dest = Msg.Recipients.Add("Prenom1 Nom1") 'si present dans la liste des contacts Msg.Send End Sub

---

cordialement
michel

oui et comment désactiver la sécurité outlook qui fait apparaitre un message dès qu'une macro tente d'envoyer un mail par son biais (j'ai un grand nombre de personne à mailer avec un mail différent à chaqu'un)

bonsoir

j'espere que ce lien répondra à ta demande pour les envois de mail sans message de confirmation

http://vb.developpez.com/faq/?page=Reseau#mailsmtp


bonne soiree
michel