Could you just write a Macro that does:

Dim item
For Each item In
Application.GetNamespace("MAPI").GetDefaultFolder( olFolderContacts).Items
If TypeOf item Is ContactItem Then
item.Journal = True
item.Save
End If
Next

I didn't run this to test, but it seems straightforward enough.

--
Josh Einstein (Tablet PC MVP)
Einstein Technologies
Tablet Enhancements for Outlook - Try it free: www.tabletoutlook.com
Chock full of inky goodness!


"Zadig Galbaras" wrote in message
...
Hi!

I hav just added more than six hundred contacts to my contacts list in
Outlook 2007, and I want to have them all selected in the journal logg
window.
I then go to the option window and select journal optons to logg the
journal for all my contacts.

Do I really have to scroll through the whole list, now containing more
than a thousand contacts, and click on the ones not marked yet, or is
there another much easiert way?

This seems to take forever.


-
regards
Zadig Galbaras