SendMail

Bonjour, JP
cette macro fait une boucle pour chaque destinataire

En Feuil1
Entre le nom de l'objet en C2
Tape le texte à partir de la ligne C5.c6.c7.ainsi de suite.

En Feuil2 colonne A
A partir de A2 les nomsDestinataire

Bruno

Sub envoyer()
Dim destinataire As Object
Dim element As Object
Dim myobjet As String
Dim ol As Object
Dim mytext As String
myobjet = Sheets("Feuil1").Range("C2")
For k = 5 To Sheets("Feuil1").Range("C65536").End(xlUp).Row
mytext = mytext & Sheets("Feuil1").Cells(k, 3) & vbCr
Next
For k = 2 To 100

nom = Sheets("Feuil2").Cells(k, 1)
If nom = "" Then Exit For
DoEvents
Set ol = CreateObject("Outlook.Application")
Set element = ol.CreateItem(olMailItem)
With element
Set destinataire = .Recipients.Add(nom)
.Subject = myobjet
.Body = mytext
.Send
End With
Set element = Nothing
Set destinataire = Nothing
Set ol = Nothing

Next
End Sub


Jean-Pierre <jpa.pasquet@wanadoo.fr> a écrit dans le message :
cdnqvt$h5g$1@news-reader5.wanadoo.fr...

Bonjour,

Pouvez-vous me donner un coup de main sur la sytaxe pour un envoi à
plusieurs destinataire ?

SendMail Recipients:="destinataire1@wanadoo.fr;destinataire2@wanadoo.fr:",
Subject:="Test"

D'autre part, est-il possible de saisir un texte type dans le corps du
message ?

merci

Jean-Pierre