Excel’deki bir listeden Outlook üzerinden birden fazla alıcıya nasıl e-posta gönderirim?
Çalışma ortamınızda, bir Excel çalışma sayfasının bir sütununda e-posta adresleri listesiyle sıkça karşılaşabilirsiniz—bülten dağıtımı, fatura gönderimi ya da bir etkinliğin katılımcılarını bilgilendirme gibi birçok senaryoda. Her adresi manuel olarak girmek veya e-posta oluşturmak için ayrı ayrı Outlook’a geçmek yerine, Excel bu süreci doğrudan tüm alıcılara mesaj göndererek kolaylaştırabilir. Bu kılavuz, Excel’i Outlook ile entegre kullanarak aynı anda birden fazla alıcıya e-posta göndermenizi sağlayacak ve zaman kazandıran, hataları en aza indiren detaylı çözümler sunar.
VBA koduyla Excel'den birden fazla alıcıya e-posta gönderin
VBA kodu kullanarak Geçerli Çalışma Kitabı'i ek olarak içeren birden fazla alıcıya e-posta gönderin
Alternatif çözüm: Noktalı virgülle ayrılmış E-posta Adresi'leri Excel formülüyle gönderin
VBA koduyla Excel'den birden fazla alıcıya e-posta gönderin
Aynı e-postayı bir gruba aynı anda göndermek istiyorsanız ve Adres Listeleriniz bir çalışma sayfasının sütununda saklanıyorsa, bu işlemi otomatikleştirmek için VBA kodundan yararlanabilirsiniz. Özellikle Outlook’ta alıcıları tek tek eklemek zorunda kalmadan toplu bildirimler veya grup güncellemeleri yapmak için bu yöntem son derece pratiktir. Lütfen aşağıdaki adımları izleyin:
1. ALT + F11 tuşlarına birlikte basarak Microsoft Visual Basic for Applications penceresini açın. Geliştirici sekmesini etkinleştirmediyseniz, Excel ayarlarından talimatları bulabilirsiniz.
2. VBA penceresinde, Ekle > Modül seçeneğine tıklayın. Bu işlem, kodunuzu girebileceğiniz boş bir Modül penceresi açar. Aşağıdaki kodu buraya yapıştırın:
VBA kodu: Birden fazla alıcıya e-posta gönderme
Sub sendmultiple()
'updateby Extendoffice
Dim xOTApp As Object
Dim xMItem As Object
Dim xCell As Range
Dim xRg As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOTApp = CreateObject("Outlook.Application")
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
Set xMItem = xOTApp.CreateItem(0)
With xMItem
.To = xEmailAddr
.Display
End With
End Sub
3. Kodu çalıştırmak için F5tuşuna basın (veya Çalıştır’a tıklayın). Çalışma sayfanızdan adres listesini seçmenizi isteyen bir iletişim kutusu göreceksiniz. Bu adım, e-posta adresi içeren tüm hücreleri kolayca seçmenizi ve yalnızca e-posta biçimine ()*@*) uyan alıcıların dahil edilmesini sağlar. Ekran görüntüsüne bakın:
4. Adresleri seçtikten sonra Tamam düğmesine tıklayın. Outlook, seçilen adreslerin İleti penceresinin Kime alanına otomatik olarak eklendiği yeni bir pencere açar. Artık konunuzu belirleyebilir ve ihtiyacınıza göre mesajınızı yazabilirsiniz. Pencere, kişiselleştirme veya açıklama amacıyla gerektiğinde ek düzenlemelere de olanak tanır. Ekran görüntüsüne bakın:
5. Mesajınız tamamlandığında, Gönder düğmesine tıklayarak e-postayı listedeki tüm alıcılara eşzamanlı olarak gönderin. Bu yaklaşım, hiçbir adresi kaçırmamanızı ve grup iletişiminizi hızlandırmanızı sağlar.
İpucu: Bu yöntemin sorunsuz çalışması için Outlook’un kurulu olduğundan ve varsayılan e-posta istemcisi olarak ayarlandığından emin olun. İletişim kutusu görünmüyorsa, Excel’deki makro güvenlik ayarlarınızı yeniden gözden geçirin.
Uygulanabilir senaryolar: Bu yöntemi, ekip duyuruları, etkinlik bildirimleri veya aynı bilgiyi birden fazla kişiye göndermek için kullanın. Avantajı, minimum manuel girişle hız ve doğruluk sağlaması; dezavantajı ise bireysel alıcılar için mesaj kişiselleştirmesine olanak tanımamasıdır.
Sorun Giderme: Outlook ileti penceresi açılmıyorsa, öncelikle Outlook’un düzgün çalıştığından ve varsayılan posta istemcisi olarak ayarlandığından emin olun. Ayrıca, seçili tüm hücrelerin geçerli e-posta adresleri içerdiğinden emin olun; hata işleme mekanizması olsa da, en iyi sonuçlar için boş ya da yanlış biçimlendirilmiş hücrelerden kaçının.
Farklı eklerle birden fazla alıcıya kişiselleştirilmiş e-posta gönderin: Daha gelişmiş ihtiyaçlarınız varsa—örneğin benzersiz ekler göndermek, özelleştirilmiş içerik oluşturmak veya CC/Bcc alıcılarını otomatik olarak eklemek istiyorsanız—Kutools for ExcelE-posta Gönder özelliği, Excel'den Outlook üzerinden kişiselleştirilmiş e-postaları hızlı ve kolayca göndermenizi sağlar. Bu özellik, her alıcı için e-postalarınızı özelleştirmenize, ayrı ekler eklemenize ve daha esnek bir toplu e-posta gönderimi için ihtiyacınıza göre CC veya Bcc alıcılarını dahil etmenize olanak tanır.Kutools for Excel'i indirmek için tıklayın!
|
VBA kodu kullanarak Geçerli Çalışma Kitabı'i ek olarak içeren birden fazla alıcıya e-posta gönderin
Mevcut Excel çalışma kitabınızı bir grup alıcıya ek olarak göndermeniz gerekiyorsa, aşağıdaki VBA çözümü bu süreci otomatikleştirmenize yardımcı olabilir. Bu yöntem, raporları, finansal özetleri veya işbirlikçi belgeleri birden fazla paydaşla paylaşmak için idealdir.
1. Excel'i açın ve ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications ortamını başlatın.
2.VBA düzenleyicide,Ekle>Modülyolunu izleyin ve ardından aşağıdaki kodu modül penceresine kopyalayıp yapıştırın:
VBA kodu: Geçerli Çalışma Kitabı'i ek olarak içeren birden fazla alıcıya e-posta gönderme
Sub EmailAttachmentRecipients()
'updateby Extendoffice
Dim xOutlook As Object
Dim xMailItem As Object
Dim xRg As Range
Dim xCell As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOutlook = CreateObject("Outlook.Application")
Set xMailItem = xOutlook.CreateItem(0)
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
With xMailItem
.To = xEmailAddr
.CC = ""
.Subject = ""
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set xOutlook = Nothing
Set xMailItem = Nothing
End Sub
3. Kodu çalıştırmak için F5 tuşuna basın. E-posta adresi hücrelerinizi seçmeniz için bir iletişim kutusu açılacaktır. Bu mekanizma, çalışma sayfanızdaki tüm ilgili alıcıları kolayca dahil etmenize ve yalnızca doğru biçimlendirilmiş e-posta adreslerinin eklenmesini sağlar. Aşağıdaki ekran görüntüsüne bakın:
4. Seçiminizi onayladıktan sonra Tamam düğmesine tıklayın. Outlook, seçtiğiniz alıcıyı otomatik olarak İleti penceresinin Kime alanına yerleştirir ve açık olan çalışma kitabını bir ek olarak ekler. Göndermeden önce mesaj içeriğini ve konu satırını istediğiniz gibi kişiselleştirebilirsiniz. Ekran görüntüsüne bakın:
5.Gönder düğmesine tıklayarak çalışma kitabını ekleyin ve e-postanızı tüm Alıcıyı Seç’e tek seferde gönderin.
Uyarı: Çalışma kitabınız hassas bilgiler içeriyorsa, göndermeden önce alıcı listesini dikkatlice doğrulayın. Dosya eklenirken bir hata oluşursa, çalışma kitabının kaydedildiğinden ve başka bir programda açık olmadığından emin olun; ayrıca Outlook’un otomasyon yoluyla e-posta göndermek üzere doğru şekilde yapılandırıldığından emin olun.
Kullanım senaryoları: Bu çözüm, periyodik raporların dağıtımı, işbirlikçi çalışma kitaplarının gönderilmesi veya ekip ve müşterilerle başvuru dosyalarının paylaşımı gibi durumlarda yaygın olarak tercih edilir. Toplu belge teslimatı için son derece verimlidir; ancak alıcı başına ayrı ekler eklenmesine olanak sağlamaz.
Yaygın sorunlar: İletişim kutusu açılmazsa veya e-posta gönderilemezse, makrolara izin verdiğinizden ve kodu çalıştırmadan önce çalışma kitabınızı kaydettiğinizden emin olun. Seçiminizdeki boş hücreleri tekrar kontrol edin; çünkü kod, standart e-posta biçimlerine uymayan içerikleri atlar.
Alternatif çözüm: Noktalı virgülle ayrılmış E-posta Adresi'leri Excel formülüyle gönderin
E-posta adreslerinizi tek bir hücrede—Outlook’un Kime, CC veya Bcc alanlarına kolayca kopyalanabilmesi için—noktalı virgülle birleştirmek istiyorsanız, özellikle makroları kullanmak istemediğiniz durumlarda Excel formülleri hızlı ve basit bir çözüm sunar.
1. E-posta adresleriniz A sütununda, 1 ila 7. satırlarda listelenmiş olsun. Boş bir hücreye (örneğin B1) aşağıdaki formülü girin:
=TEXTJOIN(";",TRUE,A1:A7)2.Enter tuşuna basın. Sonuç, Aralık seç'teki tüm E-posta Adresi'lerini noktalı virgülle ayrılmış şekilde içeren tek bir metin dizesi olacak. Ardından bu hücreyi kopyalayıp Outlook'un alıcı alanlarına doğrudan yapıştırabilirsiniz.
Formül parametreleri:
- TEXTJOIN: Belirtilen sınırlayıcıyı (bu durumda noktalı virgül) kullanarak bir hücre aralığını tek bir metne dönüştürür.
- DOĞRU: Aralıkta bulunan tüm boş hücreleri dışlar. Tüm geçerli e-posta adresleri, aralarında boşluk bırakılmadan birleştirilir.
- A1:A10: E-posta adresi listenize uyacak şekilde bu aralığı ayarlayın.
Avantajlar: Bu yaklaşım, VBA'nın kısıtlandığı ortamlarda bile makroların etkinleştirilmesine gerek kalmadan kullanılabilir. Ayrıca Outlook’a özel olmaksızın, derlenmiş bir listeyi herhangi bir e-posta platformuna hızlıca kopyalamak için son derece kullanışlıdır.
Sınırlamalar: VBA’dan farklı olarak, e-posta oluşturmaz veya gönderim işlemini otomatikleştirmez; ancak alıcı listeleriyle çalışırken verimliliğinizi artırır.
İpucu: Listeniz değişirse formül aralığını buna göre güncellemeyi unutmayın. Noktalı virgül dışında başka bir ayırıcı kullanıyorsanız, ";" ifadesini tercih ettiğiniz karakterle değiştirin.
İlgili makale:
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