Creating new Journal item in Outlook

[elziko]

Everytime I use this code:

Dim objOutlook As New Outlook.Applica tion
Dim objNameSpace As Outlook.NameSpa ce
Dim objFolder As Outlook.MAPIFol der
Dim objJournalEntry As Outlook.Journal Item =
DirectCast(objO utlook.CreateIt em(Outlook.OlIt emType.olJourna lItem),
Outlook.Journal Item)
objJournalEntry .Subject = "TEST!"
objNameSpace = objOutlook.GetN amespace("MAPI" )
objFolder =
objNameSpace.Ge tDefaultFolder( Outlook.OlDefau ltFolders.olFol derJournal)
objFolder.Items .Add(objJournal Entry)

To create a new Journal item I get the following exception:

An unhandled exception of type 'System.Argumen tException' occurred in
WindowsApplicat ion4.exe
Additional information: Could not complete the operation. One or more
parameter values are not valid.

I'm using the Outlook 10.0 object model.

Anyone know what I'mm doing wrong. Are there some properties of a
JournalItem that MUST be completed before adding?

--

Cheers,

elziko

[Jay B. Harlow [MVP - Outlook]]

Elziko,
Which line are you getting that error on?

Normally what I do is get a working example in Outlook VBA, then I cut &
paste that into VB.NET making any changes as needed. (or use "Tools -
Upgrade VB6 code" available in VS.NET 2003).

This way I know its not some strange interop issue.

objFolder.Items .Add(objJournal Entry) The Items.Add method takes the OlItemType enum which is the type of item to
CREATE or it takes a string which is the message class. It does not accept
an Outlook JournalItem.

Instead of: Dim objJournalEntry As Outlook.Journal Item =
DirectCast(objO utlook.CreateIt em(Outlook.OlIt emType.olJourna lItem),
Outlook.Journal Item) ... objFolder.Items .Add(objJournal Entry)
Try:
Dim objJournalEntry As Outlook.Journal Item _
= DirectCast( _
objFolder.Items .Add(Outlook.Ol ItemType.olJour nalItem), _
Outlook.Journal Item)

Hope this helps
Jay

"elziko" <el****@NOTSPAM MINGyahoo.co.uk > wrote in message
news:3f******** *************** @news.easynet.c o.uk... Everytime I use this code:

Dim objOutlook As New Outlook.Applica tion
Dim objNameSpace As Outlook.NameSpa ce
Dim objFolder As Outlook.MAPIFol der
Dim objJournalEntry As Outlook.Journal Item =
DirectCast(objO utlook.CreateIt em(Outlook.OlIt emType.olJourna lItem),
Outlook.Journal Item)
objJournalEntry .Subject = "TEST!"
objNameSpace = objOutlook.GetN amespace("MAPI" )
objFolder =
objNameSpace.Ge tDefaultFolder( Outlook.OlDefau ltFolders.olFol derJournal)
objFolder.Items .Add(objJournal Entry)

To create a new Journal item I get the following exception:

An unhandled exception of type 'System.Argumen tException' occurred in
WindowsApplicat ion4.exe
Additional information: Could not complete the operation. One or more
parameter values are not valid.

I'm using the Outlook 10.0 object model.

Anyone know what I'mm doing wrong. Are there some properties of a
JournalItem that MUST be completed before adding?

--

Cheers,

elziko