В Outlook в центральной панели Outlook можно увидеть таблицу электронных писем в выбранной в данный момент папке. Я хотел бы выделить, но не открыто, самые последние из них. Я делаю это в AHK, поэтому код выглядит немного странно, но в основном это VBA.
OlApp := ComObjActive("Outlook.Application")
ActiveExplorer := OlApp.ActiveExplorer
MyCurrentFolder:= OlApp.ActiveExplorer.CurrentFolder
MyItems := MyCurrentFolder.Items
MyItems.Sort("[Received]", true)
MailItem:=MyItems.GetFirst
ActiveExplorer.ClearSelection
ActiveExplorer.AddToSelection(MailItem)
Однако: 1) он вообще не запускается, когда для папки задано View> «Show»как разговоры »2) хотя он выделяет самую последнюю электронную почту, он не дает этой клавиатуре фокус электронной почты;Например, если вы попытаетесь использовать клавиши со стрелками вниз для выбора следующего электронного письма в списке, вы обнаружите, что клавиатура фокусируется на другом электронном письме. 3) MailItem, похоже, получает самое последнее письмо в ЛЮБОЙ папке, а не в текущей папке.
Любые предложения по улучшению этих недостатков будут с благодарностью приняты.