Macro envoie Mail avec pièce jointe pdf. impossible

Bonjour,

Actuellement je désire réaliser une macro me permettant d'envoyer un courriel via mon classeur excel.

L'Email a besoin de :

3 adresses mail

Une pièce jointe en pdf (le pdf est réalisé) et non la feuille

le sujet et

un corps texte

J'ai pu constater que cela est possible avec xlDialogMailEditMailer et non xlDialogSendMail, mais je n'arrive pas a trouver la syntaxe.

Serait-il possible de bénéficier d'une correction de la présente macro.

Merci à vous.

Actuellement la macro est :

Sub editPDFMail()
'
' editPDFMail Macro
'

'

    Range("A1:AB49").Select
    Range("AB49").Activate
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\camozzi\Desktop\CBBResultats.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
    Range("A6").Select

    Application.Dialogs(xlDialogSendMail).Show "paul.benguigui@sfr.fr", "Résultats de la compétition"
End Sub