2 Quick Ways to Export a Specific Type of Outlook Journal Entries in a Specific Date Range

If you would like to export a specific type of journal entries in a specific date range from Outlook to Excel, you can read this post. Here we will expose 2 quite effective approaches to you.

Outlook Journal can automatically track all kinds of your actions, such as dealing with Word documents, Excel workbooks, phone calls, attending meetings, etc. If you have a lot of journal entries in your Outlook, at times, you may want to export a specific type of journal entries in a specific date range, such as all phone calls last month. In this situation, you may think of using the inbuilt “Import and Export” feature. Yet, it does not allow you to set exporting filters. Hence, you have to use other methods, such as the following one.

Method 1: Copy to Excel after Searching

  1. At first, open the “Journal” folder.
  2. Then, press “Ctrl + E” to show “Search” ribbon.
  3. Next, in the search box, type the specific journal type, such as “Phone Call”.
  4. After that, enter a date range in the search box, such as “Start: >11/1/2017 <2/9/2018”.Search Specific Journal Entries
  5. Later, only the specific type of journal entries in specific date range will be left.
  6. Now, pitch on one search result and press “Ctrl + A” to select all.
  7. Subsequently, press “Ctrl + C” to copy all.Copy All Found Journal Entries
  8. Afterwards, create a new Excel file.
  9. Finally, select “A1” cell in a worksheet and press “Ctrl + V” to paste the copied items.Paste Copied Journal Entries into Excel

Method 2: Export to Excel via Outlook VBA

  1. First of all, press “Alt + F11” to access Outlook VBA editor.
  2. Then, in the new window, add reference to “MS Excel Object Library” with accordance to “How to Add an Object Library Reference in VBA“.
  3. After that, put the following VBA code into a module.
Sub ExportSpecificTypeJournalEntriesInSpecificDateRange()
    Dim objJournals, objRestrictJournals As Outlook.Items
    Dim strStartDate, strEndDate As String
    Dim strFilter As String
    Dim objJournal As Outlook.JournalItem
    Dim strContacts As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nRow As Integer
 
    strStartDate = InputBox("Enter the start date:", , Format(Now - 30, "YYYY/MM/DD"))
    strEndDate = InputBox("Enter the end date:", , Format(Now, "YYYY/MM/DD"))
 
    Set objJournals = Application.Session.GetDefaultFolder(olFolderJournal).Items
    strFilter = "[Start] >= " & Chr(34) & strStartDate & " 00:00 AM" & Chr(34) & " AND [End] <= " & Chr(34) & strEndDate & " 11:59 PM" & Chr(34)
    Set objRestrictJournals = objJournals.Restrict(strFilter)
 
    Set objExcelApp = CreateObject("Excel.Application")
    objExcelApp.Visible = True
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Worksheets(1)
 
    With objExcelWorksheet
         .Cells(1, 1) = "Subject"
         .Cells(1, 2) = "Start Date"
         .Cells(1, 3) = "Duration"
         .Cells(1, 4) = "Contact"
         .Cells(1, 5) = "Company"
    End With
 
    nRow = 2
    For Each objJournal In objRestrictJournals
        If objJournal.Type = "Phone Call" Then
           If objJournal.Links.Count > 0 Then
              strContacts = ""
              For i = 1 To objJournal.Links.Count
                  If objJournal.Links(i).Type = olContact Then
                     strContacts = strContacts & objJournal.Links(i).Name & "; "
                  End If
              Next
            End If
 
            With objExcelWorksheet
                 .Cells(nRow, 1) = objJournal.Subject
                 .Cells(nRow, 2) = objJournal.Start
                 .Cells(nRow, 3) = objJournal.Duration
                 .Cells(nRow, 4) = strContacts
                 .Cells(nRow, 5) = objJournal.Companies
            End With
           nRow = nRow + 1
       End If
    Next
 
    objExcelWorksheet.Columns("A:E").AutoFit
End Sub

VBA Code - Export a Specific Type of Outlook Journal Entries in a Specific Date Range

  1. Next, press “F5” key button to trigger this macro.
  2. Subsequently, in the popup dialog box, enter a start date and end date.Enter Start and End Date
  3. After that, immediately, a new Excel file will be displayed, which contains the exported journal entries, as shown in the following image.Exported Journal Entries in Excel

Get out of Outlook Corruption

When encountering Outlook file damage, if you also don’t hold an effective data backup, you have to try to fix Outlook file. In the standard manner, you can try the inbox repair tool. Yet, usually, it will fail in that serious PST damage is beyond its capability. At that point, you have no choice but to utilize a more potent tool, such as DataNumen Outlook Repair.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including mdf recovery and outlook repair software products. For more information visit www.datanumen.com