Skip to main content

Outlook'ta e-posta yazarken tüm ek isimlerini ileti gövdesine nasıl listeleriz?

Author: Xiaoyang Last Modified: 2025-08-07

Outlook'ta e-posta yazarken tüm ek isimlerini ileti gövdesine yerleştirmek için iyi bir yöntem var mı? Bu makalede, bu işi Outlook'ta nasıl çözebileceğimizi anlatacağım.

VBA koduyla e-posta yazarken ileti gövdesine tüm ek isimlerini listeleme

Basit bir özellik kullanarak e-posta yazarken ileti gövdesine tüm ek isimlerini listeleme


VBA koduyla e-posta yazarken ileti gövdesine tüm ek isimlerini listeleme

Bu görevi tamamlamak için aşağıdaki adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

2. Microsoft Visual Basic for Applications penceresinde, Project1(VbaProject.OTM) bölmesinden ThisOutlookSession öğesine çift tıklayın ve ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın.

VBA kodu: İleti gövdesine tüm ek isimlerini listeleme:

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

doc-list-attaches-into-message-1

3. Ardından Ekle > Modül'e tıklayın, aşağıdaki kodu açılan boş modüle kopyalayıp yapıştırın, ekran görüntüsüne bakın:

VBA kodu: İleti gövdesine tüm ek isimlerini listeleme:

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

doc-list-attaches-into-message-2

4. Ve sonra Microsoft Visual Basic for Applications penceresinde Araçlar > Referanslar'a tıklayın, açılan References-Project1 iletişim kutusunda Kullanılabilir Referanslar listesi kutusundan Microsoft Word Nesne Kitaplığı seçeneğini işaretleyin, ekran görüntüsüne bakın:

doc-list-attaches-into-message-3 arrow doc-list-attaches-into-message-4

5. İletişim kutusunu kapatmak için Tamam'a tıklayın, ardından Makro düğmesini Hızlı Erişim Araç Çubuğu'na eklemeniz gerekir. Yeni İleti penceresinde, Hızlı Erişim Araç Çubuğu'nun açılır menüsünden Daha Fazla Komut'u seçin, ekran görüntüsüne bakın:

doc-list-attaches-into-message-5

6. Outlook Seçenekleri iletişim kutusunda şu işlemleri yapın:

(1.) Komutları şuradan seç açılır listesinden Makrolar'ı seçin;

(2.) Az önce eklediğiniz makronun adını tıklayın;

(3.) Ardından Ekle düğmesine tıklayarak makroyu Hızlı Erişim Araç Çubuğu'na ekleyin.

doc-list-attaches-into-message-6

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

doc-list-attaches-into-message-7

8. Şimdi, yeni bir ileti oluşturduğunuzda ve makro düğmesine tıkladığınızda, ek isimleri ileti gövdesinin üzerine eklenecektir, aşağıdaki ekran görüntüsüne bakın:

doc-list-attaches-into-message-8


Basit bir özellik kullanarak e-posta yazarken ileti gövdesine tüm ek isimlerini listeleme

Belki yukarıdaki kod sizin için uygulamak biraz zor olabilir, eğer Kutools for Outlook'u kullanıyorsanız, Ek Adlarını Kopyala özelliğiyle bir iletideki ek isimlerini hızlıca kopyalayabilir ve istediğiniz yere yapıştırabilirsiniz.

Kutools for Outlook: 100'den fazla temel ve gelişmiş özelliği kilidini açın! 70'ten fazla özelliği ücretsiz olarak kullanın. Ücretsiz versiyonu hemen indirin ve keşfedin!

Kutools for Outlook'u yükledikten sonra lütfen bunu yapın:

1. İlk olarak, ihtiyacınız olan yeni e-postayı oluşturun ve ardından yeni İleti penceresinde Kutools > Ek Adlarını Kopyala'ya tıklayın, ekran görüntüsüne bakın:

doc-list-attaches-into-message-9

2. Ardından, ek isimlerinin panoya kopyalandığı konusunda sizi uyarmak için bir uyarı kutusu açılacaktır, ekran görüntüsüne bakın:

doc-list-attaches-into-message-10

3. Şimdi, ek isimlerini ihtiyaç duyduğunuz ileti gövdesine yapıştırmak için Ctrl + V tuşlarına birlikte basın, ekran görüntüsüne bakın:

doc-list-attaches-into-message-11


Daha fazla ilgili makale:

  • Outlook'ta Orijinal Eklerle Tümünü Yanıtla
  • Genellikle, Outlook'ta tüm alıcılara iletiyi Yanıtla Tümünü uyguladığınızda orijinal ekler otomatik olarak kaybolur. Peki Outlook'ta Tümünü Yanıtla işleminde orijinal ekleri eklemek mümkün mü?
  • Outlook'tan Belirli Bir Klasöre Ekleri İndirme/Kaydetme
  • Genel olarak, Outlook'ta bir e-postadaki tüm ekleri kaydetmek için Ekler > Tüm Ekleri Kaydet'i tıklayabilirsiniz. Ancak, tüm alınan ve gelen e-postalardaki tüm ekleri kaydetmeniz gerekiyorsa ne yaparsınız? Bu makale, Outlook'tan belirli bir klasöre ekleri otomatik olarak indirmek için iki çözüm sunar.
  • Outlook'ta Varsayılan Ek Kaydetme Konumunu Değiştirme
  • Outlook'u her başlattığınızda belirttiğiniz ek konumunu bulmakla uğraştınız mı? Bu eğitimde, varsayılan ek konumunu nasıl değiştireceğinizi göstereceğiz. Bundan sonra, belirtilen ek klasörü, Outlook'u yeniden başlatmanıza rağmen, ekleri her kaydettiğinizde otomatik olarak açılacaktır.
  • Outlook'taki E-postadan Tüm Ekleri Kaldırma
  • Normalde bir e-postayı önizlerken, bir ek sağ tıklayıp Ekleri Kaldır seçeneğini seçerek silebilirsiniz. Bazen bir e-posta iletisinde birçok ek olabilir ve bunları tek tek kaldırmak can sıkıcı olabilir. Burada size Outlook'ta tek bir e-postadaki tüm ekleri ve birden fazla e-postadaki tüm ekleri kaldırmak için iki kolay yöntem sunuyoruz.

En İyi Ofis Verimlilik Araçları

Flaş Haber: Kutools for Outlook Ücretsiz Sürümü Yayında!

Yepyeni Kutools for Outlook'u100’den fazla harika özellikle deneyimleyin! Hemen indirin!

🤖 Kutools AI : Gelişmiş yapay zeka teknolojisi sayesinde e-postalarınızı zahmetsizce yönetir; yanıtlama, özetleme, optimize etme, genişletme, çeviri ve e-posta oluşturma işlemlerini kolayca yapar.

📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için Mevcut) / E-postaları Zamanla Gönder / Gönderirken Kural ile Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selamlama Ekle / Birden Fazla Alıcılı E-postaları Otomatik Olarak Bireysel E-postalara Böl ...

📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu ve Diğerlerine Göre Sahtekarlık E-postalarını Engelle / Yinelenen E-postaları Sil / Gelişmiş Arama / Klasörleri düzenle ...

📁 Ekler Pro: Toplu Kaydet / Toplu Ayır / Toplu Sıkıştır / Otomatik Kaydet / Otomatik Ayır / Otomatik Sıkıştır ...

🌟 Arayüz Sihri: 😊Daha Fazla Şık ve Güzel Emoji / Önemli e-postalar geldiğinde seni uyarır / Outlook’u Kapatmak Yerine Küçült ...

👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı (Phishing) E-postalarına Karşı Koruma / 🕘Gönderenin Saat Dilimini Göster ...

👩🏼‍🤝‍👩🏻 Kişiler & Takvim: Seçili E-postalardan Toplu Kişi Ekle / Bir Kişi Grubunu Bireysel Gruplara Böl / Doğum günü hatırlatıcısını kaldır ...

Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40’tan fazla dil desteği!

Kutools for Outlook'un tüm özelliklerini tek tıkla hemen açın. Beklemeyin, şimdi indirip verimliliğinizi artırın!

kutools for outlook features1 kutools for outlook features2