Вопрос : Эксел VBA прочитало скоросшиватель внешнего вида в Эксел

Я имею следующий Кодего Эксел работает отлично для импортировать вопрос и отметку даты деталей в моем Inbox.  Я хочу доработать его для того чтобы импортировать от sub-folder в моем вызванном Inbox «снабжаю билетами».  Любая дорога сделать это?


Sub ListAllItemsInInbox () затемняет OLF как outlook.MAPIFolder, CurrUser как String
затемняет EmailItemCount как интежер, I как интежер, EmailCount по мере того как Integer
Application.ScreenUpdating = False
покрывает («Sheet1»). Ряд Select
Cells.Clear
(«A1»). Select
«добавляет клетки headings
(1, 1).Formula = «вопрос " клетки
(1, 2).Formula = «получило "
с рядом («A1: B1»). Font
. Смелейше = True
. Размер = конец With
14
Application.Calculation = xlCalculationManual
установленное OLF = GetObject ("", «Outlook.Application»). GetNamespace ( " MAPI»).
EmailItemCount = OLF.Items.Count
iий = 0 GetDefaultFolder (olFolderInbox): EmailCount = 0
» прочитали information
электронная почта пока I < EmailItemCount
iий = I + 1
если Mod 50 = 0 I после этого Application.StatusBar = «сообщения по электронной почте Рединг» & форма (I/EmailItemCount, «0%») &»… «
с
EmailCount OLF.Items (I) = клетками, то EmailCount + 1
(EmailCount + 1, 1).Formula =. Клетки Subject
(EmailCount + 1, 2).Formula = форма (.ReceivedTime, «hh mm/dd/yyyy: конец With
Wend

mm») Application.Calculation = xlCalculationAutomatic
установленное OLF = Nothing
End Sub class=

Ответ : Эксел VBA прочитало скоросшиватель внешнего вида в Эксел

Hi, malcolm29.

То просто.  Измените эту линию Кодего

Установите OLF = GetObject ("", «Outlook.Application») .GetNamespace («MAPI») .GetDefaultFolder (olFolderInbox)

к

Установите OLF = GetObject ("", «Outlook.Application») .GetNamespace («MAPI») .GetDefaultFolder (olFolderInbox). Скоросшиватели («билеты»)