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 = ""
.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 .To = "" 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?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
