Pergunta : Excel VBA leu um dobrador da probabilidade em Excel

Eu tenho o seguinte código de Excel que trabalha muito bem importando o selo do assunto e de data dos artigos em meu Inbox.  Eu quero modificá-lo para importar de um sub-folder em meu Inbox chamado “Tickets”.  Há alguma maneira de fazer isto? o
do

Sub ListAllItemsInInbox () escurece OLF como outlook.MAPIFolder, CurrUser como String
escurece EmailItemCount como o inteiro, I como o inteiro, EmailCount enquanto Integer
Application.ScreenUpdating = False
cobre (“Sheet1”). Escala de Select
Cells.Clear
(“A1”). Select
“adiciona as pilhas do headings
(1, 1). Fórmula = pilhas do
do “assunto " (1, 2). A fórmula = “recebeu " o
com escala (“A1: B1”). Font
. Bold(realce) = True
. Tamanho = extremidade With
de 14
Application.Calculation = xlCalculationManual
ajustado OLF = GetObject ("", “Outlook.Application”). GetNamespace ( " MAPI”).
EmailItemCount = OLF.Items.Count
I = 0 de GetDefaultFolder (olFolderInbox): EmailCount = 0
” leram o information
do email quando I < EmailItemCount
I = I + 1
se a modificação 50 = 0 de I então Application.StatusBar = “mensagens de correio electrónico da leitura” & formato (I/EmailItemCount, “0%”) &”… o “
com OLF.Items (I)
EmailCount = pilhas de EmailCount + de 1
(EmailCount + 1, 1). Fórmula =. Pilhas de Subject
(EmailCount + 1, 2). Fórmula = formato (.ReceivedTime, de “hh mm/dd/yyyy: extremidade With
Wend
do
do milímetro”) Application.Calculation = xlCalculationAutomatic
ajustado OLF = Nothing
End Sub class= do

Resposta : Excel VBA leu um dobrador da probabilidade em Excel

Olá!, malcolm29.

Isso é simples.  Mudar esta linha de código

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

a

Ajustar OLF = GetObject ("", “Outlook.Application”) .GetNamespace (“MAPI”) .GetDefaultFolder (olFolderInbox). Dobradores (“bilhetes”)