Outlook üzerinden Excel'den bir listeye kişiselleştirilmiş toplu e-postalar nasıl gönderilir?
Örneğin, Ad, E-posta Adresi, Kayıt Kodu sütunlarını içeren bir çalışma sayfasında aşağıdaki veri aralığına sahibim ve şimdi, A sütunundaki ayrılmış E-posta Adreslerine kişiselleştirilmiş bir karşılama mesajı ve kendi Kayıt Kodu içeren bir mesaj göndermek istiyorum. Bu sorunu çözmek için aşağıdaki yöntemler size yardımcı olabilir.
VBA kodu ile Excel'den bir listeye kişiselleştirilmiş toplu e-postalar gönderin
Kutools for Excel kullanarak kişiselleştirilmiş toplu e-postaları farklı eklere sahip bir listeye gönderin
Adres Mektup Birleştirme işleviyle Excel'den bir listeye kişiselleştirilmiş toplu e-postalar gönderin
Kelimelerle Posta Birleştirme işlevi, bu işi hızlı ve kolay bir şekilde bitirebilirsiniz, lütfen aşağıdaki adım adım yapın:
1. Yeni bir boş Word belgesi başlatın ve ardından Postalar > Alıcıları Seç > Varolan Bir Listeyi Kullan, ekran görüntüsüne bakın:
2. In Veri Kaynağını Seçin penceresinde, kullanmak istediğiniz veri aralığını içeren çalışma kitabını seçin ve Açılış düğmesi, ekran görüntüsüne bakın:
3. Gelecekte Tablo Seç iletişim kutusu, lütfen ihtiyacınız olan veri aralığını içeren çalışma sayfasını seçin ve ardından OK düğmesi, ekran görüntüsüne bakın:
4. Ve E-posta mesajı ana belgesi ve adres listeniz birbirine bağlandı, şimdi metin mesajını düzenleyebilir ve her mesajda benzersiz bilgilerin nerede görüneceğini gösteren yer tutucular ekleyebilirsiniz.
(1.) Kişisel karşılama adlarını eklemek için, Postalar > Birleştirme Alanı Ekle > Name, mesaja kişiselleştirilmiş ad eklenmiştir ve alan adı «».
(2.) Mesajınızı yazmaya devam edin ve Tescil kodu ihtiyacınız olan yere, ekran görüntüsüne bakın:
5. Mesajı oluşturduktan sonra, Sonuçları Önizle altında Posta E-posta iletilerini önizlemek ve birleştirmeyi gerçekten tamamlamadan önce değişiklikler yapmak için sekme.
6. Sorun olmadığından emin olduktan sonra, E-postaları ayrı alıcılara gönderebilirsiniz, lütfen tıklayın Postalar > Bitir ve Birleştir > E-posta Mesajı Gönder, ekran görüntüsüne bakın:
7. Sonra patladı E-postayla Birleştir iletişim kutusunda aşağıdaki işlemleri yapın:
(1.) için açılır liste, lütfen seçin E sütun;
(2.) Konuyu yazabilirsiniz. Konu satır metin kutusu;
(3.) Kayıtları gönder bölümünde, seçin Türkiye.
8. Ve sonra tıklayın OK, e-postalar tek seferde kendi kayıt kodlarıyla ayrı alıcılara gönderilir, e-postaları gönderdikten sonra, e-postaların başarıyla gönderildiğinden emin olmak için Outlook'unuza gidebilirsiniz.
Farklı eklere sahip birden çok alıcıya kişiselleştirilmiş e-postalar gönderin:
İle Kutools for Excel's Mailleri gönder özelliği sayesinde, ihtiyaç duyduğunuzda Outlook aracılığıyla Excel'den farklı eklere sahip birden çok alıcıya hızlı bir şekilde kişiselleştirilmiş e-postalar gönderebilirsiniz. Aynı zamanda, mesajları CC veya Bcc olarak belirli bir kişiye de gönderebilirsiniz. Kutools for Excel'i şimdi indirin ve ücretsiz deneyin! |
VBA kodu ile Excel'den bir listeye kişiselleştirilmiş toplu e-postalar gönderin
Adres Mektup Birleştirme işlevi dışında, aşağıdaki VBA kodu da size bir iyilik yapabilir, lütfen şunu yapın:
1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için bir tuşa basın ve kullanmak istediğiniz veri aralığını seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:
4. Ve sonra tıklayın OK düğmesi, e-postalar tek tek ayrı kayıt kodları ile ayrı adreslere gönderilecektir, e-postaları gönderdikten sonra, e-postaların başarıyla gönderildiğinden emin olmak için Outlook'unuza gidebilirsiniz.
not: Yukarıdaki kodda, konuyu veya gövde mesajını ihtiyacınıza göre değiştirebilirsiniz.
Kutools for Excel kullanarak kişiselleştirilmiş toplu e-postaları farklı eklere sahip bir listeye gönderin
Eğer varsa Kutools for Excel, Onun ile Mailleri gönder özelliği sayesinde, ihtiyaç duyduğunuzda farklı eklerle birden çok alıcıya hızlı bir şekilde kişiselleştirilmiş e-postalar gönderebilirsiniz.
Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. |
Kurduktan sonra Kutools for Excellütfen şunu yapın:
1. tıklayın Kutools Artı > Mailleri gönder, ekran görüntüsüne bakın:
2. In Emials Gönder iletişim kutusu, lütfen kullanmak istediğiniz veri aralığını seçin ve ardından ihtiyacınız olan alıcı adreslerini, ekleri ve konuyu belirtin, ekran görüntüsüne bakın:
3. Düzenleme kutusunda, ayrı selamlama adlarını girin, lütfen seçin Name açılır listeden tıklayın ve ardından Yer Tutucu Ekle isimleri mesaja eklemek için ekran görüntüsüne bakın:
4. Ardından mesajınızın gövdesini ihtiyacınız olduğu şekilde kutuya yazın, ekran görüntüsüne bakın:
5. E-posta gövdesini bitirdikten sonra, lütfen istediğiniz gibi gönderme modunu seçin, Outlook veya belirttiğiniz sunucuyu kullanarak gönderebilirsiniz, bkz. Screesnhot:
not: Başka bir sunucu kullanmak istiyorsanız, tıklayın Giden Sunucu Ayarları gönderme modunu kendinize göre ayarlamak için screesnhot'a bakın:
6. Sonunda, tıklayın Gönder e-postaları göndermek için düğmesine basın, tamamlandıktan sonra, size gönderme durumunu hatırlatmak için bir komut kutusu açılır. screesnhot bakın:
İndir'i tıklayın ve Kutools for Excel'i Şimdi ücretsiz deneyin!
Demo: Outlook üzerinden Excel'den bir listeye kişiselleştirilmiş toplu e-postalar gönderin
İlgili makale:
Outlook aracılığıyla Excel'den bir listedeki birden çok alıcıya e-posta nasıl gönderilir?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!