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 .To = "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?
En İyi Ofis Üretkenliği Araçları
Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır
- Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
- Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
- Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
- Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
- Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
- Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
- Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
- Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
- 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
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!
