OK,
After Send() use method MoveTo() on object oNew.

MartinJ

>Martin,
>Is it just an Update instaed of a send I need , Yes ??
>Regards,
>
>Gerard
>
>
>>

>>oApp=CreateObject('Outlook.application')
>>oSpace=oApp.GetNameSpace('MAPI')
>>
>>oMess=oSpace.GetDefaultFolder(6)
>>oNew=oMess.Items.Add()
>>oNew.Subject='This is a line'
>>oNew.Update
>>

>>
>> MartinJ
>>
>>>I'm trying to add records to Outlook's inbox
>>>(To simulate a RECEIPT of mail)
>>>and am having difficulty.
>>>
>>>oApp=CreateObject('Outlook.application')
>>>oSpace=oApp.GetNameSpace('MAPI')
>>>
>>>oMess=oSpace.GetDefaultFolder(6)
>>>oNew=oMess.Items.Add()
>>>oNew.Subject='This is a line'
>>>oNew.Send
>>>
>>>This code seems to put the data ok into the outbox, waiting to be sent
>>>
>>>What I need to do is insert a line into the Inbox
>>>
>>>
>>>
>>>Regards,
>>>
>>>Gerard