Frage : Excel VBA las ein Aussichtfaltblatt in Excel

Ich habe den folgenden Excel-Code, der für den Import des Themas und des Datumsstempels der Einzelteile in meinem Inbox ist.  Ich möchte ihn ändern, um aus einem Sub-folder in meinem benannten Inbox zu importieren „etikettiere“.  Gibt es irgendeine Weise, dies zu tun?

Sub ListAllItemsInInbox ()
verdunkeln OLF als outlook.MAPIFolder, CurrUser als String
verdunkeln EmailItemCount als ganze Zahl, I als ganze Zahl, EmailCount, während Integer
Application.ScreenUpdating = False
bedeckt („Sheet1“). Select
Cells.Clear
Strecke („A1“). Select
„addieren headings
Zellen (1, 1).Formula = „Thema "
Zellen (1, 2).Formula = „empfing "
mit Strecke („A1: B1“). Font
. Fett = True
. Größe = 14
Ende With
Application.Calculation = xlCalculationManual
gesetzt OLF = GetObject ("", „Outlook.Application“). GetNamespace ( " MAPI“). GetDefaultFolder (olFolderInbox)
EmailItemCount = OLF.Items.Count
I = 0: EmailCount = 0
“ lasen eMail information
während I < EmailItemCount
I = I + 1
wenn i-Umb. 50 = 0 dann Application.StatusBar = „LeseE-Mail-Nachricht“ u. Format (I/EmailItemCount, „0%“) u.“… „
mit OLF.Items (I)
EmailCount = EmailCount + 1
Zellen (EmailCount + 1, 1).Formula =. Subject
Zellen (EmailCount + 1, 2).Formula = Format (.ReceivedTime, „mm/dd/yyyy hh: Millimeter“)
Ende With
Wend
Application.Calculation = xlCalculationAutomatic
gesetzt OLF = Nothing
End Sub

Antwort : Excel VBA las ein Aussichtfaltblatt in Excel

Hallo, malcolm29.

Das ist einfach.  Diese Linie des Codes ändern

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

zu

Einstellen OLF = GetObject ("", „Outlook.Application“) .GetNamespace („MAPI“) .GetDefaultFolder (olFolderInbox). Faltblätter („Karten“)