travailler dans la Boite de reception outlook

[fredl]

Bonjour à tous,
Je souhaite travailler sur les mails de la Boite de reception outlook.
Je déclare outlook par un object afin de ne pas utiliser la librairie outlook(condition obligatoire)
Dans le code qui suit, une erreur apparait à l'instruction :
"Set olInbox = olSpace.GetDefaultFolder(olFolderInbox)"

Auriez vous une idée fonctionnelle de remplacement de cette instruction qui permet de pointer sur la "boite de reception?"

merci d'avance pour votre aide précieuse.

'////////////////////////////////////////////////////////////////
Sub triMessages_dansBoiteReception()
Dim j As Integer


Set olApp = CreateObject("Outlook.application")
Set olSpace = olApp.GetNamespace("MAPI")
Set olInbox = olSpace.GetDefaultFolder(olFolderInbox)
'boucle sur tous les messages de la boite de réception
For j = olInbox.Items.Count To 1 Step -1
v = olInbox.Items(j).Subject
Next j


End Sub
'////////////////////////////////////////////////////////////////