Sub envoiMessageLienFichier()
Dim oOutlook As New Outlook.Application
Dim oMessage As Outlook.MailItem
Set oMessage = oOutlook.CreateItem(olMailItem)
With oMessage
.Subject = 'le sujet du message'
.Body = 'bonjour , ' & vbLf & 'Ci joint le lien vers le fichier ' & vbLf & _
'file://' & Application.Substitute(ThisWorkbook.FullName, ' ', '%20')
.Display
End With
End Sub