Outlook'taki ileti sayıları Excel çalışma kitabına nasıl dışa aktarılır?

Normalde, İçe/Dışa Aktarma özelliğini kullanarak Outlook iletilerini hızlı ve kolay bir şekilde Excel dosyasına aktarabilirsiniz. Peki, belirli bir e-posta hesabınızın tüm klasörlerindeki öğeleri saymayı ve bu sayısal sonuçları bir Excel çalışma kitabına dışa aktarmayı denediniz mi?

Outlook ileti sayılarını VBA koduyla Excel çalışma kitabı'a aktarma

---

Outlook ileti sayılarını VBA koduyla Excel çalışma kitabı'a aktarma

Aşağıdaki VBA kodu, belirli bir e-posta hesabının tüm klasörlerindeki sayısal verileri Excel çalışma kitabına aktarmanıza yardımcı olur. Lütfen aşağıdaki adımları izleyin:

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ıp aşağıdaki kodu "Modül" penceresine yapıştırın.

VBA kodu: Outlook öğe sayılarını Excel çalışma kitabı'a aktarma

Sub Export_CountOfItems_InEachFolder_toExcel()
    Dim xSourceFolder As Outlook.Folder, xSubFolder As Outlook.Folder
   Dim xFilePath As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
    On Error Resume Next
    Set xExcelApp = New Excel.Application
    Set xWb = xExcelApp.Workbooks.Add
    Set xWs = xWb.Sheets(1)
    xWs.Cells(1, 1) = "Folder"
    xWs.Cells(1, 2) = "Count Items"
    Set xSourceFolder = Outlook.Application.Session.PickFolder
    If xSourceFolder = nill Then
        xWb.Close False
        xExcelApp.Quit
        Exit Sub
    End If
    For Each xSubFolder In xSourceFolder.Folders
        Call ProcessFolders(xWs, xSubFolder)
    Next
    xWs.Columns("A:B").AutoFit
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
   If TypeName(xFolder) = "Nothing" Then
        xWb.Close False
        xExcelApp.Quit
        Exit Sub
    End If
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    xFilePath = xFilePath & xSourceFolder.Name & "(" & Format(Now, "yyyy-mm-dd hh-mm-ss") & ").xlsx"
    xWb.Close True, xFilePath
    xExcelApp.Quit
    Set xShell = Nothing
    MsgBox "Complete!", vbExclamation, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal Ws As Worksheet, ByVal xCurFolder As Outlook.Folder)
    Dim xSubFld As Folder
    Dim xItemCount As Long
   Dim xRow As Integer
    xItemCount = xCurFolder.Items.Count
    xRow = Ws.UsedRange.Rows.Count + 1
    Ws.Cells(xRow, 1) = xCurFolder.FolderPath
    Ws.Cells(xRow, 2) = xItemCount
    If xCurFolder.Folders.Count > 0 Then
       For Each xSubFld In xCurFolder.Folders
           Call ProcessFolders(Ws, xSubFld)
       Next
    End If
End Sub

3. Hâlâ "Microsoft Visual Basic for Applications" penceresindeyken, "Araçlar" > "Referanslar" seçeneğine tıklayarak "Referanslar – Proje1" iletişim kutusunu açın ve "Kullanılabilir Referanslar" listesinden "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. Karşınıza "Klasör Seç" penceresi çıkacaktır; lütfen dışa aktarmak istediğiniz e-posta hesabını seçin (ekran görüntüsüne bakın):

5. Ardından "Tamam" düğmesine tıklayın; karşınıza yeni bir "Klasör için Gözat" penceresi açılacaktır. Lütfen Excel dosyanızı kaydetmek istediğiniz klasörü seçin—ekran görüntüsüne göz atın:

6. Son olarak "Tamam" düğmesine tıklayın; seçilen hesabın tüm klasörlerindeki öğe sayıları bir Excel çalışma kitabına aktarılacaktır. Sonucu görüntülemek için Excel dosyasını açabilirsiniz—ekran görüntüsüne bakın: