Shell ("Outlook.exe")
Dim OlApp As Outlook.Application
Dim OlItem As Outlook.MailItem
Set OlApp = New Outlook.Application
Set OlItem = OlApp.CreateItem(olMailItem)
With OlItem
.To = MailDestinataire
.Subject = Objet
.Body = Destinataire & "," & _
vbLf & vbLf & "Voici le lien vers le dernier bon de commande saisi :" & vbLf & _
vbLf & CheminFichier & vbLf & vbLf & _
"Cordialement" & vbLf & Emetteur
.Display
.Save
.Send
End With
Set OlItem = Nothing
Set OlApp = Nothing