Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
'on envoi le mail par outlook aux destinataires sélectionnés
With olmail
Application.Visible = False
.To = ([EMAIL="a@free.fr"]a@free.fr[/EMAIL]) 'destinataires
.BCC = ([EMAIL="b@free.fr"]b@free.fr[/EMAIL]) 'En copie
.Subject = ("Essai") 'Objet
'Corps du message
.Body = "Bonjour," & Chr(10) & Chr(10) & "Ceci est un essai" & Chr(10) & Chr(10) & "Merci."
.Send 'on envoie
End With