Excel'de vba ile bir e-postada belirli bir grafik nasıl gönderilir?

VBA kodu ile Excel'de Outlook üzerinden nasıl e-posta göndereceğinizi biliyor olabilirsiniz. Ancak, belirli bir çalışma sayfasındaki belirli bir grafiği e-postanın gövdesine nasıl ekleyeceğinizi biliyor musunuz? Bu makale size bu sorunu çözme yöntemini gösterecektir.

Excel'de bir e-postada VBA kodu ile belirli bir grafik gönderin

Excel'de bir e-postada VBA kodu ile belirli bir grafik gönderin

Excel'de VBA kodu ile bir e-postada belirli bir grafik göndermek için lütfen aşağıdaki işlemleri yapın.

1. Çalışma sayfasında, e-posta gövdesine eklemek istediğiniz grafiği içerir, Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic pencere, lütfen tıklayın Ekle > modül. Ardından, VBA kodunu Kod penceresine kopyalayın.

VBA kodu: Excel'de bir e-postada belirli bir grafik gönderin

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=" & "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

not: Kodda, lütfen alıcının e-posta adresini ve e-posta konusunu satırda değiştirin .Kime = "xrr@163.com" ve çizgi .Subject = "Outlook posta gövdesine Grafik Ekle" , Sheet1 göndermek istediğiniz grafiği içeren sayfadır, lütfen kendi grafiğinizle değiştirin.

3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Açılışta Kutools for Excel iletişim kutusunda, e-posta gövdesine ekleyeceğiniz grafiğin adını girin ve ardından OK buton. Ekran görüntüsüne bakın:

Ardından, e-posta gövdesinde aşağıda gösterilen ekran görüntüsü gibi gösterilen belirli grafikle otomatik olarak bir e-posta oluşturulur. Bu e-postayı göndermek için lütfen Gönder düğmesine tıklayın.

İlgili yazılar:

• Excel'deki hücre değerine göre otomatik olarak e-posta nasıl gönderilir?
• Excel'de vba ile gönderirken Outlook e-postasına imza nasıl eklenir?
• Excel'de günün belirli bir saatinde bir e-posta nasıl gönderilir?
• Excel'de HTML e-posta gövdesi ile e-posta nasıl gönderilir?
• Excel'de belirtilen kalın / boyut / renk / altı çizili metin biçiminde e-posta nasıl gönderilir?
• Excel'de Outlook olmadan e-posta nasıl gönderilir?