Discussion :

[clem76000]

Bonjour à tous !

J'ai une petite macro qui tourne bien , l'idée étant d'envoyer automatiquement des mails + PJ à differents destinataires (les coordonnées des destinataires étant classées dans un fichier excel)

Voici mon code :

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
20
21
22
23
24
25
26
27
28
29
Sub SendEMailwithAttachments()
Dim Ol As Object, myItem As Object
Dim strHtml As String
 
'Ecrire ici le corps du message
strHtml = "Bonjour , <BR>"
 
' Ouverture de la boite mail
Set Ol = CreateObject("outlook.application")
Set myItem = Ol.CreateItem(olMailItem)
 
 
'trouver la localisation du fichier à envoyer
myItem.Attachments.Add Range("X2").Value
 
' lire les adresses mails
myItem.to = Range("U2").Value
 
' titre du mail
myItem.Subject = Range("V2").Value
 
'corps du message
myItem.HtmlBody = strHtml
 
myItem.SEND
 
Set Ol = Nothing
 
End Sub

La macro fonctionne mais je cherche maintenant à faire une sorte de boucle me premettant d'étendre ma formule ligne par ligne c.a.d une fois qu'un mail à été envoyé au premier destinataire refaire la meme chose mais sur la ligne 3 et ainsi de suite (mon fichier comporte un centaine de ligne)


Merci d'avance pour votre aide !

[Daniel.C]

Bonjour,

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
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub SendEMailwithAttachments()
Dim Ol As Object, myItem As Object
Dim strHtml As String
 
'Ecrire ici le corps du message
strHtml = "Bonjour , <BR>"
 
' Ouverture de la boite mail
Set Ol = CreateObject("outlook.application")
 
For i = 2 To [U1000].End(xlUp).Row
Set myItem = Ol.CreateItem(olMailItem)
 
 
'trouver la localisation du fichier à envoyer
myItem.Attachments.Add Range("X" & i).Value
 
' lire les adresses mails
myItem.to = Range("U" & i).Value
 
' titre du mail
myItem.Subject = Range("V" & i).Value
 
'corps du message
myItem.HtmlBody = strHtml
 
myItem.SEND
Set myItem = Nothing
Next i
Set Ol = Nothing
 
End Sub

[clem76000]

Merci beaucoup ça marche parfaitement !