Sub test()
'Avec ce code Outlook doit être ouvert
'Déclaration des variables
Dim oA As Outlook.Application
Dim oMI As Outlook.MailItem
Dim oAtt As Outlook.Attachments
'Affectation des variables
Set oA = Outlook.Application
Set oMI = oA.CreateItem(olMailItem)
Set oAtt = oMI.Attachments
oAtt.Add "C:\Copies virts\TEST.docm" ' Le chemin et le fichier doivent être valides
'Détail du message
oMI.To = ".....@......com" 'Ici , il faut une adresse valide
oMI.Subject = "Test"
oMI.Body = "Body of MailItem"
'oMI.Display ' Permet d'avoir un aperçu , si pas en commentaire
oMI.Send
'Libération des objets
Set oAtt = Nothing
Set oMI = Nothing
End Sub