merci pascal c exactement ce que je cherchais.
par contre je galère pour avoir plusieurs destiantaires.
j'ai une zone environ 10 cellule qui contient ou pas des adresses mail et j'aimerais y faire référence. Ecrit comme ça = bug !!!
AdresseMail = Sheets('data').Range('I13:I23')
Sub envoimail()
Dim Sujet As String, AdresseMail As String, Message As String
Dim NbreRapport As Byte
Dim OL, olMailItem, MyItem
Sujet = 'Mise à disposition '
AdresseMail = Sheets('data').Range('I13:I23')
Message = ' Bonjour, Ceci est un test d'envoi automatique'
Set OL = CreateObject('Outlook.Application')
Set MyItem = OL.CreateItem(olMailItem)
With MyItem
.To = AdresseMail
.Subject = Sujet
.Body = Message
'.Attachments.Add 'C:tmpMonDoc.xls'
.Categories = 'Banking-Info'
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = True
.Send
End With
End Sub