VBA - Envoi mails automatiquement avec fichier joint en pdf

Bonjour à tous,

J'ai déjà posté sur ce sujet mais je n'ai pas réussi à adapter la commande que l'on m'a donné donc je retente

Voilà, j'essaie de créer un programme pour envoyer automatiquement des mails avec un fichier joint à partir d'Excel via outlook.

On m'a donné cette commande :

Application.CommandBars.ExecuteMso ("FileEmailAsPdfEmailAttachment")

Elle marche très bien puisqu'elle ouvre outlook automatiquement et un message avec la pièce jointe s'affiche. Mais j'ai différents problèmes. Tout d'abord, j'aimerais envoyé juste une feuille et pas tout le classeur.

Et ensuite, j'aimerais rajouter un texte (le même pour tous les destinataires) dans le corps du mail.

Est-ce que quelqu'un aurait des idées, sil-vous-plaît?

Merci d'avance!

Bonjour,

à tester,

Sub envoiMail()
fichier = "C:\Users\xxxxx\Documents\MonFichier PDF.pdf" 'à adapter

Set sh = ActiveSheet
Application.ScreenUpdating = False

sh.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=fichier, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

Sheets.Add After:=Sheets(Sheets.Count)

    ActiveWorkbook.EnvelopeVisible = True
    With ActiveSheet.MailEnvelope
        For cp = .Item.Attachments.Count To 1 Step -1
        .Item.Attachments(cp).Delete
        Next cp
    .Item.To = "xxxxxx@xxxxxxx"
    .Item.Subject = "Test "
    .Introduction = "Bonjour, ci-dessous un test VBA."
    .Item.Attachments.Add fichier
    .Item.Send
    End With

Application.DisplayAlerts = False
ActiveSheet.Delete
sh.Activate
Application.ScreenUpdating = True
End Sub