Envoi mail avec zone de texte en temps que coprs

Bonjour,

je cherche a mettre dans mon corps de mail une zone de texte "TextFrame 2".

'[xxx]...
  Set .Configuration = mConfig
        .To = [M2].Value
        .BCC = [M3].Value
        .From = "no-reply@xxxxxx.fr"
       .Subject = "Demande de reprise de marchandise suite non-conformité N°" & Range("G11").Value
        TextBody = ' ICI POUR LE CODE <<<<<<<<<<<<<<<=====================================
        .AddAttachment FilePath 'On rajoute le fichier créé.
        .Send 'ou .Display pour afficher le mail.
    End With
'[xxx]...

Je répond a mon problème avec le code

ActiveSheet.Shapes("TextBox 8").TextFrame.Characters.Text

pour trouvé le bon nom de ma zone de texte, j'ai lancé l'enregistrement d'une macro et j'ai fait 2,3 manipe quelconque dedans pour récupéré le nom exact.

a+