Outlook'tan Excel'e klasör yapısını nasıl dışa aktarabilirsiniz?
Bu makalede, Outlook'tan bir hesabın klasör yapısını Excel dosyasına nasıl aktaracağınızı göstereceğim. Lütfen bu makalenin ayrıntılarını takip ederek gerçekleştirin.
VBA kodu kullanarak Outlook'tan bir hesabın klasör yapısını Excel'e aktarma
VBA kodu kullanarak Outlook'tan bir hesabın klasör yapısını Excel'e aktarma
Aşağıdaki VBA kod size yardımcı olabilir, lütfen aşağıdaki adımları izleyin:
1. Excel'i açın ve Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.
2. Ekle Insert > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül Penceresi'ne yapıştırın.
VBA kodu: Outlook'tan bir hesabın klasör yapısını Excel'e aktarma:
Dim xExcelApp As Excel.Application
Dim xWb As Excel.Workbook
Dim xWs As Excel.Worksheet
Dim xMainFolderCount As Long
Sub OutlookExportFolderStructureToExcel()
Dim xFolder As Folder
Dim xExcelFile As String
Dim xFileDialog As FileDialog
On Error Resume Next
Set xFolder = Outlook.Application.Session.PickFolder
If xFolder Is Nothing Then Exit Sub
Set xExcelApp = New Excel.Application
Set xWb = xExcelApp.Workbooks.Add
Set xWs = xWb.Sheets(1)
With xWs.Range("A1", "A1")
.Value = "Folder Structure"
.Font.Size = 14
.Font.Bold = True
End With
xMainFolderCount = Len(xFolder.FolderPath) - Len(Replace(xFolder.FolderPath, "\", "")) + 1
Call ExportToExcel(xFolder.FolderPath, xFolder.Name)
Call ProcessFolders(xFolder.Folders)
xWs.Columns("A").AutoFit
Set xFileDialog = xExcelApp.FileDialog(msoFileDialogSaveAs)
With xFileDialog
.AllowMultiSelect = False
.FilterIndex = 1
If .Show = 0 Then
xWb.Close False
xExcelApp.Quit
Set xExcelApp = Nothing
Exit Sub
End If
xExcelFile = .SelectedItems.Item(1)
End With
xWb.Close True, xExcelFile
MsgBox "Export complete!", vbExclamation, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal xFlds As Folders)
Dim xSubFolder As Folder
For Each xSubFolder In xFlds
If xSubFolder.Name <> "Conversation Action Settings" And xSubFolder.Name <> "Quick Step Settings" Then
Call ExportToExcel(xSubFolder.FolderPath, xSubFolder.Name)
Call ProcessFolders(xSubFolder.Folders)
End If
Next
End Sub
Sub ExportToExcel(ByRef xFolderPath As String, xFolderName As String)
Dim i, n As Long
Dim xPrefix As String
Dim xLastRow As Integer
i = Len(xFolderPath) - Len(Replace(xFolderPath, "\", "")) - xMainFolderCount
For n = 0 To i
xPrefix = xPrefix & "-"
Next
xFolderName = xPrefix & xFolderName
xLastRow = xWs.UsedRange.Rows.Count + 1
xWs.Range("A" & xLastRow) = xFolderName
End Sub
3. Hala Microsoft Visual Basic for Applications penceresindeyken, Araçlar > Referanslar'a tıklayarak References-Project1 iletişim kutusuna gidin ve Mevcut Referanslar listesi kutusundan Microsoft Excel Object Library seçeneğini işaretleyin, ekran görüntüsüne bakın:

4. Ardından Tamam düğmesine tıklayın ve bu kodu çalıştırmak için F5 tuşuna basın, bir Klasör Seç iletişim kutusu açılacaktır, lütfen klasör yapısını dışa aktarmak istediğiniz e-posta hesabını seçin, ekran görüntüsüne bakın:

5. Sonrasında, Tamam düğmesine tıklayın, bir Dosya Kaydet penceresi görüntülenecektir, lütfen bu dışa aktarılan dosya için bir konum ve dosya adı belirtin, ekran görüntüsüne bakın:

6. En sonunda, Kaydet düğmesine tıklayın ve kaydettiğiniz belirli Excel çalışma kitabına giderek dışa aktarılan klasör yapısını görüntüleyebilirsiniz, ekran görüntüsüne bakın:

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

