Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

travailler dans la Boite de reception outlook

fredl

XLDnaute Impliqué
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
'////////////////////////////////////////////////////////////////
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…