Macro envoi formulaire Word par mail [Résolu]

Dim ObjOutlook As Outlook.Application
Dim OBjMail As Outlook.MailItem

         Set ObjOutlook = Outlook.Application
        Set OBjMail = ObjOutlook.CreateItem(olMailItem)
        
        With OBjMail
            .To = "...@gmail.com" ' le destinataire
            .Subject = "Test"
            .Body = ""

            .Send
        End With

.send

.display

Sub EXPORT_PDF()

    ChangeFileOpenDirectory "U:\Destination"
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "Nom.pdf", _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub

ChDrive ("U")
ChDir ("U:\dossier")
Kill "fichier"  

Kill "U:\dossier\fichier"

Sub EnvoiMail()

Dim ObjOutlook As Outlook.Application
Dim OBjMail As Outlook.MailItem

         Set ObjOutlook = Outlook.Application
        Set OBjMail = ObjOutlook.CreateItem(olMailItem)
        
        With OBjMail
            .To = "florian.delatouche@labanquepostale.fr"
            .CC = "sandrine.delacroix@labanquepostale.fr"
            .Subject = "Fiche test"
            .Body = "Bonjour"

            .Display
        End With

     Kill "U:\formulaire_en_pdf"   

End Sub    

ObjOutlook.CreateItem(olMailItem)

.Attachments.Add "U:\formulaire_en_pdf"