Guest_imported
New member
- Jan 1, 1970
- 0
Does anyone know how to find journal entries in outlook by a specific date? The only way I can find what I'm looking for is by looping through every journal entry I have in outlook and checking the creation date which is very inefficient. What I have looks something like this:
Set objNs = Application.GetNamespace("MAPI"
Set objFolderJournal = objNs.GetDefaultFolder(olFolderJournal)
For i = 1 To objFolderJournal.Items.Count
Set JournalEntry = objFolderJournal.Items(i)
'MsgBox (JournalEntry.CreationTime)
'MsgBox (JournalEntry.Body)
Next i
Set objNs = Application.GetNamespace("MAPI"
Set objFolderJournal = objNs.GetDefaultFolder(olFolderJournal)
For i = 1 To objFolderJournal.Items.Count
Set JournalEntry = objFolderJournal.Items(i)
'MsgBox (JournalEntry.CreationTime)
'MsgBox (JournalEntry.Body)
Next i