Outlook'ta e-posta oluştururken tüm ek adlarını ileti gövdesine nasıl listeleyebilirim?

Outlook'ta bir e-posta oluştururken tüm ek adlarını ileti gövdesine eklemenin iyi bir yolu var mı? Bu yazıda Outlook'ta bu işi nasıl çözeceğimi anlatacağım.

VBA kodu ile e-posta oluştururken tüm ek adlarını mesaj gövdesine listeleyin

Basit bir özellikle e-posta oluştururken tüm ek adlarını mesaj gövdesine listeleyin

VBA kodu ile e-posta oluştururken tüm ek adlarını mesaj gövdesine listeleyin

Lütfen bu görevi tamamlamak için aşağıdaki adımları uygulayın:

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. In Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu OutlookOturumu itibaren Proje1 (VbaProject.OTM) bölmesini açın ve ardından aşağıdaki kodu kopyalayıp boş modüle yapıştırın.

VBA kodu: Tüm ek adlarını ileti gövdesine listeleyin:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xMailItem As MailItem
    If Item.Class = olMail Then
        Set xMailItem = Item
        If xMailItem.Attachments.Count > 0 Then
          AddAttachmentNamesToBody
        End If
    End If
    End Sub

3. Sonra tıklamaya devam edin Ekle > modül, aşağıdaki kodu kopyalayıp açılan boş modüle yapıştırın, ekran görüntüsüne bakın:

VBA kodu: Tüm ek adlarını ileti gövdesine listeleyin:

Public Sub AddAttachmentNamesToBody()
    Dim xMailItem As MailItem
    Dim xAttachment As Attachment
    Dim xFileName As String
   Dim xInspector As Outlook.Inspector
    Dim xDoc As Word.Document
    Dim xWdSelection As Word.Selection
    On Error Resume Next
    Set xMailItem = Outlook.ActiveInspector.CurrentItem
    If xMailItem.Attachments.Count = 0 Then
        Exit Sub
    End If
    xFileName = ""
    For Each xAttachment In xMailItem.Attachments
        If xFileName = "" Then
            xFileName = " <" & xAttachment.FileName & "> "
        Else
            xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
        End If
    Next xAttachment
    Set xInspector = Outlook.Application.ActiveInspector()
    Set xDoc = xInspector.WordEditor
    Set xWdSelection = xDoc.Application.Selection
    xWdSelection.HomeKey Unit:=wdStory
    xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
    Set xMailItem = Nothing
    End Sub

4. Ve sonra tıklayın Tools > Referanslar içinde Uygulamalar için Microsoft Visual Basic pencere, dışarı çıkmış Referanslar-Proje1 iletişim kutusu, işaretleyin Microsoft Word Nesne Kitaplığı seçeneği Mevcut Referanslar liste kutusu, ekran görüntüsüne bakın:

5. tıklayın OK iletişim kutusundan çıkmak için makro düğmesini Hızlı Erişim Araç Çubuğu. Yeni Mesaj pencere seç Daha Komutlar itibaren Hızlı erişim araç çubuğunu özelleştir açılır, ekran görüntüsüne bakın:

6. In Outlook Seçenekleri iletişim kutusunda aşağıdaki işlemleri yapın:

(1.) Seçin Makrolar itibaren Komutları seçin açılır liste;

(2.) Şu anda eklediğiniz makro adına tıklayın;

(3.) Ve sonra tıklayın Ekle makroyu eklemek için düğme Hızlı erişim araç çubuğunu özelleştir.

7. Sonra tıklayın OK iletişim kutusunu kapatmak için, şimdi makro düğmesi Hızlı Erişim Araç Çubuğu, ekran görüntüsüne bakın:

8. Şimdi, yeni bir mesaj oluşturduğunuzda ve makro düğmesini tıkladığınızda, aşağıdaki ekran görüntüsü gibi ek adları mesaj gövdesinin üstüne eklenecektir:

Basit bir özellikle e-posta oluştururken tüm ek adlarını mesaj gövdesine listeleyin

Yukarıdaki kod çok olabilir, eğer varsa, başvurmak sizin için ne kadar zor olabilir? Outlook için Kutools, Onun ile Adları Kopyala özelliği, bir iletinin ek adlarını hızlı bir şekilde kopyalayabilir ve ihtiyacınız olan yere yapıştırabilirsiniz.

Kurduktan sonra Outlook için Kutoolslütfen şunu yapın:

1. Öncelikle, lütfen ihtiyacınız olan yeni e-postayı oluşturun ve ardından Kutools > Adları Kopyala yeni Mesaj pencere, ekran görüntüsüne bakın:

2. Ardından, ek adlarının panoya kopyalandığını hatırlatmak için bir komut kutusu açılır, ekran görüntüsüne bakın:

3. Şimdi, sadece basman gerekiyor Ctrl + V ek adlarını ihtiyacınız olan mesaj gövdesine yapıştırmak için tuşları bir araya getirin, ekran görüntüsüne bakın:

Daha ilgili makaleler:

---

En İyi Ofis Üretkenlik Araçları

Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik

🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...

???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir)  /  E-posta Gönderimini Planla  /  E-posta Gönderirken Kurallara Göre Otomatik CC/BCC  /  Otomatik İletme (Gelişmiş Kurallar)   /  Otomatik Karşılama Ekleme   /  Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...

📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın  /  Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin  /  Yinelenen E-postaları Silin  /  gelişmiş Arama  /  Klasörleri Birleştir ...

📁 Ekler Pro: Toplu Kaydetme  /  Toplu Ayır  /  Toplu Sıkıştırma  /  Otomatik kaydet   /  Otomatik Ayır  /  Otomatik Sıkıştır ...

🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji   /  Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın  /  Outlook'u Kapatmak Yerine Küçültün ...

👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla  /   Kimlik Avına Karşı E-postalar  /  🕘Gönderenin Saat Dilimini Göster ...

👩🏼‍🤝‍👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme  /  Kişi Grubunu Bireysel Gruplara Bölme  /  Doğum Günü Hatırlatıcılarını Kaldır ...

üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.

Devamını Oku       Bedava indir      Satın alma