JournalItem ContactNames always empty

  • Thread starter Thread starter BrammekeDotNet
  • Start date Start date
B

BrammekeDotNet

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
 
Am 9 Oct 2006 15:25:12 -0700 schrieb BrammekeDotNet:

Please loop through the JournalItem´s Links collection instead, each Link
object has a Name property and an Item property for the full ContactItem.
 
Back
Top