Hi!

I succeeded in listing all JournalItems from my Outlook journal in
Excel. However, when I try to read the ContactNames property, it always
returns an empty string.

When I'm accessing the ContactNames property, I'm being prompted by
Outlook's "Object Model Guard" if I want to allow access or not. Of
course I allow access, but the ContactNames property stays empty.

Am I missing something here?

Set itemsCollection = folder.Items
itemsCount = itemsCollection.Count

If itemsCount 0 Then
For i = 1 To itemsCount
If TypeName(itemsCollection(i)) = "JournalItem" Then
Set journalItem = itemsCollection(i)

' Call my custom function to add the imported data to a row
AddRow journalItem.Subject, journalItem.ContactNames
End If
Next
End If

Thank you,
Bram