XL 2019 Envoyer un mail a partir d'Excel avec une image dans le corps

My<3 · 6 Octobre 2022

Bonjour, je prends gout venir vous consulter! Je fais appel a vos grande connaissance en Excel et VBA

J'ai un document Excel dans lequel j'ai des informations a compléter, une fois les infos compléter je veux qu'un PDF soit enregistrer dans un dossier précis jusque la ca va.

Je voudrais ensuite envoyer un mail Outlook a partir de ce fichier a l'aide d'un bouton. Ce bouton activerais les commandes d'enregistrer le pdf et l'envois du mail

Dans le mail je voudrais que
l'objet sois l'information écrite dans la cellule A1.
Le message sois la capture d'image des cellules A1 a J47 (sans que cette image sois nécessairement enregistrer au que ce soit)

xUpsilon · 6 Octobre 2022

Bonjour,

Je vous conseille d'utiliser du html pour ce qui est d'insérer un tableau Excel dans un email Outlook.
Renseignez-vous sur ce lien sur un post de l'excellent @patricktoulon , je suis sûr que vous y trouverez votre bonheur.
En cas de complications, revenez nous voir !

Bonne soirée,

kiki29 · 6 Octobre 2022

Salut,va fouiller ici : ~~Ron de Bruin~~
ou ici : Archive Site Ron de Bruin

My<3 · 6 Octobre 2022

J'ai ce code qui fonctionne bien et celui du PDF fonctionne bien lorsque je les utilise un a un mais lorsque je les joint sur un bouton une fois que les étapes sont fais mon bouton disparait et un message Mémoire insuffisante est-ce parce que le code enregistre tout

[

Code:

CODE=vb]Sub Mail_small_Text_And_JPG_Range_Outlook()
    'This macro use the function named : CopyRangeToJPG
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim MakeJPG As String

    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

               
    'Create JPG file of the range
    'Only enter the Sheet name and the range address
    MakeJPG = CopyRangeToJPG("MEP", "A1:J47")

    If MakeJPG = "" Then
        MsgBox "Something go wrong, we can't create the mail"
        With Application
            .EnableEvents = True
            .ScreenUpdating = True
        End With
        Exit Sub
    End If

    On Error Resume Next
    With OutMail
        .To = "mep@123l.com"
        .CC = ""
        .BCC = ""
        .Subject = Range("MEP!A1").Value & " MISE EN FABRICATION"
        .Attachments.Add MakeJPG, 1, 0
        'Note: Change the width and height as needed
        .HTMLBody = "<html><p>" & strbody & "</p><img src=""cid:NamePicture.jpg"" width=700 height=800></html>"
        .Display 'or use .Send
    End With
    On Error GoTo 0

    Kill MakeJPG

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub


Function CopyRangeToJPG(NameWorksheet As String, RangeAddress As String) As String

    Dim PictureRange As Range

    With ActiveWorkbook
        On Error Resume Next
        .Worksheets(NameWorksheet).Activate
        Set PictureRange = .Worksheets(NameWorksheet).Range(RangeAddress)
       
        If PictureRange Is Nothing Then
            MsgBox "Sorry this is not a correct range"
            On Error GoTo 0
            Exit Function
        End If
       
        PictureRange.CopyPicture
        With .Worksheets(NameWorksheet).ChartObjects.Add(PictureRange.Left, PictureRange.Top, PictureRange.Width, PictureRange.Height)
            .Activate
            .Chart.Paste
            .Chart.Export Environ$("temp") & Application.PathSeparator & "NamePicture.jpg", "JPG"
        End With
        .Worksheets(NameWorksheet).ChartObjects(.Worksheets(NameWorksheet).ChartObjects.Count).Delete
    End With
   
    CopyRangeToJPG = Environ$("temp") & Application.PathSeparator & "NamePicture.jpg"
    Set PictureRange = Nothing
End Function

[/CODE]

kiki29 · 6 Octobre 2022

Salut, vite fait, à toi de poursuivre

Dudu2 · 7 Octobre 2022

Bonjour,
Sinon, tu as ici une ressource qui permet d'envoyer des images "embbeded" dans le corps du mail, entre autres possibilités.

My<3 · 12 Octobre 2022

kiki29 à dit:
Salut, vite fait, à toi de poursuivre

Génial ca fonctionne merci infiniment de ton temps

My<3 · 19 Octobre 2022

kiki29 à dit:
Salut, vite fait, à toi de poursuivre

Si je souhaite mettre une deuxième image dans le corps de mon mail qui se retrouve sur une nouvelle feuille comment je procède.

C'est vraiment merveilleux comment mon fichier fonctionne je ne voudrais pas le brisé.

kiki29 · 20 Octobre 2022

Salut, à toi de voir .....

My<3 · 20 Octobre 2022

kiki29 à dit:
Salut, à toi de voir .....

Merci et si j'aimerais ajouter une ligne vide entre les images je marque ca comment

j'éprouve une difficulté lorsque j'applique dans mon fichier et je n'arrive pas a solutionné.
Est-ce parce que je nomme mes onglets?

J'ai aussi deux autres pages ou j'aimerais qu'elle ne s'imprime pas en PDF mais qu'elles s'envoient en mail a l'aide d'un bouton et une fois envoyer tous les informations sons effacer

kiki29 · 20 Octobre 2022

Salut, ajout de qqch comme : ....800>" & " " & _ ...
dans la chaine HTMLBody

VB:

.HTMLBody = "<html><p>" & _
                    strbody & "</p><img src=""cid:NamePicture(1).jpg"" width=700 height=800>" & _
                    "<br/><br/><br/><br/>" & _
                    strbody & "</p><img src=""cid:NamePicture(2).jpg"" width=700 height=800></html>"

Feuil1 et Feuil2 sont les CodeNames des onglets.
l'emploi des CodeNames permet de déplacer, renommer les onglets sans avoir à retoucher au code VBA. Voir CodeName.png ci-dessous cerclé de Bleu le CodeName, de Rouge le nom d'Onglet.

Pourrais-tu fournir une liste avec :
Nom d'onglet et CodeName des feuilles envoyées en JPEG et imprimées en PDF ?
Nom d'onglet et CodeName des feuilles envoyées en JPEG uniquement ?

My<3 · 24 Octobre 2022

kiki29 à dit:
Salut, ajout de qqch comme : ....800>" & " " & _ ...
dans la chaine HTMLBody

VB:

.HTMLBody = "<html>" & _ strbody & "<img src=""cid:NamePicture(1).jpg"" width=700 height=800>" & _ " " & _ strbody & "<img src=""cid:NamePicture(2).jpg"" width=700 height=800></html>"

Feuil1 et Feuil2 sont les CodeNames des onglets.
l'emploi des CodeNames permet de déplacer, renommer les onglets sans avoir à retoucher au code VBA. Voir CodeName.png ci-dessous cerclé de Bleu le CodeName, de Rouge le nom d'Onglet.

Pourrais-tu fournir une liste avec :
Nom d'onglet et CodeName des feuilles envoyées en JPEG et imprimées en PDF ?
Nom d'onglet et CodeName des feuilles envoyées en JPEG uniquement ?

Est je bien compris

kiki29 · 24 Octobre 2022

Salut, bis repetita placent... visiblement non : lesquelles sont envoyées en JPEG et imprimées en PDF, lesquelles envoyées en JPEG uniquement. pj à compléter ....

My<3 · 24 Octobre 2022

kiki29 à dit:
Salut, bis repetita placent... visiblement non : lesquelles sont envoyées en JPEG et imprimées en PDF, lesquelles envoyées en JPEG uniquement. pj à compléter ....

patricktoulon · 24 Octobre 2022

Bonsoir
ma proposition
j'ai cru comprendre qu'en fait de l'image il s'agissait de la copie de la plage
je te propose donc ma fonction 2022 createtable2
qui construit la table html sur la base de la plage
ta sub pdf est devenu une fonction et est intégrée a la sub outlook
pour le pdf attaché

XL 2019 Envoyer un mail a partir d'Excel avec une image dans le corps

XLDnaute Junior

Pièces jointes

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Junior

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Partager cette page

Statistiques des forums