Note: The other languages of the website are Google-translated. Back to English

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.

doc kişiselleştirilmiş e-postalar gönder 1

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

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


ok mavi sağ balon 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:

doc kişiselleştirilmiş e-postalar gönder 2

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:

doc kişiselleştirilmiş e-postalar gönder 3

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:

doc kişiselleştirilmiş e-postalar gönder 4

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 > İsim-Soyisim, mesaja kişiselleştirilmiş ad eklenmiştir ve alan adı «».

doc kişiselleştirilmiş e-postalar gönder 5

(2.) Mesajınızı yazmaya devam edin ve Tescil kodu ihtiyacınız olan yere, ekran görüntüsüne bakın:

doc kişiselleştirilmiş e-postalar gönder 6

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:

doc kişiselleştirilmiş e-postalar gönder 7

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ümü.

doc kişiselleştirilmiş e-postalar gönder 8

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!

doc kişiselleştirilmiş e-postalar gönder 18 1


ok mavi sağ balon 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:

doc kişiselleştirilmiş e-postalar gönder 9

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.


ok mavi sağ balon 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:

doc kişiselleştirilmiş e-postalar gönder 9

3. Düzenleme kutusunda, ayrı selamlama adlarını girin, lütfen seçin İsim-Soyisim 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:

doc kişiselleştirilmiş e-postalar gönder 9

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:

doc kişiselleştirilmiş e-postalar gönder 9

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:

doc kişiselleştirilmiş e-postalar gönder 9

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:

doc kişiselleştirilmiş e-postalar gönder 9

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:

doc kişiselleştirilmiş e-postalar gönder 9

İ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

Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Hemen indirin ve ücretsiz deneme!

İlgili makale:

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


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (47)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu kod çok iyi çalıştı, bunun için çok teşekkürler. Ama sadece küçük bir sorunum var, e-postaları almak ve göndermek istediğim hücreleri önceden belirlemek için kodu değiştirmeye çalışıyorum çünkü excel dosyamı oluşturdum. Belirli bir hücre dizisi için seçim kutusunu değiştirmek istiyorum. Örnek: Fix tüm verilerim A2:C6 arasında olacak, bu yüzden makroyu çalıştırdığımda tekrar seçmeme gerek yok. Yukarıda açıkladığınız her şey için çok teşekkür ederim
Bu yorum sitedeki moderatör tarafından en aza indirildi
E-postaya birden fazla dosya eklemek için kodu değiştirebilir misiniz? Harika bir yardım olurdu. Şimdiden teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
normal e-posta imzamı da çekecek şekilde kod eklemek mümkün mü? ayrıca, e-posta için aralığımı seçerken, excel elektronik tablom filtrelendi, ancak makroyu çalıştırdığımda hala gizli satırları da çekiyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ben de bu konuda bilgi almak istiyorum!
Bu yorum sitedeki moderatör tarafından en aza indirildi
yukarıdaki kodda cc nasıl eklenir
Bu yorum sitedeki moderatör tarafından en aza indirildi
Harika yol

Size sadece e-postaya bağlı olarak her seferinde konuyu değiştirme olasılığını sormam gerekiyor?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Aziz,
Kutools for Excel'i uyguladığınızda, konuları hücre değerlerine göre eklemenize yardımcı olabilir, aşağıdaki ekran görüntüsü gibi iletişim kutusunda konu sütun başlığını seçmeniz yeterlidir:

Lütfen deneyin, umarım size yardımcı olabilir!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Skyyang,

E-posta imzamın ortaya çıkması için uğraşıyorum ve çalışıyorum ama doğru anlamış gibi görünmüyorum! Bunun gerçekleşmesi için ekleyebileceğim bir parça kodunuz var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Delilik gönderisi bu, bu sahte ve bu içeriğe inanmayın
Bu yorum sitedeki moderatör tarafından en aza indirildi
selam dostum,
Bu harika, bir yardıma ihtiyacım var Her seferinde farklı bir e-postaya farklı bir pdf dosyası eklemem gerekiyor.
Herkes bana lütfen yardımcı olabilir?
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba Skyyang,
her posta için farklı bir pdf dosyası eklemem gerekiyor. lütfen yardım edebilir misin??
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Arvind,
Kutools, e-posta gönderirken birden fazla farklı ek eklemenize yardımcı olabilir.
İlk önce eklerin yolunu hücrelere eklemeli ve ardından Kutools'u uygulamalısınız, lütfen aşağıdaki ekran görüntüsünü görüntüleyin:
Umarım size yardımcı olabilir, teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
merhaba Skyyang,
Aşağıdaki kodunuzu posta göndermek için kullandım ve mükemmel çalışıyor, birlikte pdf ekleri göndermek için kodda değişiklik yapmama yardımcı olabileceğiniz herhangi bir şey var mı?
100'den fazla posta göndermem gerekiyor, bu yüzden her seferinde dosya eklemek zor. Kutools verilen yola göre çalışır ve otomatik olarak posta gönderir mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hey,
Ek.add işlevi konusunda bana yardımcı olabilir misiniz? Yukarıdaki VBA kodunuzla ek göndermem gerekiyor.
Kutools kullanamıyorum :(
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunda insanlar nasıl cc yapılır?
Bu yorum sitedeki moderatör tarafından en aza indirildi
ya çok sayıda müşteri için veriye sahipsem ve bazı müşterilerin 1'den fazla verisi varsa... ve müşterilere ayrı postalar göndermek istemiyorum, ancak e-postada tablo biçiminde gönderebilirim. Bir müşteriye nasıl sadece 1 e-posta gönderebilirim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Steven, bunu yapmanın bir yolunu buldun mu? Basit bir çevrimiçi web portalıyla size yardımcı olabiliriz
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba çözdünüz mü
Bu yorum sitedeki moderatör tarafından en aza indirildi
Nasıl yapılacağını bilmek istiyorum. Bana söyler misin?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkürler !!

Ama testi yapmaya çalışıyorum ve e-postaya gönderilen hiçbir şey yok. Ayrıca hata mesajı yok.. Ne olduğunu öğrenebilir miyim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Excel'de e-posta göndermem gereken e-posta adreslerinin bir listesi var Konu ve gövde e-posta adresinin yanı sıra hücrelerde ve aşağıdaki komut dosyası var ama 100 saatte 1 e-posta göndermem gerekiyor desteğinizi nasıl memnun edebilirim

Alt SendEm()
Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
Set Mail_Object = CreateObject("Outlook.Application")
i = 2 için lr
Mail_Object.CreateItem(o) ile
.Konu = Aralık("B" & i).Değer
.To = Aralık("A" & i).Değer

.Body = Aralık("C" & i).Value
.attachments.Add (Sayfalar("Sayfa1").Aralık("H" & i).Metin)
.attachments.Add (Sayfalar("Sayfa1").Aralık("I" & i).Metin)
.attachments.Add (Sayfalar("Sayfa1").Aralık("J" & i).Metin)
.attachments.Add (Sayfalar("Sayfa1").Aralık("K" & i).Metin)
`s

'.display' ekranı devre dışı bırak ve otomatik olarak göndermek için göndermeyi etkinleştir
İle bitmek
I Sonraki
MsgBox "E-posta başarıyla gönderildi", 64
Application.DisplayAlerts = Yanlış
Mail_Object = Hiçbir Şeyi Ayarla
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, merhaba
Kutools for Excel's E-posta Gönder, sorununuzu çözmenize yardımcı olabilir. Lütfen koşulları aşağıdaki ekran görüntüsü gibi ayarlayın:
Bu özellik ile ayrıca CC, BCC özelliğini uygulayabilir ve birden fazla eklenti de ekleyebilirsiniz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba yönetici


apakah metode ini bisa di lakukan pada word 2007 soalnya saya coba lakukan di file pdf nya tdk terkirim .. terimakasih
Bu yorum sitedeki moderatör tarafından en aza indirildi
Nedense bu kod, listedeki diğer tüm e-postaları gönderdiği yere sahiptir. Her birini göndermemesinin bir nedeni var mı? Yukarıdaki kodu doğrudan kopyaladım ve hiçbir şeyi değiştirmedim
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA kodu iyi çalışıyor, teşekkürler ama Cc nasıl eklenir? denedim ve başarısız oldum...
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA kodu iyi çalışıyor, teşekkürler ama Cc nasıl eklenir? ile denedim:


Dize Olarak Dim xCc
sonra
xCc = xRg.Cells(i, 9) (adres 9. sütundadır)


ve başarısız...
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Jean,

Sorununuzu çözmek için lütfen aşağıdaki kodu uygulayınız: (Not: C Sütununa CC sütunu eklemelisiniz)

#Eğer VBA7 Ve Win64 O Zaman
Özel Bildirme PtrSafe İşlevi ShellExecute Lib "shell32.dll" Diğer Adı "ShellExecuteA" ( _
ByVal hwnd As LongPtr, ByVal lpİşlem As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As LongPtr)
#Başka
Özel Bildirme İşlevi ShellExecute Lib "shell32.dll" Diğer Adı "ShellExecuteA" ( _
ByVal hwnd As Long, ByVal lpİşlem As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd Kadar Uzun) kadar
#Eğer End
Alt SendEMail()
Dize olarak xEmail'i karart
Dize Olarak Dim xSubj
Dize olarak xMsg'yi karart
Dize olarak xURL'yi karart
Dim i As Integer
Dim k Çift Kişilik
Aralık olarak xCell Dim
Aralık olarak Dim xRg
Dize Olarak xTxt Dim
Dize olarak xCC'yi karart
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Lütfen veri aralığını seçin:", "Kutools for Excel", xTxt, , , , , 8)
xRg Hiçbir Şey Değilse, Sub'dan Çıkın
Eğer xRg.Columns.Count <> 4 O zaman
MsgBox " Bölgesel biçim hatası, lütfen kontrol edin", "Kutools for Excel"
Exit Sub
Eğer son
i = 1 için xRg.Rows.Count
xEmail = xRg.Cells(i, 2)
xCC = xRg.Hücreler(i, 3)
xSubj = "Kayıt Kodunuz"
xMsg = ""
xMsg = xMsg & "Sevgili" & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
xMsg = xMsg & " Bu, Kayıt Kodunuzdur "
xMsg = xMsg & xRg.Cells(i, 4).Text & "." & vbCrLf & vbCrLf
xMsg = xMsg & "lütfen deneyin ve geri bildiriminizi almaktan memnun oldum!" & vbCrLf
xMsg = xMsg & "Skyyang"
xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
xURL = "mailto:" & xEmail & "?cc=" & xCC & "&subject=" & xSubj & "&body=" & xMsg
ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
Sonraki
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
"VBA Kodu ile Excel'den Bir Listeye Kişiselleştirilmiş Toplu E-postalar Gönder" altında yukarıda belirtilen VBA kodunu kullandım. Yaklaşan sözleşmeleri olanlara hatırlatıcı göndermemi söyleyen excel'e dayalı olarak bildirime ihtiyacı olan belirli kişilere bir e-posta gönderip gönderemeyeceğimi bilmek istedim. E-postaları göndermek için excel alamıyorum ve bunun kodun kendisi nedeniyle olduğunu biliyorum. Birisi lütfen bu sorunu çözmeme yardım edebilir mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
E-postaları benzersiz konu satırıyla göndermek istiyorum, bunu bu VBA ile nasıl yapabilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Tüm Merhaba!

Bir sayfada e-postaların bir listesi ve diğerinde e-posta taslağım var.
2. sayfadaki e-posta taslağını 5. sayfada sağlanan listedeki her 1 üyeye otomatik olarak göndermek için bir koda ihtiyacım var.
İlk 5'i gönderildikten sonra, kod onları yeni bir özel sütunda "Gönderildi" olarak etiketlemeli ve sonraki 60 e-posta grubunu göndermeden önce 5 saniye beklemelidir.
Kod, tüm listenin sonuna kadar çalışmalıdır.

Kod, Outlook'taki varsayılan profilden postaları göndermek için Outlook'u kullanabilir.

Lütfen yardım edin.

Daha fazla açıklamaya ihtiyacın olursa diye bana haber ver
Buraya henüz hiç yorum yapılmamış
Daha Çok
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır