Questione : Excel VBA ha letto un dispositivo di piegatura di prospettiva in Excel

Ho il seguente codice di Excel che funziona benissimo per l'importazione del bollo di data e dell'oggetto degli articoli nel mio Inbox.  Voglio modificarlo per importare da un sub-folder nel mio Inbox chiamato “ettichetto„.  È ci del senso fare questo? il
del

Sub ListAllItemsInInbox () oscura OLF come outlook.MAPIFolder, CurrUser come String
oscura EmailItemCount come numero intero, I come numero intero, EmailCount mentre Integer
Application.ScreenUpdating = False
riveste (“Sheet1„). Gamma di Select
Cells.Clear
(“A1„). Select
“aggiunge le cellule del headings
(1, 1).Formula = “oggetto " cellule del
(1, 2).Formula = “ha ricevuto " il
con gamma (“A1: B1„). Font
. GRASSETTO = True
. Formato = estremità With
di 14
Application.Calculation = xlCalculationManual
stabilito OLF = GetObject ("", “Outlook.Application„). GetNamespace ( " MAPI„).
EmailItemCount = OLF.Items.Count
I = 0 di GetDefaultFolder (olFolderInbox): EmailCount = 0
„ hanno letto il information
del email mentre I < EmailItemCount
I = I + 1
se MOD 50 = 0 di I allora Application.StatusBar = “messaggi di posta elettronica della lettura„ & disposizione (I/EmailItemCount, “0%„) &„… “
con OLF.Items (I)
EmailCount = cellule di 1
(EmailCount + 1, 1).Formula =. Cellule di Subject
(EmailCount + 1, 2).Formula = disposizione (.ReceivedTime, “hh di mm/dd/yyyy: estremità With
Wend
del
di millimetro„) Application.Calculation = xlCalculationAutomatic
stabilito OLF = Nothing
End Sub class= del

Risposta : Excel VBA ha letto un dispositivo di piegatura di prospettiva in Excel

Ciao, malcolm29.

Quello è semplice.  Cambiare questa linea di codice

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

a

Regolar OLF = GetObject ("", “Outlook.Application„) .GetNamespace (“MAPI„) .GetDefaultFolder (olFolderInbox). Dispositivi di piegatura (“biglietti„)