Outlook'ta seçili postadaki ek bilgilerinin listesini nasıl alabilirim?

Eklerle iliştirilen alınan e-postalar için, bazen eklerin ekran adı, dosya adı vb. Gibi ayrıntılı bilgilerini bilmeniz gerekebilir. Aslında, VBA kodu Outlook'ta mevcut seçili e-postadaki eklerin listesini kolayca almanıza yardımcı olabilir. Daha fazla ayrıntı için lütfen aşağıdaki eğiticiye göz atın.

Outlook'ta seçili postadaki ek bilgilerinin listesini alın

Outlook'ta seçili postadaki ek bilgilerinin listesini alın

1. Bilgilerini almak istediğiniz ekli e-postayı seçin.

2. Tuşuna basın. Ara Toplam + F11 açmak için klavyedeki tuşlar Uygulamalar için Microsoft Visual Basic pencere.

3. Ardından çift tıklayın Project1 > Microsoft Outlook Nesnesi > Bu OutlookOturumu açmak için Project1 - ThisOutlookSession pencere. Ekran görüntüsüne bakın:

4. Ardından aşağıdaki VBA kodunu kopyalayıp Project1 - ThisOutlookSession penceresine 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. Basın F5 VBA kodunu çalıştırmak için klavyedeki tuşuna basın.

6. Şimdi a Makrolar iletişim kutusu açılır, lütfen tıklayın koşmak düğmesine basın.

7. Tıkladıktan sonra koşmak düğmesi Makrolar iletişim kutusu, e-posta gövdesinde listelenen seçili e-postanın tüm ek bilgileriyle yeni bir ileti penceresi oluşturulacaktır. Ekran görüntüsüne bakın:

not: Bu VBA kodu Outlook 2007, 2010 ve 2013'e uygulanabilir

---

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