Comment envoyer mail SANS attachement

Bonjour,
J'ai le code suivant intégré dans une macro, et je ne souhaite pas joindre de fichier-joint. Comment faire? Merci.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim ol As New Outlook.Application Dim olmail As MailItem Set ol = New Outlook.Application Set olmail = ol.CreateItem(olMailItem) With olmail .To = "toto@toto.fr" .Subject = "Test" .Body = "Hello" .Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name '.Display End With

---

Bonjour,
supprime simplement la ligne .attachments. Et n'oublie pas de rajouter .send pour envoyer le mail.

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim ol As New Outlook.Application Dim olmail As MailItem Set ol = New Outlook.Application Set olmail = ol.CreateItem(olMailItem) With olmail .To = "toto@toto.fr" .Subject = "Test" .Body = "Hello" .Send End With

---