Problème envoie email avec pièce jointe

Bonjour,

J'ai écrit ce code pour envoyer un email avec un fichier par mail, le problème est que le mail se créer mais la pièce jointe ne s'ajoute pas. Pouvez-vous m'aider?

Sub Send_v4()
Dim OutApp As Object
Dim OutMail As Object
Dim CurFile As String

Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.logon
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
        With OutMail
            'Adresse mail du destinataire
            .To = "email du destinataire"
            'Adresse mail des destinataires en copies
            .cc = "email des destinataires en copies"
            'Objet du mail
            .Subject = "Test_v4"
            'Ajout pièce jointe
            .Attachments.Add CurFile
            .AddAttachement "C:\chemin_du_fichier.xlsm" 'chemin du fichier à envoyer en pièce-jointe
            'Corps du mail
            .BodyFormat = olFormatHTML
             .HTMLBody = "<A>Bonjour,<br></A>" & _
"<A>Une nouvelle D.I a été saisie.<br></A>" & _
"<A>Veuillez consultez le fichier en P.J.<br></A>" & _
"<A>Cordialement,<br></A>" & _
"<A>Salle de conduite<br></A>" & _
"<A><br></A>"
            'Visualisation du mail
            .Display
            'Envoie du mail
            '.Send
        End With

        Set OutMail = Nothing
        Set OutApp = Nothing

            'Ajout pièce jointe
            .Attachments.Add CurFile

Tu ajoutes en pièce jointe le fichier dont le nom est dans la variable "CurFile", sauf que ta variable est vide. Tu peux ajouter la ligne suivante au debut du code :

CurFile = ThisWorkbook.Path & "\" & ThisWorkbook.Name

Je l'ai supprimé, mais ça ne fonctionne toujours pas.

Sub Send_v4()
Dim OutApp As Object
Dim OutMail As Object
Dim CurFile As String

CurFile = ThisWorkbook.Path & "\" & ThisWorkbook.Name

Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.logon
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
        With OutMail
            'Adresse mail du destinataire
            .To = "email du destinataire"
            'Adresse mail des destinataires en copies
            .cc = "email des destinataires en copies"
            'Objet du mail
            .Subject = "Test_v4"
            'Ajout pièce jointe
            .Attachments.Add CurFile
            'Corps du mail
            .BodyFormat = olFormatHTML
             .HTMLBody = "<A>Bonjour,<br></A>" & _
"<A>Une nouvelle D.I a été saisie.<br></A>" & _
"<A>Veuillez consultez le fichier en P.J.<br></A>" & _
"<A>Cordialement,<br></A>" & _
"<A>Salle de conduite<br></A>" & _
"<A><br></A>"
            'Visualisation du mail
            .Display
            'Envoie du mail
            '.Send
        End With

        Set OutMail = Nothing
        Set OutApp = Nothing

Merci beaucoup, vous avez résolu mon erreur.