Linking Journal Items to Contacts

  • Thread starter Thread starter Russ Ganz
  • Start date Start date
R

Russ Ganz

I am in the process of converting a Daytimer 2000 database to Outlook
2000. I have successfully converted all the contact records and I am
able to write Journal messages but I have the following issues...

1) I use the following code to create the journal item

Dim app As New Outlook.Application
Dim jrn As Outlook.JournalItem
Dim rcp As Outlook.Recipient
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("Select * from DaytimerImport
where field1 = 'Phone Call'")
Do While Not rs.EOF
Set jrn = app.CreateItem(olJournalItem)
jrn.Subject = "Phone Call"
jrn.Body = rs!Field8
Set rcp = jrn.Recipients.Add(rs!Field5)
rcp.Resolve
jrn.Save
rs.MoveNext
Loop

This will link the journal record up only if the owner is in the main
contacts folder. How would you link up the record to a contact in a
folder other than the main contacts folder

2)How do you set the type of journal folder to, 'Phone Call',
'Meeting' etc. In the object browser I couldn't find a property to do
this and also I couldn't find any appropriate constants to use to set
the value.

3)I just can't figure out why, if you are on a Contact record, and you
add a journal item, why Outlook doesn't automatically link this
journal item to the contact you are on. What a pain to have to mainly
set the contact field in the bottom left of the screen. Therefore I
would like to modify the contact form so when you create a new journal
item it automatically populates the contact field. It would take me 2
minutes to do this in VB or Access but I have no clue how to do it in
Outlook (wouldn't it be nice to be able to 'Open Form' and just set
the contact field in code, maybe its easy but it sure beats me).

Thanks,

Russ Ganz
 
Actions, New Journal item for contact will open a new journal item
already populated with that contact in the Contacts field (Links
collection). If you have a Journal item you can link it in code to a
contact by getting a contact as a ContactItem and using the Add method
of the Links collection of that journal item.

I don't follow what the question is with your code sample.
 
My issue is that the command

Set rcp = jrn.Recipients.Add("John Doe")

will only look in the main contacts folder to find the contact. I had
loaded these new imported contacts into a subfolder under the main
contacts folder so no items were linked. If I can't specify in code
where to look to find the contact I will have to load all the contacts
into the main contacts folder.

Actions, New Journal item for contact will open a new journal item
already populated with that contact in the Contacts field (Links
collection).
Click to expand...
Thanks for the tip. I was always just choosing File/New Journal Item
and it never occurred that the actions menu had just what I wanted. I
will put a button on all my clients to do this command.


Russ
 
Back
Top