Outlook’ta seçili e-postadaki eklerin bilgilerini nasıl alırsınız?

Ek içeren gelen e-postalarda, eklerin görünen adı, dosya adı gibi ayrıntılı bilgilerine bazen ihtiyaç duyabilirsiniz. Aslında, Outlook’ta şu anda seçili olan e-postadaki ek bilgilerini VBA koduyla kolayca listeleyebilirsiniz. Daha fazla ayrıntı için aşağıdaki öğreticiye göz atın.

Outlook’ta seçili e-postadaki eklerin bilgilerinin listesini alın

Outlook’ta seçili e-postadaki eklerin bilgilerinin listesini alın

1. Ekleri olan ve bilgilerini almak istediğiniz e-postayı seçin.

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

3. Ardından, Project1 > Microsoft Outlook Nesnesi > ThisOutlookSession öğesine çift tıklayarak Project1 – ThisOutlookSession penceresini açın. Ekran görüntüsüne bakın:

4. Ardından aşağıdaki VBA kodunu Project1 – ThisOutlookSession penceresine kopyalayıp yapıştırın.

VBA kodu: eklerin bilgilerinin listesini alın

Option Explicit
Public Sub GetAttachmentList()
    Dim selItem As Object
    Dim aMail As MailItem
    Dim aAttach As attachment
    Dim Report As String
    
    For Each selItem In Application.ActiveExplorer.Selection
        If selItem.Class = olMail Then
            Set aMail = selItem
            For Each aAttach In aMail.Attachments
                Report = Report & vbCrLf & "------------------------------------------------------------------------" & vbCrLf
                Report = Report & GetAttachmentInfo(aAttach)
            Next
            Call CreateReportEmail("Attachment Report", Report)
        End If
    Next
End Sub
 
Public Function GetAttachmentInfo(attachment As attachment)
    Dim Report
    GetAttachmentInfo = ""
    Report = Report & "Index: " & attachment.Index & vbCrLf
    Report = Report & "Display Name: " & attachment.DisplayName & vbCrLf
    Report = Report & "File Name: " & attachment.FileName & vbCrLf
    Report = Report & "Block Level: " & attachment.BlockLevel & vbCrLf
    Report = Report & "Path Name: " & attachment.PathName & vbCrLf
    Report = Report & "Position: " & attachment.Position & vbCrLf
    Report = Report & "Size: " & attachment.Size & vbCrLf
    Report = Report & "Type: " & attachment.Type & vbCrLf
    
    GetAttachmentInfo = Report
End Function
Sub CreateReportEmail(Title As String, Report As String)
    Dim aMail As MailItem
    
    Set aMail = Application.CreateItem(olMailItem)
        
    aMail.Subject = Title
    aMail.Body = Report
    
    aMail.Display
End Sub 

5. VBA kodunu çalıştırmak için klavyede F5 tuşuna basın.

6. Şimdi bir Makrolar iletişim kutusu açılır; lütfen Çalıştır düğmesine tıklayın.

7. Çalıştır düğmesine Makrolar iletişim kutusunda tıkladıktan sonra, seçili e-postanın tüm ek bilgileri e-posta gövdesinde listelenmiş şekilde yeni bir ileti penceresi oluşturulur. Ekran görüntüsüne bakın:

Not: Bu VBA kodu, Outlook 2007, 2010 ve 2013 sürümlerinde kullanılabilir.

---

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, Ç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ı E-postaları 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 Harikalar:Tümüne Eklerle Yanıtla/Phishing’e Karşı E-postalar/🕘Gönderenin Mevcut Saati – 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’un kilidini tek tıkla hemen açın! 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ığı: Tüm 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