Cuestión : Excel VBA leyó una carpeta de la perspectiva en Excel

Tengo el código siguiente de Excel que trabaja muy bien para importar la estampilla del tema y de fecha de los artículos en mi Inbox.  Quiero modificarlo para importar de un sub-folder en mi Inbox llamado “marco”.  ¿Hay manera de hacer esto? el
del

Sub ListAllItemsInInbox () amortigua OLF como outlook.MAPIFolder, CurrUser como String
amortigua EmailItemCount como número entero, I como número entero, EmailCount mientras que Integer
Application.ScreenUpdating = False
cubre (“Sheet1”). Gama de Select
Cells.Clear
(“A1”). Select
“agrega las células del headings
(1, 1).Formula = “tema " células del
(1, 2).Formula = “recibió el "
con la gama (“A1: B1”). Font
. En negrilla = True
. Tamaño = extremo With
de 14
Application.Calculation = xlCalculationManual
determinado OLF = GetObject ("", “Outlook.Application”). GetNamespace ( " MAPI”).
EmailItemCount = OLF.Items.Count
I = 0 de GetDefaultFolder (olFolderInbox): EmailCount = 0
” leyeron el information
del email mientras que I < EmailItemCount
I = I + 1
si MOD 50 = 0 de I entonces Application.StatusBar = “los correos electrónicos de la lectura” y formato (I/EmailItemCount, “el 0%”) y”… el “
con el
EmailCount de OLF.Items (I) = las células de EmailCount + de 1
(EmailCount + 1, 1).Formula =. Células de Subject
(EmailCount + 1, 2).Formula = formato (.ReceivedTime, “hh de mm/dd/yyyy: extremo With
Wend
del
del milímetro”) Application.Calculation = xlCalculationAutomatic
determinado OLF = Nothing
End Sub class= del

Respuesta : Excel VBA leyó una carpeta de la perspectiva en Excel

Hola, malcolm29.

Eso es simple.  Cambiar esta línea de código

Fijar OLF = GetObject ("", “Outlook.Application”) .GetNamespace (“MAPI”) .GetDefaultFolder (el olFolderInbox)

a

Fijar OLF = GetObject ("", “Outlook.Application”) .GetNamespace (“MAPI”) .GetDefaultFolder (olFolderInbox). Carpetas (“boletos”)