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
- At first, open the “Journal” folder.
- Then, press “Ctrl + E” to show “Search” ribbon.
- Next, in the search box, type the specific journal type, such as “Phone Call”.
- After that, enter a date range in the search box, such as “Start: >11/1/2017 <2/9/2018”.
- Later, only the specific type of journal entries in specific date range will be left.
- Now, pitch on one search result and press “Ctrl + A” to select all.
- Subsequently, press “Ctrl + C” to copy all.
- Afterwards, create a new Excel file.
- Finally, select “A1” cell in a worksheet and press “Ctrl + V” to paste the copied items.
Method 2: Export to Excel via Outlook VBA
- First of all, press “Alt + F11” to access Outlook VBA editor.
- Then, in the new window, add reference to “MS Excel Object Library” with accordance to “How to Add an Object Library Reference in VBA“.
- 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
- Next, press “F5” key button to trigger this macro.
- Subsequently, in the popup dialog box, enter a start date and end date.
- After that, immediately, a new Excel file will be displayed, which contains the exported journal entries, as shown in the following image.
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.
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