Excel'de VBA ile bir e-postada belirli bir grafiği nasıl gönderebilirim?

Excel'de VBA kodu kullanarak Outlook aracılığıyla e-posta göndermeyi biliyor olabilirsiniz. Ancak, belirli bir çalışma sayfasında bulunan belirli bir grafiği e-postanın içine nasıl ekleyeceğinizi biliyor musunuz? Bu makale, bu sorunu çözmek için yöntemleri size gösterecektir.

Excel'de VBA kodu ile bir e-postada belirli bir grafiği gönderme

Excel'de VBA kodu ile bir e-postada belirli bir grafiği gönderme

Lütfen Excel'de VBA kodu ile belirli bir grafiği e-posta olarak göndermek için aşağıdaki adımları izleyin.

1. E-posta gövdesine eklemek istediğiniz grafiği içeren çalışma sayfasında, Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Microsoft Visual Basic for Applications penceresinde lütfen Ekle > Modül'e tıklayın. Ardından aşağıdaki VBA kodunu Kod penceresine kopyalayın.

VBA kodu: Excel'de bir e-postada belirli bir grafiği gönderme

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

Not: Kodda, alıcının e-posta adresini ve e-posta konusunu .To = "xrr@163.com" ve .Subject = "Add Chart in outlook mail body" satırlarında değiştirin; Sheet1, göndermek istediğiniz grafiği içeren sayfadır, lütfen bunu kendi bilgilerinizle değiştirin.

3. Kodu çalıştırmak için F5 tuşuna basın. Açılacak olan Kutools for Excel iletişim kutusunda, e-posta gövdesine ekleyeceğiniz grafiğin adını girin ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

Ardından, aşağıdaki ekran görüntüsünde gösterildiği gibi, belirtilen grafik e-posta gövdesinde görüntülenerek otomatik olarak bir e-posta oluşturulur. Lütfen bu e-postayı göndermek için Gönder düğmesine tıklayın.

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!

İlgili makaleler:

• Excel'de hücre değerine göre otomatik olarak e-posta gönderme
• Excel'de VBA ile gönderim yaparken Outlook e-postasına imza ekleme
• Excel'de günün belirli bir zamanında e-posta gönderme
• Excel'de HTML e-posta gövdesiyle e-posta gönderme
• Excel'de belirli kalın/boyut/renk/alt çizgi metin formatıyla e-posta gönderme
• Excel'de Outlook olmadan e-posta gönderme