Réponse acceptée !
Salut,
Sinon si tu possède OutLook regarde ce que fais ce petit code. (attention il ne sera utilisable que si OUtllok est présent sur la machine)
Ajoute en référence à ton projet VBA Microsoft Outlook 9.0 Object Library (9.0 ou équivalent).

Un bouton sur une feuille Excel puis dans le code

Private Sub CommandButton1_Click()    Dim OutApp As New Outlook.Application    Dim MonMail As Outlook.MailItem        Set MonMail = OutApp.CreateItem(olMailItem)    With MonMail        'Destinataire        .To = "epsylon9@gmail.com"        'Sujet        .Subject = "Test d'envoi"        'Coprs du message        .Body = "Ceci est un test d'envoi de mail"        'Si tu veux l'afficher        Call .Display        'Envoi        Call .Send    End With        Set MonMail = Nothing    Call OutApp.Quit    Set OutApp = Nothing End Sub

By Renfield

@+: Ju£i€n
Pensez: Réponse acceptée