Vraag : Excel VBA leest een omslag van Vooruitzichten in Excel

Ik heb de volgende code van Excel die boete voor het invoeren van de Zegel van het Onderwerp en van de Datum van de punten in mijn Inbox werkt.  Ik wil het wijzigen om uit een sub-omslag in mijn Inbox in te voeren genoemd „Kaartjes“.  Is er om het even welke manier om dit te doen?

Sub ListAllItemsInInbox ()
Schemerige OLF als outlook.MAPIFolder, CurrUser als String
Schemerige EmailItemCount als Geheel, I als Geheel, EmailCount als Integer
Application.ScreenUpdating =/> Bladen False
Cells.Clear
(„A1“). Select
„voegt headings
Cellen (1, 1) toe. Formule = de Cellen van het „Onderwerp "
(1, 2). De formule = „ontving "
met Waaier („A1: B1“). Font
. Vette letters = True
. Grootte = 14
Eind With
Application.Calculation = xlCalculationManual
Vastgesteld OLF = GetObject ("", „Outlook.Application“). GetNamespace ( " MAPI“). GetDefaultFolder (olFolderInbox)
EmailItemCount = OLF.Items.Count
I = 0: EmailCount = 0
“ las e-mail information
terwijl I < EmailItemCount
I = I + 1
als Mod. 50 van I = 0 toen Application.StatusBar = „van de Lezing e-mail- berichten“ & Formaat (I/EmailItemCount, „0%“) &“… „
met OLF.Items (I)
EmailCount = EmailCount + 1
Cellen (EmailCount + 1, 1). Formule =. De Cellen van Subject
(EmailCount + 1, 2). Formule = Formaat (.ReceivedTime, „mm/dd/yyyy hh: van mm het“)
Eind With
Wend
Application.Calculation = xlCalculationAutomatic
Vastgesteld OLF = Nothing
End Sub

Antwoord : Excel VBA leest een omslag van Vooruitzichten in Excel

Hallo, malcolm29.

Dat is eenvoudig.  Verander deze lijn van code

Plaats OLF = GetObject ("", „Outlook.Application“) .GetNamespace („MAPI“) .GetDefaultFolder (olFolderInbox)

aan

Vastgesteld OLF = GetObject ("", „Outlook.Application“) .GetNamespace („MAPI“) .GetDefaultFolder (olFolderInbox). Omslagen („Kaartjes“)