recording journal entries in Outlook 2007

  • Thread starter Thread starter Zadig Galbaras
  • Start date Start date
Z

Zadig Galbaras

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
 
If you export your contacts to an Excel spreadsheet, can you make the
universal change and then import them back into Outlook?

--
Milly Staples [MVP - Outlook]

Post all replies to the group to keep the discussion intact. All
unsolicited mail sent to my personal account will be deleted without
reading.

After furious head scratching, Zadig Galbaras asked:

| 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
 
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.
 
I am really thankful for those of you answering my request, as I myself had
a hard time understanding it now, a day after I wrote it.
:-)
I promise to proof read my next request.

But thank you for that answer with that macro of yours, I will try it out
over the weekend.
It seems to do the trick as far as I can see right now.

--øg--
 
Back
Top