Envoyer un mail ou message via une macro

Bonjour, je voudrais envoyer un courriel via une macro....pas un courriel contenant le document excel...simplement un message qui me dit par exemple: «Bonjour toi!» lorsque j'appuie sur un bouton.

J'ai absolument besoin de la macro car je vais la jumeler avec d'autre fonction, donc fichier>partager>courriel ne répond pas au besoin.

À présent j'ai trouvé cette macro, mais je ne sais trop pour quelle raison, quand je l'active je ressois tout prêt de 200 fois le e-mail.




Sub SendMail()

'
' SendEmail Macro
'

'
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)

olMail.To = "monadresse@gmail.com"
olMail.Subject = "Subject Line"
olMail.Body = "This is the buddy of the e-mail"
olMail.Send

End Sub




Merci bien à vous. J'ai fait des recherches sur le web mais je ne trouve pas!