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