Insérer un tableau à la suite d'un texte dans un mail

Bonjour à tous,

Alors j'ai cherché partout sur internet et sur le forum mais je n'ai pas trouvé de solution.

ça fait 2 jours que j'essaye toutes les possibilités mais sans succès.

Pouvez-vous m'aider svp, je souhaiterai insérer ma copie de tableau à la suite de mon corps de texte dans mon mail.

J'arrive à faire les deux séparément mais j'ai l’impression que la tableau écrase mon texte quand je combine les deux.

(Module 2 dans mon fichier).

Je vous remercie,

92fiche-rpf.xlsm (27.17 Ko)

Bonjour,

et si tu essayais :

    .HTMLBody = Strbody & "<br>" & Strbody2 & "<br><br><br><br>" & .HTMLBody

Bonjour,

En faite j'ai essayé de faire un strbody2 avec

cellnonvide = Range("c65500").End(xlUp).Row

ActiveSheet.Range("C10", "E" & cellnonvide).Select

Selection.Copy

'coller dans le mail le tableau excel copié

Set outlookwordeditor = OutMail.GetInspector.WordEditor

outlookwordeditor.Range.PasteAndFormat wdFormatOriginalFormatting

Mais ça ne marche pas

Est-ce que tu as essayé ma proposition dans ton module2 ?

Oui excuse moi j'ai essayé mais ça n'a pas marché mais j'avais fait une erreur de manip'.

ça marche je te remercie, par contre ça m'a rétréci la police de mon texte (en plus petit), alors que le bonjour reste normal.

J'ai aussi un message qui s'affiche à chaque fois que mon mail s'affiche (voir pièce jointe)

capture

Bonjour,

ci-joint exemple de code (module 3)

233fiche-rpf1.xlsm (30.63 Ko)

Bonjour,

Merci

Le code ne se lance pas il bug ici : (pourtant ma boite mail est ouverte)

capture

Le code ne se lance pas il bug ici : (pourtant ma boite mail est ouverte)

Dans l'éditeur VBA (menu Outils), ajouter la référence Microsoft Outlook Object Library.

ou remplacer olmailitem par sa valeur = 0

    Set myItem = OL.CreateItem(0): Set wDoc = myItem.GetInspector.WordEditor

Super tout fonctionne très bien merci beaucoup

Bonjour,

Merci beaucoup pour ces partages. Je cherchais désespérément comment pouvoir insérer ET du texte ET une copie d'un tableau dans un même mail sans devoir passer par tout un tas d'étapes intermédiaires.

Je suis sous office 2013 et je rencontre le même souci que Calire, à savoir que, si Outlook est déjà ouvert, tout fonctionne à merveille. Par contre, si Outlook est fermé, j'ai un blocage à ce niveau :

image

Je l'ai tout aussi bien sur mon fichier que sur le fichier de Thev. Je l'ai tout aussi bien sans n'avoir rien paramétré en amont qu'en ayant fait tous les changements proposés par Thev.

Du coup je sèche un peu. Est-ce qu'un autre changement serait envisageable ?

Par avance merci,

Edit : C'est pareil sur 2019

Bonjour JoyeuxNoel,

Il suffit d'ajouter l'affichage de l'instance Outlook si cet affichage n'existe pas. ci-dessous les instructions à ajouter :

    
    '// assignation application Outlook
    Set OL = CreateObject("Outlook.Application")
    If OL.Explorers.Count = 0 Then
        OL.Session.GetDefaultFolder(olFolderInbox).Display
        OL.ActiveExplorer.WindowState = olMinimized
    End If

    ' Assignation des objets
    Set myItem = OL.CreateItem(olMailItem): Set wDoc = myItem.GetInspector.WordEditor

Bonjour,

Super, ça marche parfaitement ainsi.

Merci pour le tuyau !

Rechercher des sujets similaires à "inserer tableau suite texte mail"