Come inviare un grafico specifico in un'email con VBA in Excel?

Potresti sapere come inviare un'email tramite Outlook in Excel utilizzando il codice VBA. Tuttavia, sai come allegare un grafico specifico di un determinato foglio di lavoro nel corpo dell'email? Questo articolo ti mostrerà il metodo per risolvere questo problema.

Invia un grafico specifico in un'email in Excel con il codice VBA

Invia un grafico specifico in un'email in Excel con il codice VBA

Procedi come segue per inviare un grafico specifico in un'email con il codice VBA in Excel.

1. Nel foglio di lavoro che contiene il grafico che desideri allegare nel corpo dell'email, premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, fai clic su Inserisci > Modulo. Quindi copia il seguente codice VBA nella finestra del Codice.

Codice VBA: Invia un grafico specifico in un'email in 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) 'Change "Sheet1" to your worksheet name
    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 = Application.ActiveWorkbook.Path & "\" & Environ("USERNAME") & VBA.Format(VBA.Now(), "DD_MM_YY_HH_MM_SS") & ".bmp"
    xPath = "<p align='Left'><img src="/%20&%20"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

Nota: Nel codice, cambia l'indirizzo email del destinatario e l'oggetto dell'email nella riga .To = "xrr@163.com" e nella riga .Subject = "Aggiungi Grafico nel corpo della mail di Outlook", Sheet1 è il foglio che contiene il grafico che vuoi inviare, quindi cambialo con il tuo.

3. Premi il tasto F5 per eseguire il codice. Nella finestra di dialogo Kutools for Excel che si apre, inserisci il nome del grafico che desideri allegare nel corpo dell'email e poi clicca sul pulsante OK. Vedi screenshot:

Verrà creata automaticamente un'email con il grafico specificato visualizzato nel corpo dell'email come mostrato nello screenshot sottostante. Clicca sul pulsante Invia per inviare questa email.

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!

Articoli correlati:

• Come inviare automaticamente un'email basata sul valore di una cella in Excel?
• Come inserire una firma in un'email di Outlook quando si invia tramite VBA in Excel?
• Come inviare un'email a un orario specifico della giornata in Excel?
• Come inviare un'email con il corpo in formato HTML in Excel?
• Come inviare un'email con testo in grassetto/dimensione/colore/sottolineato specificato in Excel?
• Come inviare un'email senza Outlook in Excel?