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