Outlook'ta seçili e-postadaki eklerin bilgilerinin listesini nasıl alabilirim?
Eklerle birlikte gelen e-postalar için, bazen eklerin detaylı bilgilerini bilmek isteyebilirsiniz; örneğin, görüntüleme adı, dosya adı vb. Aslında, VBA kodu size Outlook'ta şu anda seçili e-postadaki eklerin bilgilerinin listesini kolayca almanıza yardımcı olabilir. Daha fazla ayrıntı için lütfen aşağıdaki öğreticiye göz atın.
Outlook'ta seçili e-postadaki eklerin bilgilerinin listesini alma
- AI teknolojisi ile e-posta üretkenliğinizi artırın, size hızlı bir şekilde e-posta yanıtlama, yeni taslaklar oluşturma, mesajları çevirme ve daha fazlasını daha verimli bir şekilde yapma imkanı sağlar.
- Otomatik CC/BCC, kurallarla Otomatik Yönlendirme ile e-postaları otomatize edin; exchange sunucusuna gerek kalmadan Otomatik Yanıt (Dışarıda) gönderin...
- BCC listesindeyken tümünü yanıtla seçeneğini kullandığınızda BCC Uyarısı gibi hatırlatıcılar alın ve unutulan ekler için Ekleri Unutma Uyarısı alın...
- Eklentilerle Yanıtla (Tümü), Otomatik Selamlama veya Tarih & Saat Ekle imzasına veya konuya, Çoklu E-postaları Yanıtla gibi özellikleriyle e-posta verimliliğini artırın...
- E-postaları geri çağırma, Ek Araçları (Tüm Ekleri Sıkıştır, Tüm Ekleri Otomatik Kaydet...), Yinelenenleri Kaldır ve Hızlı Rapor gibi özelliklerle e-posta işlemlerini akıcı hale getirin...
Outlook'ta seçili e-postadaki eklerin bilgilerinin listesini alma
1. Ekleri olan ve bilgilerini almak istediğiniz e-postayı seçin.
2. Klavyede Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
3. Ardından Project1 > Microsoft Outlook Object > 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 alma
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 klavyedeki F5 tuşuna basın.
6. Şimdi bir Makrolar iletişim kutusu açılacak, lütfen Çalıştır düğmesine tıklayın.
7. Makrolar iletişim kutusundaki Çalıştır düğmesine tıkladıktan sonra, seçili e-postadaki tüm eklerin bilgileri içeriğinde listelenmiş olarak yeni bir ileti penceresi oluşturulacaktır. Ekran görüntüsüne bakın:
Not: Bu VBA kodu, Outlook 2007, 2010 ve 2013 sürümlerinde kullanılabilir.
En İyi Ofis Verimlilik Araçları
Son Dakika: Kutools for Outlook Ücretsiz Sürümünü Başlattı!
Yepyeni Kutools for Outlook ÜCRETSİZ sürümünü70'ten fazla harika özellikle sonsuza dek kullanabilirsiniz! Şimdi indirmek için tıklayın!
📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-postaları Zamanla Gönder / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selamlama Ekle / Çoklu 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 Dolandırıcılı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 Güzel ve Havalı Emoji / Önemli e-postalar geldiğinde sizi uyarır / Outlook'u Kapatmak Yerine Simge Durumuna Küçült...
👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı E-postalarına Karşı Koruma / 🕘Gönderenin Saat Dilimini Göster...
👩🏼🤝👩🏻 Kişiler & Takvim: Seçilen 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...

