XL 2016 Envoi mail Outlook depuis Excel

Option Explicit

Private Sub CommandButton1_Click()
Dim LeMail As Variant, strBody$

Set LeMail = CreateObject("Outlook.Application") 'création d'un objet outlouk

With LeMail.CreateItem(olMailItem) ' informe le programme que nous voulons envoyer un mail.
    .Subject = "Confirmation règlement facture pour  " & Range("D7") & " €"
    .To = Range("D5") 'Destinataire du mail
    strBody = Range("D9")
    .Body = strBody & vbCrLf & Range("D11") & Range("D7") & " €"
    .Display 'afficher le mail avant de l'envoyer sinon placer send pour envoyer
End With
End Sub

Private Sub CommandButton1_Click()

Dim Ws1 As Worksheet
Dim OutApp As Object, OutMail As Object, strBody$

Set Ws1 = Worksheets("Mail")

On Error Resume Next
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
    .To = Ws1.Range("D5").Value
    .Subject = "Confirmation règlement facture pour  " & Ws1.Range("D7") & " €"
    strBody = Range("D9")
    .Body = strBody & vbCrLf & Ws1.Range("D11") & Ws1.Range("D7") & " €"
    .Display 'afficher le mail avant de l'envoyer sinon placer send pour envoyer
    '.Send
End With

Set OutMail = Nothing: Set OutApp = Nothing
End Sub