Büyük bir grup insana toplu e-posta göndermeniz gerektiğinde, tekrarlayan görevleri hızlı bir şekilde yerine getirebilecek otomatik bir sürece ihtiyacınız olacaktır. Excel dosyası ile toplu e-posta göndermenin en yaygın yoludur. Bu nedenle, bu eğitimde size bir e-posta dosyasından nasıl e-posta gönderileceğini göstereceğiz. Excel listesini çok sayıda kişiye otomatik olarak gönderir.

Alıştırma Çalışma Kitabını İndirin

Bu makaleyi okurken egzersiz yapmak için bu alıştırma çalışma kitabını indirin.

Excel Listesinden E-posta Göndermek için 2 Kullanışlı Yaklaşım

Aşağıdaki görsele bazı kişilerin isimlerinin yanı sıra e-postalarını ve kayıt numaralarını içeren bir veri seti ekledik. Excel listesinde, her bireye e-posta göndermeliyiz. Bunu başarmak için Microsoft Word'ün Adres Mektup Birleştirme fonksiyon ardından bir VBA Mevcut listeden tercih edilen kişilere e-posta göndermek için kod.

1. Excel Listesinden Birden Fazla E-posta Göndermek için Adres Mektup Birleştirme İşlevini Uygulayın

⇒ Adım 1: Yeni Bir Word Dosyası Açın

• Boş bir sayfa açın Kelime Belge.
• üzerine tıklayın. Postalar sekmesi.
• Bu kitaptan Alıcıları Seçin seçeneğini seçerseniz Mevcut Bir Listeyi Kullanın seçenek.

⇒ Adım 2: Excel Listesini Word Dosyasına Bağlayın

• Seçiniz Excel dosyasında listeyi oluşturduğunuz yere gidin ve Açık dosyayı açmak için.

• Listeyi yazdığınız sayfa numarasını seçin.
• Ardından, tıklayın TAMAM. .

⇒ Adım 3: Alanları Ekleyin

• Bu kitaptan Postalar seçeneğine tıkladığınızda Birleştirme Alanı Ekle seçeneğini kullanarak eklemek istediğiniz alanları girin.
• İlk olarak İsim alanına tıklayarak ve genel postanın tercih edilen konumunda.

• Aşağıdaki resimde gösterildiği gibi, ekledikten sonra İsim alanında, her kişinin adının değişkeni olarak gösterilecektir.

• Benzer şekilde, yerleştirin Reg alanını metin mesajında istediğiniz yere yerleştirin.

• Bu nedenle, aşağıda gösterilen görüntü gibi görünecektir.

⇒ Adım 4: Önizleme Sonuçlarını Kontrol Edin

• üzerine tıklayın. Önizleme Sonuçları e-postayı göndermeden önce son önizlemeyi görmek için.
• Aşağıdaki ekran görüntüsü örnek bir e-postanın nasıl görüneceğini göstermektedir.

⇒ Adım 5: E-postaları Birleştirin

• E-postaları birleştirmek için Bitir & Birleştir seçenek.
• Açmak için E-posta ile Birleştir kutusunu seçin, ardından E-posta Mesajları Gönderme seçenek.

• Kime kutusunda, şu öğeyi seçin E-posta seçenek.
• Tercih ettiğiniz bir konu satırını Konu satırı Kutu.
• Posta formatı şu şekilde olacaktır HTML varsayılan olarak, bu yüzden değiştirmenize gerek yoktur.
• Kayıtları Gönder seçeneğinde Tümü .
• Son olarak TAMAM. e-postaları aynı anda birden fazla alıcıya göndermek için.

• Sonuç olarak, tüm e-postalar ilişkili e-postalarınız aracılığıyla gönderilecektir. Görünüm Kontrol edin Görünüm e-postaların gönderildiğini onaylamak için gönderildi seçeneği.

• Gönderilen bir e-postayı açtığınızda, her alanın belirli bir kişinin bilgileriyle dolu olduğunu fark edeceksiniz.

Daha fazlasını okuyun: Excel'de Koşul Karşılandığında Otomatik Olarak E-posta Gönderme

Benzer Okumalar

• Düzenlenebilir Excel Elektronik Tablosu E-posta ile Nasıl Gönderilir (3 Hızlı Yöntem)
• [Çözüldü]: Çalışma Kitabını Paylaş Excel'de Gösterilmiyor (Kolay Adımlarla)
• VBA Kullanarak Excel Çalışma Sayfasından Otomatik Olarak Hatırlatma E-postası Gönderme
• Paylaşılan Bir Excel Dosyasında Kimlerin Olduğunu Görme (Hızlı Adımlarla)
• Excel'de Çalışma Kitabını Paylaşma Nasıl Etkinleştirilir

2. Bir Aralık Seçiminden E-posta Göndermek için VBA Kodunu Çalıştırma

Tanrı'nın lütfuyla VBA 'den e-posta göndermek için bir program oluşturabilirsiniz. Excel tercih edilen aralık seçimi ile listeleyin. Görevi yapmak için aşağıdaki özetlenen adımları izleyin.

⇒ Adım 1: Bir Modül Oluşturun

• Açmak için VBA Makro , basın Alt + F11 .
• üzerine tıklayın. Ekleme sekmesi.
• Seçiniz Modül oluşturmak için Modül .

⇒ Adım 2: VBA Kodlarını Yapıştırın

• Yeni Modül , aşağıdakileri yapıştırın VBA kodu .

 #If VBA7 And Win64 Then 'Ptr, 32 bit'ten 64 bit'e geçiş için kullanılır Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal wnd As LongPtr, ByVal lpDirect As String, _ ByVal Parameters As String, ByVal File As String, ByVal Operation As String, _ ByVal nCmd As Long) As LongPtr #Else #End If Sub SendExcelListEMail() 'Değişkenleri bildir DimxMailAdd As String Dim xRegCode As String Dim xBody As String Dim xURLink As String Dim xRngCell As Range Dim xIntRg As Range Dim xSelectTxt As String Dim k As Integer Dim p As Double On Error Resume Next 'Select range select adddress xSelectTxt = ActiveWindow.RangeSelection.Address 'Aralık seçimi için bir Giriş kutusu oluştur Set xIntRg = Application.InputBox("Please Input Excel data range:","ExcelWIKI", xSelectTxt, , , , 8) 'İşlem için sütun numaralarını belirtmek üzere If koşulunu uygulayın If xIntRg Is Nothing Then Exit Sub If xIntRg.Columns.Count 3 Then 'Koşul karşılanmadığında sonucu bir msg kutusunda gösterin MsgBox "Error with Region Selection, please confirm", , "ExcelWIKI" Exit Sub End If 'İşlemi her satırda ayrı ayrı çalıştırmak için For döngüsünü uygulayın For k = 1 To xIntRg.Rows.Count' E-posta adresini toplayın ve xMailAdd = xIntRg.Cells(k, 2) değişkenine ayarlayın ' E-posta için bir konu verin xRegCode = "ExcelWIKI Kayıt No." ' E-postanın gövdesini yazın xBody = "" ' İsimleri xIntRg değişkeniyle ekleyin xBody = xBody & "Greetings " & xIntRg.Cells(k, 1) & "," & vbCrLf & vbCrLf xBody = xBody & "Here is your ExcelWIKI Registration No." ' InsertKayıt No. xIntRg değişkeni ile xBody = xBody & xIntRg.Cells(k, 3).Text & "." & vbCrLf & vbCrLf xBody = xBody & "Sitemizi ziyaret ettiğiniz için çok mutluyuz, bizi desteklemeye devam edin." & vbCrLf xBody = xBody & "ExcelWIKI Ekibi" ' Boşlukları (hex) ile tanımlayın xRegCode = Application.WorksheetFunction.Substitute(xRegCode, " ", "%20") xBody =Application.WorksheetFunction.Substitute(xBody, " ", "%20") ' Satır başlarının (hex) ile değiştirileceğini belirtin xBody = Application.WorksheetFunction.Substitute(xBody, vbCrLf, "%0D%0A") ' URL Bağlantısını oluşturun xURLink = "mailto:" & xMailAdd & "?subject=" & xRegCode & "&body=" & xBody ' E-posta göndermeye başlamak için Bağlantıyı kullanın ShellExecute 0&, vbNullString, xURLink, vbNullString,vbNullString, vbNormalFocus ' tuş vuruşlarını göndermek için üç saniye aralık Application.Wait (Now + TimeValue("0:00:03")) Application.SendKeys "%s" Next End Sub 

⇒ Adım 3: Programı Çalıştırın

• Basın F5 programı çalıştırmak için.
• Seçiniz giriş kutusundaki aralık.
• Tıklayın TAMAM. e-postaları göndermek için.

• Sonuç olarak, aşağıdaki resimde gösterildiği gibi, gönderilen e-postaların önizlemeleri görünecektir.

• Son olarak, onay için gönderilen e-postaları kontrol edebilirsiniz.

Daha fazlasını okuyun: Excel'de Koşullar Sağlandığında E-posta Gönderme (3 Kolay Yöntem)

Sonuç

Umarım bu makale size bir bilgisayardan toplu e-postaların nasıl gönderileceği hakkında bir eğitim vermiştir. Excel Tüm bu prosedürler öğrenilmeli ve veri setinize uygulanmalıdır. Alıştırma çalışma kitabına bir göz atın ve bu becerileri test edin. Değerli desteğiniz sayesinde bunun gibi eğitimler hazırlamaya devam etmek için motive oluyoruz.

Herhangi bir sorunuz varsa lütfen bizimle iletişime geçin. Ayrıca, aşağıdaki bölüme yorum bırakmaktan çekinmeyin.

Bizler Exceldemy Ekip, sorularınıza her zaman duyarlıdır.

Bizimle kalın ve öğrenmeye devam edin.