Excel'de e-posta gönderirken Outlook imzası nasıl eklenir?

Doğrudan Excel'de bir e-posta göndermek istediğinizi varsayalım, 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 sunar.

Excel VBA ile gönderirken Outlook e-postasına imza ekleyin
Harika bir araçla Excel'de e-posta gönderirken Outlook imzasını kolayca ekleyin
Excel'de postalama için daha fazla öğretici ...

Excel VBA ile gönderirken Outlook e-postasına imza ekleyin

Örneğin, Excel'de tüm bu adreslere e-posta göndermek ve e-postalara varsayılan Outlook imzasını eklemek için bir çalışma sayfasında bir e-posta adresleri listesi vardır. Bunu başarmak için lütfen aşağıdaki VBA kodunu uygulayın.

1. E-posta göndermek istediğiniz e-posta adresi listesini içeren çalışma sayfasını açın ve ardından Ara Toplam + F11 anahtarlar.

2. Açılışta Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > Modül, ve sonra aşağıdakileri kopyalayın VBA2 Modül kodu penceresine.

3. Şimdi değiştirmelisiniz .Vücut satır içi VBA2 içindeki kod ile VBA1. Bundan sonra çizgiyi hareket ettirin .Görüntüle çizginin altında XMailOut ile.

VBA 1: Excel'de Outlook varsayılan imzasıyla e-posta gönderme şablonu

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

VBA 2: Excel'deki hücrelerde belirtilen e-posta adreslerine e-posta gönderin

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Aşağıdaki ekran görüntüsü, VBA kodunu değiştirdikten sonra farklılıkları kolayca bulmanıza yardımcı olabilir.

4. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Sonra bir Kutools for Excel seçim kutusu açılır, lütfen e-postaları göndereceğiniz e-posta adreslerini seçin ve ardından Tamam.

Ardından e-postalar oluşturulur. E-posta gövdesinin sonuna Outlook varsayılan imzasının eklendiğini görebilirsiniz.

İpuçları:

• 1. VBA kodu 1'deki e-posta gövdesini ihtiyaçlarınıza göre değiştirebilirsiniz.
• 2. Kodu çalıştırdıktan sonra, Kullanıcı tanımlı türün tanımlanmadığını belirten bir hata iletişim kutusu açılırsa lütfen bu iletişim kutusunu kapatın ve ardından Tools > Referanslar içinde Uygulamalar için Microsoft Visual Basic pencere. Açılışta Referanslar - VBAProject pencere, kontrol edin Microsoft Outlook Nesne Kitaplığı kutu ve tıklayın Tamam. Ve sonra kodu tekrar çalıştırın.
  

Harika bir araçla Excel'de e-posta gönderirken Outlook imzasını kolayca ekleyin

VBA'da acemi iseniz, burada kesinlikle Mailleri gönder yarar Kutools for Excel senin için. Bu özellik sayesinde, Excel'deki belirli alanlara göre kolayca e-posta gönderebilir ve bunlara Outlook imzası ekleyebilirsiniz. Lütfen aşağıdaki işlemleri yapın.

Öncelikle e-postaları temel alarak göndereceğiniz farklı alanlar içeren bir mail listesi oluşturmanız gerekir.

İhtiyaç duyduğunuzda manuel olarak bir posta listesi oluşturabilir veya bunu hızlı bir şekilde yapmak için Posta Listesi Oluştur özelliğini uygulayabilirsiniz.

1. tık Kutools Artı > Posta Listesi Oluşturun.

2. içinde Posta Listesi Oluşturun iletişim kutusunda ihtiyacınız olan alanları belirtin, listenin çıktısının nereden alınacağını seçin ve ardından OK düğmesine basın.

3. Şimdi bir posta listesi örneği oluşturulur. Örnek bir liste olduğu için, alanları belirli gerekli içeriklerle değiştirmeniz gerekir. (birden çok satıra izin verilir)

4. Bundan sonra, tüm listeyi seçin (başlıkları dahil edin), tıklayın Kutools Artı > Mailleri gönder.

5. içinde Mailleri gönder iletişim kutusu:

• 5.1) Seçilen posta listesindeki öğeler otomatik olarak ilgili alanlara yerleştirilir;
• 5.2) E-posta metnini tamamlayın;
• 5.3) Her ikisini de kontrol edin Outlook aracılığıyla e-posta gönderin ve Outlook'un imza ayarlarını kullanın kutular;
• 5.4) Gönder buton. Ekran görüntüsüne bakın:

Şimdi e-postalar gönderiliyor. Ve varsayılan Outlook imzası, e-posta gövdesinin sonuna eklenir.

İlgili yazılar:

---

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.

Devamı ... Ücretsiz indirin... Satın alma... 

---

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!

Devamı ... Ücretsiz indirin... Satın alma...