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 :

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.

bonjour

j'espere que cet exemple pourra t'aider

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
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