Envoi de mail avec pièce jointe

[Sly le globe trotter]

Bonjour le forum,

Après quelques recherches sur le forum, je me permets de poser la question car je n'ai pas trouvé de solution à mon problème... Je souhaite envoyer un fichier en pièce jointe via Lotus Notes depuis Excel.
Pour le moment, j'arrive à envoyer le mail mais je ne sais pas comment joindre une pièce jointe avec la méthode que j'utilise.

Dim HyperLien, Objet, Msg As String
    
Objet = "DTL"    Else
 
Msg = ""
Msg = Msg & "La demande " & ActiveWorkbook.Name & " a été traitée." & vbCrLf
Msg = Msg & "Bon développement !" & vbCrLf
    
Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")

ad = "toto@tata.com"
    
HyperLien = "mailto:" & ad & "?cc=" & "zae@tata.com,rt@tata.com"
HyperLien = HyperLien & "&Subject=" & Objet & " (à " & Time() & ")"
HyperLien = HyperLien & "&Body=" & Msg
ActiveWorkbook.FollowHyperlink HyperLien

J'y arrive en utilisant SendMail mais dans ce cas, je ne sais pas comment mettre des destinataires en copie et un message...

Merci pour votre aide !