Discussion :

[momolamoto]

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.

[SilkyRoad]

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

[Memes]

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)

[SilkyRoad]

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