Note: The other languages of the website are Google-translated. Back to English

Outlook'ta klasörlerin listesi nasıl alınır?

Bazen Gezinti Bölmesindeki tüm posta klasörlerinin ağaç yapısı (oluşturulan kişisel klasörler dahil) Outlook kullanıcıları için çalışmaları sırasında biraz yardımcı olabilir. Tüm ağaç yapısı klasörlerini hızlı bir şekilde listelemek için VBA kodu size yardımcı olabilir. Bu öğreticide, VBA kodu ile klasörlerin listesini kolayca nasıl alacağınızı öğrenebilirsiniz.

Outlook'ta VBA kodu ile klasörlerin listesini alın

Office Sekmesi - Office'te Sekmeli Düzenleme ve Taramayı Etkinleştirin ve Çalışmayı Çok Daha Kolay Hale Getirin ...
Kutools for Outlook - Microsoft Outlook'a 100 Güçlü Gelişmiş Özellik Getiriyor
  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Kurallara göre Birden Fazla E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - posta adresiniz BCC listesindeyse tümünü yanıtlamaya çalıştığınızda mesajı gösterin; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Tüm Eklerle Yanıtla (Hepsi) posta görüşmesinde; Birçok E-postayı aynı anda yanıtlayın; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Otomatik Tarih ve Saat Ekle ...
  • Ek Araçları: Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Otomatik Kaydet ... Hızlı rapor, Seçilen Postaları Say, Yinelenen Postaları ve Kişileri Kaldır ...
  • 100'den fazla gelişmiş özellik problemlerinin çoğunu çöz Outlook 2021 - 2010 veya Office 365'te. Tam özellikler 60 günlük ücretsiz deneme.

ok mavi sağ balonOutlook'ta VBA kodu ile klasörlerin listesini alın

Outlook'ta VBA kodlu klasörlerin listesini almak için lütfen aşağıdaki işlemleri gerçekleştirin.

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

2. 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:

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

VBA: Outlook'ta klasörlerin listesini alın

Option Explicit
Sub GetFoldersList()
    On Error GoTo On_Error
    
    Dim Report As String
    Dim Folder As Outlook.Folder
       
    For Each Folder In Application.Session.Folders
        Report = Report & "---------------------------------------------------------------------------" & vbCrLf
        Call RecurseFolders(Folder, "", Report)
    Next
    Call CreateReportEmail("Outlook Folders List", Report)
    
Exiting:
    Exit Sub
On_Error:
    MsgBox "error=" & Err.Number & " " & Err.Description
End Sub
Sub RecurseFolders(CurrentFolder As Outlook.Folder, TabChars, ByRef Report As String)
    Dim SubFolder As Outlook.Folder
    Dim FolderName, StoreName As String
    
    FolderName = CurrentFolder.Name
    StoreName = CurrentFolder.Store.DisplayName
    
    Report = Report & TabChars & FolderName & " (Store: " & StoreName & ")" & vbCrLf
    
    For Each SubFolder In CurrentFolder.Folders
        Call RecurseFolders(SubFolder, TabChars & vbTab, Report)
    Next SubFolder
End Sub
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

4. Tuşuna basın. F5 VBA kodunu çalıştırmaya başlamak için klavyedeki tuşuna basın.

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

6. Makronun çalışmasını bekleyin. Ardından, tüm e-posta klasörlerinizin listesi, oluşturulan yeni bir mesaj penceresinde hemen listelenir. Kolayca yazdırabilirsiniz. Ekran görüntüsüne bakın:

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


Outlook için Kutools - Outlook'a 100 Gelişmiş Özellik Getirir ve Çalışmayı Çok Daha Kolay Hale Getirir!

  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Özel olarak birden çok E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - tümünü yanıtlamaya çalıştığınızda mesaj göster posta adresiniz BCC listesindeyse; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Posta görüşmesindeki Tüm Eklerle Yanıtla (Tümü); Birçok E-postayı Yanıtla saniyeler içinde; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Tarih Ekle ...
  • Ek Araçları: Tüm Postalardaki Tüm Ekleri Yönetin, Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Kaydet ... Hızlı Rapor, Seçili Postaları Say...
  • Güçlü Önemsiz E-postalar özel olarak; Yinelenen Postaları ve Kişileri Kaldır... Outlook'ta daha akıllı, daha hızlı ve daha iyi yapmanızı sağlar.
shot kutools görünüm kutools sekmesi 1180x121
shot kutools görünüm kutools artı sekme 1180x121
 
Yorumları sıralama ölçütü
Yorumlar (2)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
OLK 365 ile mükemmel çalışıyor, Teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Klasörlerin boyutunu almak için bunu nasıl yaparsınız?
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır