Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment envoyer un graphique spécifique dans un email avec vba dans Excel?

Vous savez peut-être comment envoyer un e-mail via Outlook dans Excel avec le code VBA. Cependant, savez-vous comment attacher un graphique spécifique dans une certaine feuille de calcul dans le corps de l'email? Cet article vous montrera la méthode pour résoudre ce problème.

Envoyer un graphique spécifique dans un e-mail dans Excel avec le code VBA


Envoyez facilement des e-mails via Outlook en fonction de la liste de diffusion créée:

Le bouton Envoyer des emails L'utilitaire de Kutools pour Excel aide les utilisateurs à envoyer des e-mails via Outlook en fonction de la liste de diffusion créée dans Excel. Voir la capture d'écran:

Kutools for Excel comprend plus de 300 outils maniables Excel. Gratuit pour essayer sans limitation dans les jours 60. Téléchargez l'essai gratuit maintenant


Envoyer un graphique spécifique dans un e-mail dans Excel avec le code VBA


Veuillez faire comme suit pour envoyer un graphique spécifique dans un email avec le code VBA dans Excel.

1. Dans la feuille de calcul contient le graphique que vous souhaitez joindre dans le corps de l'e-mail, appuyez sur autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, s'il vous plaît cliquez insérer > Module. Copiez ensuite le code VBA dans la fenêtre Code.

Code VBA: Envoyer un graphique spécifique dans un e-mail dans Excel

Sub mailHTMLsend()
'Updated by Extendoffice 2018/3/5
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xStartMsg As String
    Dim xEndMsg As String
    Dim xChartName As String
    Dim xChartPath As String
    Dim xPath As String
    Dim xChart As ChartObject
    On Error Resume Next
    xChartName = Application.InputBox("Please enter the chart name:", "KuTools for Excel", , , , , , 2)
    If xChartName = "" Then Exit Sub
    Set xChart = Sheets("Sheet1").ChartObjects(xChartName)
    If xChart Is Nothing Then Exit Sub
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xStartMsg = "<font size='5' color='black'> Good Day," & "<br> <br>" & "Please find the chart below: " & "<br> <br> </font>"
    xEndMsg = "<font size='4' color='black'> Many Thanks," & "<br> <br> </font>"
    xChartPath = ThisWorkbook.Path & "\" & Environ("USERNAME") & VBA.Format(VBA.Now(), "DD_MM_YY_HH_MM_SS") & ".bmp"
    xPath = "<p align='Left'><img src="/"cid:" & Mid(xChartPath, InStrRev(xChartPath, "\") + 1) & """  width=700 height=500 > <br> <br>"
    xChart.Chart.Export xChartPath
    With xOutMail
        .To = "xrr@163.com"
        .Subject = "Add Chart in outlook mail body"
        .Attachments.Add xChartPath
        .HTMLBody = xStartMsg & xPath & xEndMsg
        .Display
    End With
    Kill xChartPath
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

Note: Dans le code, s'il vous plaît changer l'adresse e-mail du destinataire et l'objet de l'e-mail en ligne .To = "xrr@163.com" et la ligne .Subject = "Ajouter un graphique dans le corps du courrier Outlook" , Sheet1 est la feuille qui contient le tableau que vous voulez envoyer, s'il vous plaît le changer pour le vôtre.

3. appuie sur le F5 clé pour exécuter le code. Dans l'ouverture Kutools for Excel boîte de dialogue, entrez le nom du graphique que vous allez joindre dans le corps du message, puis cliquez sur le OK bouton. Voir la capture d'écran:

Ensuite, un e-mail est créé automatiquement avec le graphique spécifié dans le corps de l'e-mail comme illustré ci-dessous. Veuillez cliquer sur le bouton Envoyer pour envoyer cet email.


Articles Liés:



Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.