Excel'deki e-posta gövdesine belirli bir aralığı kopyalayıp yapıştırarak e-posta nasıl gönderilir?
Çoğu durumda, Excel çalışma sayfasındaki belirli bir içerik aralığı e-posta iletişiminizde yararlı olabilir. Bu makalede, doğrudan Excel'de e-posta gövdesine yapıştırılan belirli aralıklarla bir e-posta gönderme yöntemi tanıtacağız.
Excel'de e-posta gövdesine yapıştırılmış belirli bir aralıkta e-posta gönderin
Harika bir araçla e-posta gövdesine yapıştırılmış belirli bir aralıkta e-posta gönderin
Excel'de postalama için daha fazla öğretici ...
Excel'de e-posta gövdesine yapıştırılmış belirli bir aralıkta e-posta gönderin
Aşağıdaki VBA kodu, bir aralığı kopyalamanıza ve doğrudan Excel'de bir Outlook e-posta gövdesine yapıştırmanıza yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.
1. Çalışma sayfasında kopyalamanız gereken aralığı içerir, Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. Açılışta Uygulamalar için Microsoft Visual Basic pencere, lütfen tıklayın Tools > Referanslar aşağıda gösterilen ekran görüntüsü gibi.
3. içinde Referanslar - VBAProject iletişim kutusu, lütfen bulun ve kontrol edin Microsoft Outlook Nesne Kitaplığı seçeneğini ve ardından OK düğmesine basın.
4. tık Ekle > modül, ardından aşağıdaki VBA kodunu kopyalayıp Modül penceresine yapıştırın.
VBA kodu: Excel'de e-posta gövdesine yapıştırılmış belirli bir aralıkta e-posta gönderin
Sub Send_Email()
'Updated by Extendoffice 20200119
Dim xRg As Range
Dim I, J As Long
Dim xAddress As String
Dim xEmailBody As String
Dim xMailOut As Outlook.MailItem
Dim xOutApp As Outlook.Application
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xMailOut = xOutApp.CreateItem(olMailItem)
For I = 1 To xRg.Rows.Count
For J = 1 To xRg.Columns.Count
xEmailBody = xEmailBody & " " & xRg.Cells(I, J).value
Next
xEmailBody = xEmailBody & vbNewLine
Next
xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
With xMailOut
.Subject = "Test"
.To = ""
.Body = xEmailBody
.Display
'.Send
End With
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub
notlar:
- 1). Lütfen e-posta gövdesini satırda değiştirin xEmailBody = "Merhaba" & vbLf & vbLf & "eklemek istediğiniz mesaj gövdesi" & vbLf & vbLf & xEmailBody & vbNewLine gerek duyduğunuz kadar.
- 2). Lütfen e-posta alıcınızı ve konunuzu belirtin (.Kime = ve .Subject = "test") koddaki satırlar.
5. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Haşhaşta Kutools for Excel iletişim kutusu, lütfen e-posta gövdesine yapıştırmanız gereken aralığı seçin ve ardından OK buton. Ekran görüntüsüne bakın:
6. Şimdi, belirtilen alıcı, konu, gövde ve seçilen Excel aralığı ile bir e-posta oluşturulur, lütfen Gönder Bu e-postayı göndermek için düğmesine basın. Gösterilen ekran görüntüsüne bakın.
not: VBA kodu yalnızca Outlook'u e-posta programınız olarak kullandığınızda çalışır.
Harika bir araçla e-posta gövdesine yapıştırılmış belirli bir aralıkta e-posta gönderin
Outlook kullanmıyorsanız ve yine de içine yapıştırılmış belirli bir aralık verileriyle doğrudan Excel'de e-posta göndermek istiyorsanız, Mailleri gönder yarar Kutools for Excel senin için. Bu özellikle, bir e-posta adresinin giden sunucusunu yapılandırmanız ve ardından gelecekte bu e-posta adresi aracılığıyla doğrudan Excel'de e-posta göndermeniz gerekir.
Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.
1. Öncelikle gerekli alanları içeren bir mail listesi hazırlamanız gerekmektedir.
- İpuçları: Posta listesi en az 2 satır içermelidir ve ilk satır başlıklar olmalıdır (Excel'de iki e-posta adresine e-posta göndermek istediğinizi varsayarsak, lütfen bu iki e-posta adresini aşağıdaki ekran görüntüsü gibi "E-posta" başlığıyla yazın ).
- Alternatif olarak, ile kolayca bir posta listesi oluşturabilirsiniz. Posta Listesi Oluşturun özelliği.
2. Verileri e-posta gövdesine ekleyeceğiniz aralığı seçin ve Ctrl + C tuşlarını kullanarak kopyalayın.
3. Tüm posta listesini seçin (başlıkları dahil edin), tıklayın Kutools Artı > Mailleri gönder. Ekran görüntüsüne bakın:
4. Sonra Mailleri gönder iletişim kutusu açılır.
- 4.1) Seçilen posta listesindeki öğeler ilgili alanlarda doldurulur (ihtiyaç duyduğunuzda posta listesine daha fazla alan ekleyebilirsiniz);
- 4.2) E-posta gövdesi kutusuna tıklayın, Ctrl + V Seçili aralık verilerini içine yapıştırmak için anahtarlar. Bundan sonra ihtiyacınız olan diğer içerikleri ekleyin;
- 4.3 işaretini kaldırın. Outlook aracılığıyla e-posta gönderin Kutu;
- 2.4) Giden Sunucu Ayarları buton. Ekran görüntüsüne bakın:
5. Sonra Giden Sunucu (SMTP) Ayarları - Yeni Şema iletişim kutusu açılır. Lütfen e-posta adresini sunucu ayarlarıyla doldurun, gönderilen tüm postaları kaydetmek için bir klasör belirtin. Gönderilmiş e-postaları şuraya kaydet: ve ardından OK düğmesine basarak ayarları kaydedin.
6. Geri döndüğünde Mailleri gönder iletişim kutusunda, Gönder E-postayı göndermek için düğmesine basın.
Artık bu özellik ile doğrudan Excel'de e-posta gönderebilirsiniz.
Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.
İlgili yazılar:
Excel'deki hücrelerde belirtilen e-posta adreslerine e-posta gönderin
Bir e-posta adresleri listeniz olduğunu ve bu e-posta adreslerine doğrudan Excel'de toplu olarak e-posta mesajı göndermek istediğinizi varsayarsak. Nasıl başarılır? Bu makale size Excel'deki hücrelerde belirtilen birden çok e-posta adresine e-posta gönderme yöntemlerini gösterecektir.
Excel'de e-posta gönderirken Outlook imzası ekleyin
Doğrudan Excel'de bir e-posta göndermek istediğinizi varsayarsak, bu e-postaya varsayılan Outlook imzasını nasıl ekleyebilirsiniz? Bu makale, Excel'de e-posta gönderirken Outlook imzası eklemenize yardımcı olacak iki yöntem sağlar.
Excel'de birden çok ek eklenmiş e-posta gönderin
Bu makale, Outlook üzerinden Excel'de birden çok ek eklenmiş bir e-posta göndermekten bahsediyor.
Excel'de son tarih karşılandıysa e-posta gönderin
Örneğin, C sütunundaki son tarih 7 günden az veya buna eşitse (mevcut tarih 2017/9/13), A sütununda belirtilen alıcıya B sütununda belirtilen içeriğe sahip bir e-posta hatırlatıcısı gönderin başarmak mı? Bu makale, bununla ayrıntılı olarak ilgilenmek için bir VBA yöntemi sağlayacaktır.
Excel'deki hücre değerine göre otomatik olarak e-posta gönderin
Excel'de belirli bir hücre değerine göre Outlook aracılığıyla belirli bir alıcıya bir e-posta göndermek istediğinizi varsayarsak. Örneğin, bir çalışma sayfasındaki D7 hücresinin değeri 200'den büyük olduğunda, otomatik olarak bir e-posta oluşturulur. Bu makale, bu sorunu hızlı bir şekilde çözmeniz için bir VBA yöntemi sunar.
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!