XL 2016 code Vba mail depuis excel

Function ExistenceFichier(sFichier As String) As Boolean

ExistenceFichier = Dir(sFichier) <> ""

End Function


Sub EnvoiMail()

Dim objMail As Outlook.MailItem
Dim outapp As Outlook.Application
Set outapp = New Outlook.Application

Dim X As Object
Dim sNomFichier As String

sNomFichier = Sheets("Config").Range("L11").Value
'Le chemin de Outlook.exe sera alors indiqué en case L11, dans un onglet nommé “Config” car il diffère effectivement en fonction de la version de votre 'Office, ... Chaque utilisateur pourra donc écrire dans cet onglet de configuration le chemin de leur Outlook.exe

On Error Resume Next
Set X = GetObject(, "Outlook.application")
If Err.Number <> 0 Then '
If ExistenceFichier(sNomFichier) Then
ID = Shell(sNomFichier)

Else
MsgBox "Je ne reconnais pas l'adresse de OUTLOOK.exe sur votre PC (A préciser dans l'onglet Config) !" & Chr(10) & Chr(10) & "Le fichier se trouve cependant bien envoyé dans la Outbox de Outlook ..." & Chr(10) & Chr(10) & "Il faudra donc lancer manuellement Outlook pour que le fichier soit envoyé !"
End If

Else

'MsgBox "Outlook est déja ouvert ..."

End If

Dim fichier$
fichier = ThisWorkbook.Path & "\votre fichier"
envoyerMail "######@hotmail.fr","TEST", fichier
End Sub

Private Sub envoyerMail(Destinataire$, Copie$, Objet$, Pjointe$)
With CreateObject("Outlook.Application").CreateItem(0)
.Subject = Objet: .To = Destinataire: .Attachments.Add Pjointe: .Display ""
End With



End Sub