Envoyer un mail à partir d'un UserForm

Bonjour les profs, bonjour le forum

J'ai un petit souci, dans un classeur, j'ai crée un userform MEL (afin d'envoyer un mél automatique) (je vous joint les captures écrans).

Dans ce userform MEL il y a 3 textBox qui sont : adresse,sujet,message, et deux boutons qui sont : CommandButton1 = ENVOYER MEL et CommandButton2 = QUITTER

J'ai écris les codes vba suivants :

(Général)

Sub envoyer(Message As String, sujet As String, Adresse As String)

Dim o As Outlook.Application

Set o = New Outlook.Application

Dim Mail As Outlook.MailItem

Set Mail = o.CreateItem(olMailItem)

With Mail

.Subject = "Sujet"

.To = Adresse

.HTMLBody = Message

'.Send

.Display

End With

o.ActiveWindow

Set Mail = Nothing

Set o = Nothing

End Sub

Private Sub CommandButton2_Click()

Unload Me 'nb quitter le formulaire Mel

End Sub

Mais quand je clique sur le bouton CommandButton1 = ENVOYER MEL, ce bouton ne fonctionne pas

Auriez-vous une solution, correction de code à me proposer ?

Merci à vous tous et au plaisir de vous lire

BONSOIR A TOUTES ET TOUS.

J'ai trouvé une solution pour envoyer le mél. merci pour votre aide