Excel'de her sayfayı farklı e-posta adreslerine nasıl gönderirsiniz?
Birden fazla çalışma sayfası içeren bir Excel çalışma kitabınız varsa ve her sayfanın S1 hücresinde bir e-posta adresi yer alıyorsa, bu sayfaları ilgili alıcılara ayrı ayrı ek olarak göndermek isteyebilirsiniz. Özellikle çok sayıda sayfa söz konusu olduğunda bu işlemi manuel olarak gerçekleştirmek oldukça zahmetlidir. Bu eğitimde, Excel dosyanızdaki her çalışma sayfasını S1 hücresinde belirtilen e-posta adresine otomatik olarak ek olarak göndermek için VBA kodunun nasıl kullanılacağını adım adım göstereceğiz.
Excel'den VBA kodu ile her sayfayı farklı E-posta Adresi'lere gönderin
Aşağıdaki VBA kodu, her çalışma sayfasını S1 hücresinde belirtilen ilgili alıcıya ek olarak göndermenizi sağlar. Lütfen aşağıdaki adımları uygulayın:
1. Alt+F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ardından, Ekle > Modül seçeneğine tıklayın ve aşağıdaki VBA kodunu pencereye kopyalayıp yapıştırın.
VBA kodu: Her sayfayı farklı E-posta Adresi'lere ek olarak gönderme
Sub Mail_Every_Worksheet()
'Updateby ExtendOffice
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xFileExt As String
Dim xFileFormatNum As Long
Dim xTempFilePath As String
Dim xFileName As String
Dim xOlApp As Object
Dim xMailObj As Object
On Error Resume Next
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
xTempFilePath = Environ$("temp") & "\"
If Val(Application.Version) < 12 Then
xFileExt = ".xls": xFileFormatNum = -4143
Else
xFileExt = ".xlsm": xFileFormatNum = 52
End If
Set xOlApp = CreateObject("Outlook.Application")
For Each xWs In ThisWorkbook.Worksheets
If xWs.Range("S1").Value Like "?*@?*.?*" Then
xWs.Copy
Set xWb = ActiveWorkbook
xFileName = xWs.Name & " of " _
& VBA.Left(ThisWorkbook.Name, VBA.InStr(ThisWorkbook.Name, ".") - 1) & " "
Set xMailObj = xOlApp.CreateItem(0)
xWb.Sheets.Item(1).Range("S1").Value = ""
With xWb
.SaveAs xTempFilePath & xFileName & xFileExt, FileFormat:=xFileFormatNum
With xMailObj
'specify the CC, BCC, Subject, Body below
.To = xWs.Range("S1").Value
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Attachments.Add xWb.FullName
.Display
End With
.Close SaveChanges:=False
End With
Set xMailObj = Nothing
Kill xTempFilePath & xFileName & xFileExt
End If
Next
Set xOlApp = Nothing
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
- S1, e-postayı göndermek istediğiniz e-posta adresinin bulunduğu hücredir. E-posta adresiniz A1 gibi farklı bir hücredeyse, bu değişikliği yansıtmak için kodu güncelleyebilirsiniz.
- Koddaki CC, BCC, Konu ve Gövde alanlarını kendi tercihlerinize göre belirleyebilirsiniz;
- Yeni bir ileti penceresi açmadan e-postayı doğrudan göndermek istiyorsanız, .Display ifadesini .Send olarak değiştirmeniz gerekir.
3. Ardından, bu kodu çalıştırmak için F5 tuşuna basın; her sayfa otomatik olarak yeni ileti penceresine eklenir. Ekran görüntüsüne bakın:
4. Son olarak, e-postaları tek tek göndermek için Gönder düğmesine tıklayın.
Kutools for Excel: Kişiselleştirilmiş e-postaları tek tıkla kolayca gönderin!
Müşteri e-postalarını tek tek göndermekten bıktınız mı? Kutools for Excel’in “E-posta Gönder” özelliğiyle iletişim daha hızlı ve profesyonel hale gelir! Sadece isimler, e-posta adresleri, kayıt kodları ve yer tutucular içeren bir Excel dosyası hazırlayın—sistem otomatik olarak kişiselleştirilmiş e-postaları oluşturacak ve hepsini tek bir tıklamayla yüzlerce kişiye gönderecektir. Artık tekrarlı işler yok!
- 💡 Dinamik yer tutucular (örneğin, ad veya kayıt kodu), her alıcının e-postasını otomatik olarak kişiselleştirerek mesajın özel olarak hazırlanmış hissini yaratır.
- 📎 Doğru teslimat için kişiselleştirilmiş dosyalar ekleyin
- 📤 Outlook ile sorunsuz entegrasyon sayesinde güvenli ve güvenilir gönderim sağlar
- 📝 Maksimum verimlilik için e-posta şablonlarını kaydedin ve tekrar kullanın
- 🎨 Kullanımı kolay ne-görürsen-onu-alırsın düzenleyici
- 🖋 Outlook imzanızı kullanır—ekstra ayar gerekmez, gönder'e tıklayın yeter!
- Hemen Kutools for Excel'i Edinin!
En İyi Office Üretkenlik Araçları
Kutools for Excel ile Excel becerilerinizi üst seviyeye taşıyın ve hiç yaşamadığınız bir verimlilik deneyimi 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 arayüz getirir ve 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.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük üretkenliğinizi %50 artırır ve size her gün yüzlerce fare tıklamasından tasarruf sağlar!
Tüm Kutools eklentileri — tek bir yükleyiciyle!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileri ve ayrıca Office Tab Pro’yu içerir; bu da Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— dakikalar içinde kurulum (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— tek tek eklenti satın alımına göre tasarruf edin