Outlook'ta e-posta yazarken tüm eklerin adları nasıl mesaj gövdesine otomatik olarak listelenir?

Outlook’ta bir e-posta yazarken tüm eklerin adlarını otomatik olarak mesaj gövdesine eklememize yardımcı olacak pratik yöntemler var mı? Bu makalede, bu görevi Outlook’ta nasıl başarabileceğinizi anlatacağım.

VBA kodu ile e-posta yazarken tüm Ek Adı mesaj gövdesine listeleme

Basit bir özellik ile e-posta yazarken tüm Ek Adı mesaj gövdesine listeleme

VBA kodu ile e-posta yazarken tüm Ek Adı mesaj gövdesine listeleme

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

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

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

VBA kodu: Tüm Ek Adı mesaj gövdesine 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

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

VBA kodu: Tüm Ek Adı mesaj gövdesine 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

4. Ardından, Araçlar > Başvurular seçeneğine tıklayın. Microsoft Visual Basic for Applications penceresinde açılan Başvurular - Project1 iletişim kutusunda, Microsoft Word Nesne Kitaplığı seçeneğini Kullanılabilir Başvurular listesinden işaretleyin; ekran görüntüsüne bakın:

5. İletişim kutusundan çıkmak için Tamam düğmesine tıklayın; ardından makro düğmesini Hızlı Erişim Araç Çubuğu'na eklemeniz gerekir. Yeni İleti penceresinde, açılır menüden Diğer Komutlar seçeneğini seçin; ekran görüntüsüne bakın: Hızlı Erişim Araç Çubuğunu Özelleştir.

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

(1.)Makrolarseçeneğini Komutları şuradan seçinaçılır liste kutusundan seçin;

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

(3.) Ardından, makroyu Hızlı Erişim Araç Çubuğunu Özelleştir bölümüne eklemek için Ekle düğmesine tıklayın.

7. Ardından, iletişim kutusunu kapatmak için Tamam düğmesine tıklayın; artık makro düğmesi Hızlı Erişim Araç Çubuğu'na eklenmiştir. Ekran görüntüsüne bakın:

8. Artık yeni bir ileti oluştururken makro düğmesine tıkladığınızda, ek adı aşağıdaki ekran görüntüsünde gösterildiği gibi mesaj gövdesinin üstüne eklenecektir:

Basit bir özellik ile e-posta yazarken tüm Ek Adı mesaj gövdesine listeleme

Yukarıdaki kodu uygulamakta zorlanıyorsanız, Kutools for Outlook yazılımına sahipseniz, İsimleri Kopyala özelliğini kullanarak bir iletinin ek adını hızlıca kopyalayabilir ve ihtiyaç duyduğunuz her yere yapıştırabilirsiniz.

Kutools for Outlook yüklendikten sonra,Kutools for Outlookaşağıdaki gibi yapın:

1. Öncelikle ihtiyacınız olan yeni e-postayı oluşturun ve ardından İleti penceresindeki yeni Kutools > İsimleri Kopyala seçeneğine tıklayın; ekran görüntüsüne bakın:

2. Ardından, ek adının panoya kopyalandığını hatırlatan bir uyarı kutusu açılacaktır; ekran görüntüsüne bakın:

3. Artık istediğiniz mesaj gövdesine Ek Adı’nı yapıştırmak için tek yapmanız gereken Ctrl + V tuşlarına birlikte basmak; ekran görüntüsüne bakın:

İlgili diğer makaleler:

---

En İyi Office Verimlilik Araçları

Yepyeni Kutools for Outlook’i 100+ inanılmaz özelliğiyle deneyimleyin!Şimdi indirmek için tıklayın!

🤖KUTOOLS AI:E-postaları yanıtlama, özetleme, iyileştirme, uzatma, çevirme ve oluşturma dahil olmak üzere zahmetsizce yönetmek için gelişmiş yapay zeka teknolojisi kullanır.

📧E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir), E-postaları Zamanlayarak Gönderme, E-posta Gönderirken Kurallara Göre Otomatik CC/BCC, Otomatik Yönlendirme (Gelişmiş Kurallar), Otomatik Selam Eklemesi ve Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölme…

📨E-posta Yönetimi: E-postayı Geri Çağırma, Konu Başlıklarına ve Diğer Özelliklere Göre Dolandırıcılık E-postalarını Engelleme, Yinelenen E-postaları Silme, Gelişmiş Arama, Klasörleri Düzenleme…

📁Ekler Pro: Toplu Kaydetme, Toplu Ayırma, Toplu Sıkıştırma, Otomatik Kaydet, Otomatik Ayır ve Otomatik Sıkıştır…

🌟Arayüz Büyüsü: 😊 Daha Güzel ve Havalı Emojiler / Önemli e-postalar geldiğinde sizi uyarır / Outlook’u Kapatmak Yerine Küçültür…

👍Tek Tıklamayla Harika Özellikler: Tümüne Eklerle Yanıtla / Anti-Phishing E-postaları / 🕘 Gönderenin Mevcut Saati ve Saat Dilimini Göster…

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

Kutools’u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dil desteğiyle!

Kutools for Outlook’u tek bir tıklamayla hemen etkinleştirin! Beklemeyin, şimdi indirin ve verimliliğinizi artırın!

Kutools for Outlook Özellik Listesi      Şimdi İndir      Satın Alma Sayfasına Git

🚀 Tek Tıkla İndir — Tüm Office Eklentilerini Edinin

Kesinlikle Önerilir: Kutools for Office (5’li Paket)

Beş yükleyiciyi tek tıkla indirin beş yükleyiciyiaynı anda —Kutools for Excel, Outlook, Word, PowerPointve Office Tab Pro.Şimdi indirmek için tıklayın!

• ✅Tek tıklama kolaylığı: Beş kurulum paketini tek seferde indirin.
• 🚀Her Office görevine hazır: İhtiyacınız olduğunda, ihtiyacınız olan eklentileri yükleyin.
• 🧰İçerik: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

Paket Hakkında⬇ Paketi İndir💳 Paketi Satın Al