Question : Excel VBA a lu une chemise de perspectives dans Excel

J'ai le code suivant d'Excel qui fonctionne très bien pour importer le sujet et le tampon-date des articles dans mon Inbox.  Je veux le modifier pour importer d'un sub-folder dans mon Inbox appelé « étiquette ».  Y a-t-il une manière de faire ceci ? le
du

Sub ListAllItemsInInbox () obscurcissent OLF comme outlook.MAPIFolder, CurrUser comme String
obscurcissent EmailItemCount comme nombre entier, I comme nombre entier, EmailCount pendant qu'Integer
Application.ScreenUpdating = False
couvre (« Sheet1 »). Chaîne de Select
Cells.Clear
(« A1 »). Select
« ajoutent les cellules du headings
(1, 1).Formula = « sujet " cellules de
(1, 2).Formula = « a reçu le "
avec la gamme (« A1 : B1 »). Font
. "BOLD" = True
. Taille = extrémité With
de 14
Application.Calculation = xlCalculationManual
réglé OLF = GetObject ("", « Outlook.Application »). GetNamespace ( " MAPI »).
EmailItemCount = OLF.Items.Count
I = 0 de GetDefaultFolder (olFolderInbox) : EmailCount = 0
 » ont lu l'information
d'email tandis qu'I < EmailItemCount
I = I + 1
si mod 50 = 0 d'I puis Application.StatusBar = « des messages électroniques de lecture » et format (I/EmailItemCount, « 0% ») et »… le « 
avec OLF.Items (I)
EmailCount = cellules d'EmailCount + de 1
(EmailCount + 1, 1).Formula =. Cellules de Subject
(EmailCount + 1, 2).Formula = format (.ReceivedTime, « hh de mm/dd/yyyy : extrémité With
Wend
du
de millimètre ») Application.Calculation = xlCalculationAutomatic
réglé OLF = Nothing
End Sub class= de

Réponse : Excel VBA a lu une chemise de perspectives dans Excel

Bonjour, malcolm29.

C'est simple.  Changer cette ligne de code

Placer OLF = GetObject ("", « Outlook.Application ») .GetNamespace (« MAPI ») .GetDefaultFolder (l'olFolderInbox)

à

Placer OLF = GetObject ("", « Outlook.Application ») .GetNamespace (« MAPI ») .GetDefaultFolder (olFolderInbox). Chemises (« billets »)