Excel'den Outlook aracılığıyla bir listeye kişiselleştirilmiş toplu e-postalar nasıl gönderilir?

Örneğin, aşağıdaki gibi bir çalışma sayfasında Ad, E-posta Adresi ve Kayıt Kodu sütunlarını içeren bir veri aralığı olduğunu varsayalım. Şimdi, A sütunundaki ayrılmış E-posta Adreslerine kişisel bir selamlama ve kendi Kayıt Kodları ile bir mesaj göndermek istiyorum. Bu sorunu çözmek için aşağıdaki yöntemler size yardımcı olabilir.

Mail Birleştirme işleviyle Excel'den bir listeye kişiselleştirilmiş toplu e-postalar gönderin

VBA koduyla Excel'den bir listeye kişiselleştirilmiş toplu e-postalar gönderin

Kutools for Excel kullanarak farklı eklerle bir listeye kişiselleştirilmiş toplu e-postalar gönderin

Mail Birleştirme işleviyle Excel'den bir listeye kişiselleştirilmiş toplu e-postalar gönderin

Word'un Mail Birleştirme işleviyle bu işi hızlı ve kolay bir şekilde tamamlayabilirsiniz, lütfen aşağıdaki adımları takip edin:

1. Yeni boş bir Word belgesi açın ve ardından E-postalar > Alıcı Seç > Varolan Liste Kullan'ı tıklayın, ekran görüntüsüne bakın:

2. Veri Kaynağı Seç penceresinde, kullanmak istediğiniz veri aralığını içeren çalışma kitabını seçin ve Aç düğmesini tıklayın, ekran görüntüsüne bakın:

3. Gelen Tablo Seç iletişim kutusunda, ihtiyacınız olan veri aralığını içeren çalışma sayfasını seçin ve ardından Tamam düğmesini tıklayın, ekran görüntüsüne bakın:

4. Ve E-posta mesajı ana belgesi ile adres listeniz birleştirilmiştir, şimdi metin mesajını düzenleyebilir ve her mesajda benzersiz bilgilerin nerede görüneceğini gösteren yer tutucular ekleyebilirsiniz.

(1.) Kişisel selamlama adını eklemek için, E-postalar > Birleştirme Alanı Ekle > Ad'ı tıklayın, kişisel ad mesaja eklenmiş olup, alan adı « » ile çevrilidir.

(2.) Mesajınızı yazmaya devam edin ve Kayıt Kodunu ihtiyaç duyduğunuz yere ekleyin, ekran görüntüsüne bakın:

5. Mesajı oluşturduktan sonra, birleştirme işlemini tamamlamadan önce E-postalar sekmesi altında Önizleme Sonuçları'nı tıklayarak E-posta mesajlarını önizleyebilir ve değişiklik yapabilirsiniz.

6. Herhangi bir sorun olmadığından emin olduktan sonra, ayrı alıcılara E-postaları gönderebilirsiniz, lütfen E-postalar > Birleştir ve Gönder > E-posta Mesajı Gönder'i tıklayın, ekran görüntüsüne bakın:

7. Ardından açılan E-postaya Birleştir iletişim kutusunda, aşağıdaki işlemleri yapın:

(1.) To açılır listesinden, lütfen Email_Address sütununu seçin;

(2.) Konu satırı metin kutusuna konuyu yazabilirsiniz;

(3.) Kayıt Gönder bölümüne, Tümünü seçin.

8. Ve ardından Tamam'ı tıklayın, e-postalar hemen ayrı alıcılara kendi kayıt kodlarıyla birlikte gönderilir, e-postaları gönderdikten sonra, e-postaların başarıyla gönderildiğinden emin olmak için Outlook'a gidebilirsiniz.

VBA koduyla Excel'den bir listeye kişiselleştirilmiş toplu e-postalar gönderin

Mail Birleştirme işlevinden başka, aşağıdaki VBA kodu da size yardımcı olabilir, lütfen şu şekilde yapın:

1. ALT + F11 tuşlarına basılı tutun ve Microsoft Visual Basic for Applications penceresi açılır.

2. Ekle Insert > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Excel'den bir listeye kişiselleştirilmiş toplu e-postalar gönderin:

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As LongPtr, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As LongPtr
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                         ByVal hwnd As Long, ByVal lpOperation As String, _
                         ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
                         ByVal nShowCmd As Long) As Long
#End If
Sub SendEMail()
'update by Extendoffice 20160506
    Dim xEmail As String
    Dim xSubj As String
    Dim xMsg As String
    Dim xURL As String
    Dim i As Integer
    Dim k As Double
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count <> 3 Then
        MsgBox " Regional format error, please check", , "Kutools for Excel"
        Exit Sub
    End If
    For i = 1 To xRg.Rows.Count
'       Get the email address
        xEmail = xRg.Cells(i, 2)
'       Message subject
        xSubj = "Your Registration Code"
'       Compose the message
        xMsg = ""
        xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
        xMsg = xMsg & " This is your Registration Code "
        xMsg = xMsg & xRg.Cells(i, 3).Text & "." & vbCrLf & vbCrLf
        xMsg = xMsg & " please try it, and glad to get your feedback! " & vbCrLf
        xMsg = xMsg & "Skyyang"
'       Replace spaces with %20 (hex)
        xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
        xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
'       Replace carriage returns with %0D%0A (hex)
        xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
'       Create the URL
        xURL = "mailto:" & xEmail & "?subject=" & xSubj & "&body=" & xMsg
'       Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
'       Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:02"))
        Application.SendKeys "%s"
    Next
End Sub

3. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve kullanmak istediğiniz veri aralığını seçmenizi hatırlatan bir uyarı kutusu açılacaktır, ekran görüntüsüne bakın:

4. Ve ardından Tamam düğmesini tıklayın, e-postalar ayrı adreslere bireysel kayıt kodlarıyla tek tek gönderilecektir, e-postaları gönderdikten sonra, e-postaların başarıyla gönderildiğinden emin olmak için Outlook'a gidebilirsiniz.

Not: Yukarıdaki kodda, konuyu veya ileti gövdesini ihtiyaçlarınıza göre değiştirebilirsiniz.

Kutools for Excel kullanarak farklı eklerle bir listeye kişiselleştirilmiş toplu e-postalar gönderin

Kutools for Excel'iniz varsa, E-posta Gönderme özelliğiyle ihtiyaç duyduğunuz şekilde birden fazla alıcıya farklı eklerle kişiselleştirilmiş e-postalar hızlıca gönderebilirsiniz.

Kutools for Excel'i yükledikten sonra, lütfen şu şekilde yapın:

1. Kutools Plus > E-postalar Gönder'i tıklayın, ekran görüntüsüne bakın:

2. E-postalar Gönder iletişim kutusunda, kullanmak istediğiniz veri aralığını seçin ve ardından alıcı adreslerini, ekleri ve konuyu ihtiyaçlarınıza göre belirtin, ekran görüntüsüne bakın:

3. Düzenleme kutusunda, bireysel selamlama isimlerini ekleyin, lütfen açılır listeden Ad'ı seçin ve ardından isimleri mesaja eklemek için Yer Tutucu Ekle'yi tıklayın, ekran görüntüsüne bakın:

4. Ardından mesaj gövdesini ihtiyaçlarınıza göre kutuya yazın, ekran görüntüsüne bakın:

5. E-posta gövdesini tamamladıktan sonra, gönderme modunu seçin, Outlook'u kullanarak veya belirtilen sunucunuzu kullanarak gönderebilirsiniz, ekran görüntüsüne bakın:

Not: Başka bir sunucu kullanmak istiyorsanız, gönderme modunu kendi ayarlarınıza göre ayarlamak için Giden Sunucu Ayarları'nı tıklayın, ekran görüntüsüne bakın:

6. Son olarak, e-postaları göndermek için Gönder düğmesini tıklayın, işlem tamamlandıktan sonra, gönderim durumunu hatırlatan bir uyarı kutusu açılacaktır. Ekran görüntüsüne bakın:

Kutools for Excel'i Şimdi İndirin ve Ücretsiz Deneyin!

Demo: Excel'den Outlook aracılığıyla bir listeye kişiselleştirilmiş toplu e-postalar gönderin

İlgili makale:

Excel'den Outlook aracılığıyla bir listedeki birden fazla alıcıya e-posta nasıl gönderilir?