Outlook aracılığıyla Excel'den bir listedeki birden çok alıcıya e-posta nasıl gönderilir?
Bir çalışma sayfası sütununda birden çok e-posta adresiniz varsa ve şimdi, Outlook'u açmadan doğrudan Excel'den bu alıcı listesine bir e-posta göndermek istiyorsunuz. Bu yazımda, Excel'den aynı anda birden çok alıcıya nasıl e-posta gönderileceğinden bahsedeceğim.
VBA kodu ile Excel'den birden çok alıcıya e-posta gönderin
Mevcut çalışma kitabını ek olarak VBA kodunu kullanarak birden çok alıcıya e-posta gönderin
VBA kodu ile Excel'den birden çok alıcıya e-posta gönderin
Aynı anda birden fazla alıcıya mesaj göndermek için bir VBA kodu kullanabilirsiniz, lütfen aşağıdaki işlemleri gerçekleştirin:
1. basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. Tıkla Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Birden çok alıcıya e-posta gönderin
Sub sendmultiple()
'updateby Extendoffice
Dim xOTApp As Object
Dim xMItem As Object
Dim xCell As Range
Dim xRg As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOTApp = CreateObject("Outlook.Application")
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
Set xMItem = xOTApp.CreateItem(0)
With xMItem
.To = xEmailAddr
.Display
End With
End Sub
3. Ve sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın, adres listesini seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:
4. Sonra tıklayın OKve bir Outlook Mesaj penceresi açıldığında, seçilen tüm e-posta adreslerinin eklenmiş olduğunu görebilirsiniz. için alanına girin ve ardından konuyu girip mesajınızı oluşturabilirsiniz, ekran görüntüsüne bakın:
5. Mesajı tamamladıktan sonra lütfen tıklayın Gönder düğmesi ve bu mesaj çalışma sayfası listenizdeki bu alıcılara gönderilecektir.
Mevcut çalışma kitabını ek olarak VBA kodunu kullanarak birden çok alıcıya e-posta gönderin
Ek olarak geçerli çalışma kitabını içeren birden çok alıcıya bir ileti göndermeniz gerekiyorsa, aşağıdaki VBA kodunu uygulayabilirsiniz.
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Mevcut çalışma kitabının ekli olduğu birden çok alıcıya e-posta gönderin
Sub EmailAttachmentRecipients()
'updateby Extendoffice
Dim xOutlook As Object
Dim xMailItem As Object
Dim xRg As Range
Dim xCell As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOutlook = CreateObject("Outlook.Application")
Set xMailItem = xOutlook.CreateItem(0)
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
With xMailItem
.To = xEmailAddr
.CC = ""
.Subject = ""
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set xOutlook = Nothing
Set xMailItem = Nothing
End Sub
3. Kodu yapıştırdıktan sonra F5 Bu kodu çalıştırmak için anahtar ve mesaj göndermek istediğiniz adresleri seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:
4. Sonra tıklayın OK düğmesi ve bir Outlook Mesaj penceresi görüntülendiğinde, tüm e-posta adresleri için alanı ve mevcut çalışma kitabınız da ek olarak eklenmiştir ve ardından konuyu girebilir ve mesajınızı oluşturabilirsiniz, ekran görüntüsüne bakın:
5. Sonra tıklayın Gönder Bu iletiyi alıcılar listesine ek olarak geçerli çalışma kitabıyla birlikte göndermek için düğmesine basın.
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 indirmek için tıklayın! |
İlgili makale:
Outlook üzerinden Excel'den bir listeye kişiselleştirilmiş toplu e-postalar 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!