Demande

y'a t-il quelqu'un qui peut me répondre ici SVP .

Bonjour, cela m'a pris moins d'une minute pour chercher et trouver cette solution

https://forum.excel-pratique.com/cours-astuces/excel-outlook-envoi-mail-t29003.html

Bonjour,

Avec Outlook j'ai utilisé le code suivant

Sub envoi_mail()

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim olFormatHTML As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
 strbody = "Information sur la mise à jour"
On Error Resume Next
    With OutMail
        .To = Range(Email) 'ADRESSE_DETINATAIRE_PPAL
        .CC = ""
        .BCC = ""
        .Subject = Range(Objet)
        .BodyFormat = olFormatHTML
        .HTMLBody = Range(Décision)
        .Display
    End With
        On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub