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
- Yapay zeka teknolojisiyle e-posta üretkenliğinizi artırın, size hızlı cevap verme, yeni taslaklar oluşturma, mesajları çevirme ve daha fazlasını daha verimli bir şekilde yapma imkanı sağlar.
- Otomatik CC/BCC, kurallara göre Otomatik Yönlendirme ile e-posta göndermeyi otomatikleştirin; Exchange sunucusu gerektirmeden Otomatik Yanıt (Dışarıda) gönderin...
- BCCde olduğunuzda tümünü yanıtla seçeneğini kullandığınızda BCC Uyarısı veya unutulmuş ekler için Eklenti Hatırlatma gibi hatırlatıcılar alın...
- Ekleri İçeren Tümünü Yanıtla, Selamlama veya Tarih & Saat Bilgisini Otomatik Ekleme veya Konu, Birden Fazla E-postayı Yanıtlama gibi özelliklerle 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 ile 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ı
Flaş Haber: Kutools for Outlook Ücretsiz Sürümü Yayında!
Yepyeni Kutools for Outlook'u100’den fazla harika özellikle deneyimleyin! Hemen indirin!
📧 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!

