Discussion :

[MichaSarah]

Bonjour,
Pourriez-vous m'apporter votre aide ?
Dans Excel, j'ai une liste de destinataires (colonne B) pour lesquels je souhaite envoyer un mail. Le corps du mail pour chaque personne se trouve en colonne C.
J'ai rédigé le code ci-dessous mais la boucle ne fonctionne pas. La colonne A contient les noms et prénoms.

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 EnvoyerUnMailOutlook()
 
Dim ObjetOutlook As New Outlook.Application
Dim oBjetMail
 
 
    Set dest= Feuil2
    Set ObjetOutlook = New Outlook.Application
    Set oBjetMail = ObjetOutlook.CreateItem(olMailItem)
 
      dest.Range("A65536").End(xlUp).Select
      temp = ActiveCell.Row
 
Do
    With oBjetMail
        .To = dest.cells(temp,2) 
        .Subject = "TEST"          
        .Body = dest.cells(temp,3) 
        .Send
    End With
 
    temp = temp - 1
Loop Until temp = 1
 
    Set oBjetMail = Nothing
    Set ObjetOutlook = Nothing
 
End Sub

Merci par avance
MichaSarah

[Invité]

Bonjour,
http://www.developpez.net/forums/d14...t/#post7968025

[MichaSarah]

Bonjour Rdurupt,
Merci pour ta réponse, je vais prendre le temps de comprendre le code avec CDO, que je ne connais pas. Peux-tu m'indiquer les avantages/inconvénients de passer soit par outlook soit par CDO ?
En regardant le code je ne vois pas de boucle permettant à partir d'une liste d'envoyer un mail en "masse"

Merci pour ton aide

MichaSarah

[SfJ5Rpw8]

Bonjour,


il faut que tu rentre la création de ton objet mail dans ta boucle

[Invité]

Bonjour,
Peut importe la méthode Outlook ou Cdo, ce que je voulais te montrer c'est quand utilisant une fonction tu affranchi de traiter la méthode d'envois a chaque rotation de ta boucle!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For i =1 to 10
EnvoiMail cells(i,1),celles(i,2) etc
Next

regardes mon exemple dans la sub test du lien!

De surcroît tu peux te faire un bibliothèque de routine prête à l'emploi que tu peux te resservir dans d'autres projets!

[MichaSarah]

Bonjour rdurupt et bbil,
Merci pour votre aide.
Poblème résolu.

Cordialement
MichaSarah