>Thanks Joaquim.
>
>I dont seem to be explaining my problem in the correct way. With the unique entry id i now store in my table i want to view the email within Outlooks editor ie as you would by double clicking on the item in Outlook.
>
>Thanks for your patience

Ok, that's easy:

aplicacao = createobject("outlook.application")
espaco = aplicacao.GetNamespace("MAPI")
inbox = espaco.GetDefaultFolder(6)

* First: choose a message an retrive its Entry ID
SelectedMessage = inbox.items(50)
UniqueReferenceToMessage = SelectedMessage.EntryID

* Second: run through Inbox and try to find that message by looking it's Entry Id
TotalMsgs = inbox.items.count
for i = 1 to TotalMsgs
	ActualMessage = inbox.items(i)
	
	if ActualMessage.EntryID = UniqueReferenceToMessage
		= messagebox("Message nr. " + transform(i) + chr(13) + ;
		"Subject: " + substr(ActualMessage.subject,1,40) + chr(13) + ;
			"Body: " + substr(ActualMessage.body,1,40) + chr(13) + ;
			"Nr. of Attachments: " + transform(ActualMessage.attachments.count))
		
		actualmessage.display
		exit
	endif
next

inbox = null
espaco = null
aplicacao = null

Note the line 'actualmessage.display', it'll do the job

Joaquim