Excel'de VBA kullanarak bir e-postaya belirli bir grafiği nasıl ekleyebilirim?
Excel’de VBA koduyla Outlook üzerinden e-posta göndermeyi biliyor olabilirsiniz. Peki ya belirli bir çalışma sayfasındaki özel grafiği doğrudan e-posta gövdesine nasıl ekleyeceğinizi biliyor musunuz? Bu makale, tam da bu sorunu çözmenize yardımcı olacak yöntemi adım adım gösterecektir.
Excel'de VBA koduyla bir e-postaya belirli bir grafik gönderme
Excel'de VBA koduyla bir e-postaya belirli bir grafik gönderme
Excel'de VBA koduyla bir e-postaya belirli bir grafiği eklemek için lütfen aşağıdaki adımları izleyin.
1. E-posta gövdesine eklemek istediğiniz grafiği içeren çalışma sayfasında, Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applications penceresinde, lütfen Ekle > Modül seçeneğine tıklayın. Ardından aşağıdaki VBA kodunu Kod penceresine kopyalayın.
VBA kodu: Excel'de bir e-postaya belirli bir grafik 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 adresi ve e-posta konusu bilgilerini .To = "xrr@163.com" satırı ile .Subject = "Grafiği Outlook e-posta gövdesine ekle" satırında güncelleyin; Sheet1, göndermek istediğiniz grafiği içeren sayfadır—bunu kendi sayfanızla değiştirin.
3. Kodu çalıştırmak için F5 tuşuna basın. Açılan Kutools for Excel iletişim kutusuna, e-posta gövdesine eklemek istediğ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 grafiği gövdesinde içeren bir e-posta otomatik olarak oluşturulur. E-postayı göndermek için **Gönder** düğmesine tıklayın.
KUTOOLS AI ile Excel'in Sihirli Gücünü Açığa Çıkarın
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsi basit komutlarla çalışan grafikler oluşturun.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca çözmek artık çok daha basit!
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
İlgili makaleler:
- Excel'de hücredeki değere göre e-posta nasıl otomatik gönderilebilir?
- Excel'de VBA kullanarak e-posta gönderirken Outlook mesajına imza nasıl eklenir?
- Excel'de günün belirli bir saatinde e-posta nasıl gönderilebilir?
- Excel'de HTML e-posta gövdesiyle e-posta nasıl gönderilir?
- Excel'de belirtilen kalın, boyut, renk ve alt çizgi gibi Metin Biçimi biçimlendirmesiyle e-posta nasıl gönderilir?
- Excel'de Outlook kullanmadan e-posta nasıl gönderilebilir?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar