Подсчет писем в Outlook с помощью Autohotkey

Question

Я попытался написать сценарий, который подсчитывает электронные письма в определенной общедоступной папке обмена в Outlook. Если в подпапке 2 есть письма, откроется окно сообщений и сообщит мне, сколько писем. Я попробовал это, но это не сработало.

    Outlook := ComObjActive("Outlook.Application")
    mail = (Outlook.Application.ActiveExplorer().Session.GetDefaultFolder(18).Folders("Subfolder\Subfolder2")
    if (mail.Items.Count>0)
    {
    msgbox % mail.Items.Count "Mails in folder"
    }
    else
    {
    msgbox No Mails.
    }

У кого-нибудь есть идея, как мне изменить скрипт, чтобы он работал?

Answer 1

За один раз вы должны получить подпапки, вы не можете указать путь.Измените строку

 mail = (Outlook.Application.ActiveExplorer().Session.GetDefaultFolder(18).Folders("Subfolder\Subfolder2")

на

 mail = (Outlook.Application.ActiveExplorer().Session.GetDefaultFolder(18).Folders("Subfolder").Folders("Subfolder2")

Answer 2

Я понял. Я просто удалил переменную.

 Outlook := ComObjActive("Outlook.Application")
    if (Outlook.Application.ActiveExplorer().Session.GetDefaultFolder(18).Folders("Subfolder").Folders("Subfolder2").Items.Count>0)
    {
    msgbox % Outlook.Application.ActiveExplorer().Session.GetDefaultFolder(18).Folders("Subfolder").Folders("Subfolder2").Items.Count "Mails in folder"
    }
    else
    {
    msgbox No Mails.
    }

Спасибо за помощь: D

Answer 3

Пожалуйста, попробуйте использовать это:

mail: = Outlook.ActiveExplorer (). Session.GetDefaultFolder (18) .Folders ("Subfolder \ Subfolder2")