VBA: не все сообщения электронной почты Outlook появляются

Question

Я написал небольшой фрагмент кода, который проверяет дополнительный почтовый ящик (помимо моего главного адреса в Outlook) для E-Mail.

Проблема возникает при использовании кода на компьютере, в который добавляется только дополнительный почтовый ящик (в качестве основного почтового ящика). Очевидно, что код не может получить все электронные письма, только старшие. Это неудобно, потому что путь к подпапкам и даже сообщениям электронной почты, кажется, найдены, но не более новые. Я вижу их в Outlook без проблем.

У кого-нибудь есть идея, почему это происходит? Как я уже сказал, такой же код работает без проблем на ПК с установкой Outlook, с другим основным почтовым ящиком и почтовым ящиком, который необходимо проверить как дополнительный.

Вот код я использую, чтобы получить доступ к Outlook, и сообщения электронной почты:

Dim objFolder As Outlook.Folder 
Dim objOL As Outlook.Application 
Set objOL = CreateObject("Outlook.Application")  
Set objFolder = objOL.GetNamespace("MAPI").Folders.Item("test@test.de").Folders.Item("Posteingang").Folders.Item("Subfolder-Name").Folders.Item("Subfolder-Name-2") 
With objFolder.Items(1) 
... 

Answer 1

Почему вы всегда извлекая первый элемент в коллекции Items? Не хотите ли вы пропустить элементы?

set objItems = objFolder.Items 
objItems.Sort "[ReceivedTime]" 
'now objItems is sorted