Excel'den Outlook üzerinden bir listedeki verilere dayanarak kişiselleştirilmiş toplu e-posta nasıl gönderilir?
Örneğin, bir çalışma sayfasında Ad, E-posta Adresi ve Kayıt Kodu sütunlarını içeren aşağıdaki Veri Aralığı’na sahibim ve şimdi A sütunundaki her bir kişiye, kendi Kayıt Kodunu içeren kişiselleştirilmiş bir selamlama mesajı göndermek istiyorum. Bu sorunu çözmek için aşağıdaki yöntemler size yardımcı olabilir.
Posta Birleştirme işleviyle Excel'den bir listeden kişiselleştirilmiş toplu e-posta gönderme
VBA koduyla Excel'den bir listeden kişiselleştirilmiş toplu e-posta gönderme
Kutools for Excel kullanarak farklı eklerle bir listeden kişiselleştirilmiş toplu e-posta gönderme
Posta Birleştirme işleviyle Excel'den bir listeden kişiselleştirilmiş toplu e-posta gönderme
Word’ün Posta Birleştirmeişleviyle bu görevi hızlı ve kolayca tamamlayabilirsiniz; lütfen aşağıdaki adımları adım adım uygulayın:
1.Yeni boş bir Word belgesi başlatın ve ardından Postalamalar>Alıcıyı Seç>Mevcut Bir Liste Kullanseçeneğine tıklayın; ekran görüntüsüne bakın:
2.Veri Seç Kaynağıpenceresinde, kullanmak istediğiniz Veri Aralığı'yi içeren çalışma kitabını seçin ve Açdüğmesine tıklayın; ekran görüntüsüne bakın:
3. Gelen Tabloyu Seç iletişim kutusunda, ihtiyacınız olan Veri Aralığı’nı içeren çalışma sayfasını seçin ve ardından Tamam düğmesine tıklayın; ekran görüntüsüne bakın:
4. Böylece e-posta mesajınız, ana belgenizle ve adres listesinizle birbirine bağlanır; artık metin mesajını düzenleyebilir ve her mesajda benzersiz bilgilerin nereye geleceği belirtmek için yer tutucular ekleyebilirsiniz.
(1.) Alıcılara bireysel selamlama adlarını eklemek için Postalamalar > Birleştirme Alanı Ekle > Ad seçeneğine tıklayın; kişiselleştirilmiş ad mesaja otomatik olarak eklenir ve Koşul Adı « » işaretleriyle çevrelenir.
(2.) Mesajınızı yazmaya devam edin ve gerekli yere Kayıt Kodualanını ekleyin; ekran görüntüsüne bakın:
5. Mesajı oluşturduktan sonra, e-posta mesajlarını birleştirme işlemini gerçekleştirmeden önce önizlemek ve gerekli değişiklikleri yapmak için Postalamalar sekmesi altında yer alan Önizleme Sonucu seçeneğine tıklayabilirsiniz.
6. Sorun olmadığından emin olduktan sonra e-postaları ayrı alıcılara gönderebilirsiniz. Bunu yapmak için lütfen Postalamalar > Birleştirmeyi Bitir ve Birleştir > E-posta Mesajı Gönder seçeneğine 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.)Kimeaçılır listesinden E-posta_Adresisütununu seçin;
(2.) Konuyu Konusatırı metin kutusuna yazabilirsiniz;
(3.) Kayıt Gönder bölümünden Tümü seçeneğini işaretleyin.
8. Ardından Tamam düğmesine tıklayın; e-postalar, kendi kayıt kodlarıyla birlikte ayrı alıcılara anında gönderilir. E-postaları gönderdikten sonra, başarıyla gönderildiğinden emin olmak için Outlook’unuza göz atabilirsiniz.
Farklı eklerle birden fazla alıcıya kişiselleştirilmiş e-posta gönderin: Kutools for Excel 'in Kişiselleştirilmiş E-posta Gönderme özelliğine sahip olduğunuzda, Excel'den Outlook aracılığıyla birden fazla alıcıya ihtiyaçlarınıza göre farklı eklerle kişiselleştirilmiş e-postaları anında gönderebilirsiniz. Ayrıca, mesajlara istediğiniz kişiyi CC veya Bcc olarak da ekleyebilirsiniz. Şimdi Kutools for Excel'i indirip ücretsiz deneyin!Download and free trial Kutools for Excel Now!
|
VBA koduyla Excel'den bir listeden kişiselleştirilmiş toplu e-posta gönderme
Posta Birleştirme işlevinin yanı sıra 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; bu işlem, Microsoft Visual Basic for Applications penceresini açar.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Excel'den bir listeden kişiselleştirilmiş toplu e-posta gönderme:
#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 F5tuşuna basın; kullanmak istediğiniz Veri Aralığı'yi seçmenizi hatırlatan bir uyarı kutusu açılacaktır; ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın; e-postalar, ayrı adreslere bireysel kayıt kodlarıyla birer birer gönderilir. E-postaları gönderdikten sonra, başarıyla gönderildiğinden emin olmak için Outlook’unuza göz atabilirsiniz.
Not: Yukarıdaki kodda konuyu veya mesaj gövdesini kendi ihtiyaçlarınıza göre özelleştirebilirsiniz.
Kutools for Excel kullanarak farklı eklerle bir listeden kişiselleştirilmiş toplu e-posta gönderme
Kutools for Excel 'e sahipseniz ve Kişiselleştirilmiş E-posta Gönderme özelliğine sahipseniz, ihtiyaç duyduğunuz gibi farklı eklerle birden fazla alıcıya 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>Kişiselleştirilmiş E-posta Gönderseçeneğine tıklayın; ekran görüntüsüne bakın:
2.Kişiselleştirilmiş E-posta Gönderiletişim kutusunda, kullanmak istediğiniz Veri Aralığı'yi Lütfen seçin, ardından ihtiyaçlarınıza göre alıcı adreslerini, ekleri ve konuyu belirtin; ekran görüntüsüne bakın:
3. Düzenleme kutusuna bireysel selamlama adlarını eklemek için açılır listeden Ad seçeneğini seçin ve ardından adları mesaja eklemek için Yer Tutucu Ekle düğmesine tıklayın; ekran görüntüsüne bakın:
4. Ardından, mesaj gövdenizi 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 istediğiniz gönderim modunu seçin: Outlook üzerinden ya da belirttiğiniz sunucu aracılığıyla gönderebilirsiniz. Ekran görüntüsüne göz atın:
Not: Başka bir sunucu kullanmak istiyorsanız, gönderim modunu kendi sunucunuz olarak ayarlamak için SMTP Ayarlarıseçeneğine tıklayın; ekran görüntüsüne bakın:
6. Son olarak, e-postaları göndermek için Gönder düğmesine tıklayın; işlem tamamlandığında, gönderim durumunu hatırlatan bir uyarı kutusu açılacaktır. Ekran görüntüsüne bakın:
Şimdi Kutools for Excel'i indirip ücretsiz deneyin!
Demo: Excel'den Outlook aracılığıyla bir listeden kişiselleştirilmiş toplu e-posta gönderme
İlgili makale:
Excel’deki bir listeden Outlook üzerinden birden fazla alıcıya e-posta nasıl 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