Fråga : Excel VBA läste en framtidsutsiktmapp in i Excel

Jag har efter Excel att kodifiera, som fungerar fint för import av betvinga, och daterar stämpeln av objekten i min Inbox.  Jag önskar att ändra den till importen från en sub-folder i min kallade Inbox ”etiketterar”.  Finns det any långt att göra detta?
dunkel OLF för

Sub ListAllItemsInInbox () som outlook.MAPIFolder, CurrUser som String
dunkla EmailItemCount som heltal, I som heltalet, EmailCount som Integer
Application.ScreenUpdating = False
täcker (”Sheet1”). Select
Cells.Clear
spänner (”A1”). Select
”tillfogar celler för headings
(1, 1). Formeln = ”betvingar " celler för
(1, 2). Formeln = ”mottog "
med spänner (”A1: B1”). Font
. Djärvt = True
. Storleksanpassa = 14
avslutar With
Application.Calculation = uppsättningen för xlCalculationManual
OLF = GetObject ("", ”Outlook.Application”). GetNamespace ( " MAPI”). GetDefaultFolder (olFolderInbox)
EmailItemCount = OLF.Items.Count
I = 0: EmailCount = 0
” läser stunder I för information
om e-posten < EmailItemCount
I = I + 1
om I-ändring 50 = 0 därefter Application.StatusBar = ”läs- e-postmeddelanden” & formaterar (I/EmailItemCount, ”0%”) &”… ”
med
EmailCount för OLF.Items (I) = EmailCount + för 1
celler (EmailCount + 1, 1). Formel =. Subject
celler (EmailCount + 1, 2). Formeln = formaterar (.ReceivedTime, ”mm-/dd/yyyyhh:
för en mm”) avslutar With
Wend
Application.Calculation = uppsättningen för xlCalculationAutomatic
OLF = Nothing
End Sub " klar "

Svar : Excel VBA läste en framtidsutsiktmapp in i Excel

Hi malcolm29.

Det är enkel.  Ändra detta fodrar av kodifierar

Uppsättning OLF = GetObject ("", ”Outlook.Application”) .GetNamespace (”MAPI”) .GetDefaultFolder (olFolderInbox)

till

Uppsättning OLF = GetObject ("", ”Outlook.Application”) .GetNamespace (”MAPI”) .GetDefaultFolder (olFolderInbox). Mappar (”etiketterar”),