Excel'de hücrelerde belirtilen e-posta adreslerine nasıl e-posta gönderilir?
Diyelim ki e-posta göndermek istediğiniz bir e-posta adresleri listeniz var ve bu adreslere Excel’de toplu olarak doğrudan e-posta göndermek istiyorsunuz. Bunu nasıl yapabilirsiniz? Bu makale, Excel’de hücrelerde belirtilen birden fazla e-posta adresine e-posta göndermenin yöntemlerini adım adım gösterecektir.
Excel'de hücrelerde belirtilen E-posta Adresi adreslerine VBA ile e-posta gönderin
Kutools for Excel ile hücrelerde belirtilen E-posta Adresi adreslerine kolayca e-posta gönderin
Excel'de hücrelerde belirtilen E-posta Adresi adreslerine VBA ile e-posta gönderin
Aşağıdaki VBA kodu, Excel’de belirtilen e-posta adreslerine e-posta göndermenizi sağlar. Lütfen aşağıdaki adımları uygulayın.
1. E-posta göndermek istediğiniz e-posta adreslerinin bulunduğu çalışma sayfasında, Alt+F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.
2. Açılan Microsoft Visual Basic for Applications penceresinde, aşağıdaki ekran görüntüsünde gösterildiği gibi Araçlar > Başvurular seçeneğine tıklayın.
3. Başvurular – VBAProject iletişim kutusunda, Microsoft Outlook Nesne Kitaplığı seçeneğini bulun ve işaretleyin, ardından Tamam düğmesine tıklayın.
4. Ardından Ekle > Modül seçeneğine tıklayın. Daha sonra aşağıdaki VBA kodunu Modül penceresine kopyalayıp yapıştırın.
VBA kodu: Excel'de hücrelerde belirtilen E-posta Adresi adreslerine e-posta gönderme
Sub SendEmailToAddressInCells()
Dim xRg As Range
Dim xRgEach As Range
Dim xRgVal As String
Dim xAddress As String
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
For Each xRgEach In xRg
xRgVal = xRgEach.Value
If xRgVal Like "?*@?*.?*" Then
Set xMailOut = xOutApp.CreateItem(olMailItem)
With xMailOut
.To = xRgVal
.Subject = "Test"
.Body = "Dear " _
& vbNewLine & vbNewLine & _
"This is a test email " & _
"sending in Excel"
.Display
'.Send
End With
End If
Next
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End SubNot: Kodda hem .Subject = "test" hem de .Body = "Sayın " _ & vbNewLine & vbNewLine & _ "Bu bir test e-postasıdır " & _ "ve Excel'den gönderilmektedir" satırlarında kendi e-posta konunuzu ve mesaj gövdenizi belirtin.
5. Kodu çalıştırmak için F5 tuşuna basın. Açılan Kutools for Excel iletişim kutusunda, e-posta göndermek istediğiniz e-posta adreslerini içeren aralığı seçin ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:
Ardından, seçili e-posta adreslerine göre e-postalar aşağıdaki ekran görüntüsünde gösterildiği gibi oluşturulur. Bu e-postaları göndermek için lütfen Gönder düğmelerine tıklayın.
Notlar:
Kutools for Excel ile hücrelerde belirtilen E-posta Adresi adreslerine e-posta gönderin
Bu bölüm, E-posta Gönder özelliğini Kutools for Excel ile kullanmanızı önerir. Bu özellik sayesinde Excel'de hücrelerde belirtilen e-posta adreslerine kolayca e-posta gönderebilirsiniz. Lütfen aşağıdaki adımları uygulayın.
1. Çalışma sayfanızda başlık hücresiyle birlikte e-posta adresi aralığını seçin, ardından KUTOOLS PLUS > E-posta Gönder seçeneğine tıklayın.
2. Karşılaşılan E-posta Gönder iletişim kutusunda aşağıdaki yapılandırmaları yapın:
3. Ardından kaç adet e-postanın gönderildiğini bildiren bir Kutools for Excel iletişim kutusu açılır. Tamam düğmesine tıklayarak E-posta Gönder iletişim kutusunu kapatın. Ekran görüntüsüne bakın:
Notlar:
Bu yardımcı programın ücretsiz 30 günlük deneme sürümünü almak istiyorsanız, işlemi yukarıdaki adımlara göre uygulamak için lütfen indirmek üzere tıklayın.
Demo: Kutools for Excel ile hücrelerde belirtilen E-posta Adresi adreslerine e-posta gönderme
İlgili makaleler:
- Excel'de, e-posta gövdesine bir sınırlı aralığı kopyalayıp yapıştırarak nasıl e-posta gönderirim?
- Excel'de birden fazla ekli e-posta nasıl gönderilir?
- Excel'de VBA kullanarak e-posta gönderirken Outlook mesajına imza nasıl eklenir?
- Excel'de Bitiş Tarihi karşılandığında e-posta nasıl gönderilir?
- Excel'de hücredeki değere göre e-posta nasıl otomatik olarak gönderilir?
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