Outlook'ta tüm klasörlerin ve alt klasörlerin listesini nasıl dışa aktarabilir ve yazdırabilirsiniz?

Author: Kelly Last Modified: 2025-08-26

Genel olarak, Outlook'taki Gezinti Bölmesindeki tüm klasörlerin listesini görüntülemek için "Ctrl" + "6" tuşlarına basabilirsiniz. Ancak, klasör listesini doğrudan yazdıramazsınız. Bu makale, Outlook'taki tüm klasörlerin ve alt klasörlerinin listesini dışa aktarmak ve yazdırmak için iki VBA betiği tanıtmaktadır.

Yeni e-postada tüm Outlook klasörlerinin ve alt klasörlerinin listesini dışa aktarma ve yazdırma
Not Defteri'nde tüm Outlook klasörlerinin ve alt klasörlerinin listesini dışa aktarma ve yazdırma

Yeni e-postada tüm Outlook klasörlerinin ve alt klasörlerinin listesini dışa aktarma ve yazdırma

Bu yöntem, belirli bir e-posta hesabındaki tüm klasörlerin ve alt klasörlerinin listesini Outlook'ta yeni bir e-postaya aktarmak için bir VBA betiği tanıtır. Daha sonra, klasör listesini kolayca yazdırabilirsiniz.

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

2. "Ekle" > "Modül" seçeneğine tıklayın ve aşağıdaki VBA kodunu yeni modül penceresine yapıştırın.

VBA: Yeni bir e-postada klasörlerin ve alt klasörlerin listesini dışa aktarma

Public gFolders As String

Public Sub GetFolderNames()
Dim oSession As Outlook.NameSpace
Dim oFolder As Outlook.MAPIFolder
Dim oNewMail As Outlook.MailItem

Set oSession = Outlook.Application.GetNamespace("MAPI")
Set oFolder = oSession.PickFolder

If (oFolder Is Nothing) Then Exit Sub

ProcessFolder oFolder

Set oNewMail = Application.CreateItem(olMailItem)
oNewMail.Body = gFolders
oNewMail.Display

gFolders = ""
End Sub

Sub ProcessFolder(CurrentFolder As Outlook.MAPIFolder)
Dim i As Long
Dim oSubFolder As Outlook.MAPIFolder
Dim oFolder As Outlook.MAPIFolder
Dim sFolderPaths As String

For i = CurrentFolder.Folders.Count To 1 Step -1
    Set oFolder = CurrentFolder.Folders(i)
    sFolderPaths = oFolder.FolderPath
    gFolders = gFolders & vbCrLf & sFolderPaths & " " & oFolder.Items.Count
Next

For Each oSubFolder In CurrentFolder.Folders
    If oSubFolder.Name <> "Deleted Items" Then
        ProcessFolder oSubFolder
    End If
Next
End Sub

3. VBA'yı çalıştırmak için "F5" tuşuna basın.

4. Açılan Klasör Seçin iletişim kutusunda, klasör listesini yazdırmak istediğiniz e-posta hesabını seçin ve "Tamam" düğmesine tıklayın.

Select folder dialog

5. Seçilen hesabın klasör listesi aşağıda gösterildiği gibi yeni bir e-postaya kopyalanacaktır. Klasör listesini yazdırmak için "Dosya" > "Yazdır" seçeneğine tıklayın.

Generated email with folder list

6. Yazdırmadan sonra, yeni e-postayı kaydetmeden kapatın.

Not Defteri'nde tüm Outlook klasörlerinin ve alt klasörlerinin listesini dışa aktarma ve yazdırma

Bu yöntem, Outlook'tan Not Defteri'ne belirli bir e-posta hesabındaki tüm klasörlerin ve alt klasörlerinin listesini aktarmak için bir VBA betiği tanıtır. Daha sonra klasör listesini kolayca yazdırabilirsiniz.

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

2. "Ekle" > "Modül" seçeneğine tıklayın ve ardından aşağıdaki VBA kodunu yeni modül penceresine yapıştırın.

VBA: Tüm Outlook klasörlerinin ve alt klasörlerinin listesini Outlook'tan Not Defteri'ne aktarma

Dim gFileName, gCreateTree, gBase

Public Sub ExportFolderTree()
Dim objOutlook
Dim F, Folders
Dim Result

Set objOutlook = CreateObject("Outlook.Application")
Set F = objOutlook.Session.PickFolder

If Not F Is Nothing Then
    Set Folders = F.Folders
    Result = MsgBox("Do you want to create tree?", vbYesNo + vbDefaultButton2 + vbApplicationModal, "Output Folder Tree")
    If Result = 6 Then
        gCreateTree = True
    Else
        gCreateTree = False
    End If

    gFileName = GetDesktopFolder() & "\Outlook-Folders.txt"
    gBase = Len(F.FolderPath) - Len(Replace(F.FolderPath, "\", "")) + 1

    WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))
    LoopFolders Folders

    Set F = Nothing
    Set Folders = Nothing
    Set objOutlook = Nothing
End If
End Sub

Private Function GetDesktopFolder()
Dim objShell
Set objShell = CreateObject("WScript.Shell")
GetDesktopFolder = objShell.SpecialFolders("Desktop")
Set objShell = Nothing
End Function

Private Sub LoopFolders(Folders)
Dim F
For Each F In Folders
    WriteToATextFile (CreateFolderTree(F.FolderPath, F.Name))
    LoopFolders F.Folders
Next
End Sub

Private Sub WriteToATextFile(OLKfoldername)
Dim objFSO, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(gFileName, 8, True)
objTextFile.WriteLine (OLKfoldername)
objTextFile.Close
Set objFSO = Nothing
Set objTextFile = Nothing
End Sub

Private Function CreateFolderTree(OLKfolderpath, OLKfoldername)
If gCreateTree = False Then
    CreateFolderTree = Mid(OLKfolderpath, 3)
Else
    Dim i, x, OLKprefix
    i = Len(OLKfolderpath) - Len(Replace(OLKfolderpath, "\", ""))
    For x = gBase To i
        OLKprefix = OLKprefix & "-"
    Next
    CreateFolderTree = OLKprefix & OLKfoldername
End If
End Function

3. VBA'yı çalıştırmak için "F5" tuşuna basın. Açılan Klasör Seçin iletişim kutusunda, klasör listesini aktarmak ve yazdırmak istediğiniz e-posta hesabını seçin, ardından "Tamam" düğmesine tıklayın.

Select folder dialog

4. Çıktı Klasör Ağacı iletişim kutusu görünecektir. Ağacın girintisini dahil etmek isteyip istemediğinize bağlı olarak "Evet" veya "Hayır" seçeneğine tıklayın.

Prompt for tree creation

Şu anda, masaüstünüzde aşağıda gösterildiği gibi "Outlook-Klasörler" adlı bir metin dosyası oluşturulmuş ve kaydedilmiştir:

Outlook-Folders text file

5. Yeni metin dosyasını açmak için çift tıklayın, ardından aktarılmış Outlook klasörlerinin listesini yazdırmak için "Dosya" > "Yazdır" seçeneğine tıklayın.

Outlook'daki AI Mail Asistanı: Daha Akıllı Yanıtlar, Daha Açık İletişim (tek tıklama sihirbazlığı!) ÜCRETSİZ

Kutools for Outlook'un AI Mail Asistanı ile günlük Outlook görevlerinizi kolaylaştırın. Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek size akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesaj taslaklarını hazırlamada ve geliştirmede size yardımcı olur.

Bu özellik şunları destekler:

Akıllı Yanıtlar: Geçmiş konuşmalarınızdan oluşturulan, kişiselleştirilmiş, kesin ve kullanıma hazır yanıtlar alın.
Geliştirilmiş İçerik: E-posta metniniz otomatik olarak netlik ve etki için iyileştirilir.
Kolay Taslak Oluşturma: Sadece anahtar kelimeler sağlayın ve AI'nın gerisini halletmesine izin verin; birden fazla yazım stiliyle.
Akıllı Genişletmeler: Bağlam farkındalığına sahip önerilerle düşüncelerinizi genişletin.
Özetleme: Uzun e-postaların kısa ve öz bir özetini anında alın.
Küresel Kapsam: E-postalarınızı herhangi bir dile kolayca çevirin.

Bu özellik şunları destekler:

Akıllı e-posta yanıtları
Optimize edilmiş içerik
Anahtar kelimeye dayalı taslaklar
Akıllı içerik genişletme
E-posta özetleme
Çok dilli çeviri

En önemlisi, bu özellik sonsuza kadar tamamen ücretsiz! Boşuna beklemeyin—şimdi AI Mail Asistanını indirin ve keyfini çıkarın

İlgili Makaleler

Outlook'ta klasör listesi görünümünü gösterme veya gizleme

En İyi Ofis Verimlilik Araçları

Son Dakika: Kutools for Outlook Ücretsiz Sürümünü Sunmaya Başladı!

Yepyeni Kutools for Outlook ile100'den fazla etkileyici özelliği deneyimleyin! Şimdi indir!

🤖 Kutools AI : Gelişmiş yapay zeka teknolojisi sayesinde e-postalarınızı kolayca yönetir; yanıtlama, özetleme, optimize etme, uzatma, çeviri ve e-posta oluşturma işlemlerini zahmetsizce gerçekleştirir.

📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Zamanla / E-posta Gönderirken Kurala Göre Otomatik CC/BCC / Gelişmiş Kurallar ile Otomatik Yönlendirme / Selamlama Ekle / Çoklu Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Böl...

📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu veya diğer kriterlere göre dolandırıcılık amaçlı e-postaları 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 Büyüsü: 😊 Daha Fazla Şık ve Eğlenceli Emoji / Önemli e-postalar geldiğinde uyarı / Outlook'u kapatmak yerine 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...

Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla başka dili destekler!

Tek tıkla Kutools for Outlook'u anında etkinleştirin. Beklemeyin, hemen indirin ve verimliliğinizi artırın!

Kutools for Outlook Özellik Listesi Şimdi İndir Satın Al'a Git

🚀 Tek Tıkla İndir — Tüm Ofis Eklentilerini Edinin

Şiddetle Tavsiye Edilen: Kutools for Office (5'i1 arada)

Tek tıkla beş kurulum paketini birden indirin — Kutools for Excel, Outlook, Word, PowerPoint ve Office Tab Pro. Şimdi indir!

✅ Tek tık kolaylığı: Beş kurulum paketinin hepsini tek seferde indirin.
🚀 Her türlü Ofis görevi için hazır: İhtiyacınız olan eklentileri istediğiniz zaman yükleyin.
🧰 Dahil olanlar: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

Paket Hakkında ⬇ Paketi İndir 💳 Paketi Satın Al