Envoyer des emails avec VBA

Bonjour,

Je suis novice en Excel et VBA, je souhaite envoyer des emails avec VBA,

Ma liste de destinataire se trouve dans listedestinaire - il y a plusieurs adresses email dans la colonne A de mon classeur.

J'ai un message d'erreur quand j'execute mon code, mais je n'arrive pas à comprendre ce qui pose probleme. Pouvez-vous m'aider , svp?

Mon code :

Sub NouveauMessage()

Dim ObjOutlook As Object

Dim ObjMessage As Object

Dim listedestinataire As Range

Dim i As Integer

Dim DL As Variant

i = 0

listedestinataire = Range("A:A")

DL = Cells(Rows.Count, 1).End(xlUp).Row

'Ouverture d'Outlook et création d'un message vierge

Set ObjOutlook = CreateObject("Outlook.Application")

For i = 0 To DL

Set ObjMessage = ObjOutlook.createitem(i)

With ObjMessage

.Display

.To = listedestinataire(i)

.Subject = "test avec loop"

.Send

End With

i = i + 1

Next

'Libération des variables

Set ObjOutlook = Nothing

Set ObjMessage = Nothing

End Sub

Mon code n'est pas parfait, si vous trouvez des erreurs, je serai heureux de les corriger.

Merci d'avance,

Vincent

Bonjour,

i = 1
DL = Cells(Rows.Count, 1).End(xlUp).Row
listedestinataire = Range("A" & i & ":A" & DL)

Bonjour sabV,

J'obtiens l'erreur 91 avec le code que tu me donnes

"Object Variable or With block variable not set"

:s

Bonjour Vincent,

à tester,

Sub NouveauMessage()

Dim ObjOutlook As Object
Dim ObjMessage As Object
Dim listedestinataire As String
Dim i As Integer
Dim DL As Variant

DL = Cells(Rows.Count, 1).End(xlUp).Row

'Ouverture d'Outlook et création d'un message vierge
Set ObjOutlook = CreateObject("Outlook.Application")

For i = 1 To DL
listedestinataire = Range("A" & i)
Set ObjMessage = ObjOutlook.createitem(i)
With ObjMessage
.Display
.To = courriel
.Subject = "test avec loop"
.Send
End With
Next
'Libération des variables
Set ObjOutlook = Nothing
Set ObjMessage = Nothing
End Sub

ps/si la liste des courriel commence à la ligne 2

modifier

For i = 2 To DL

Merci bcp, cela fonctionne maintenant

A+