Counting Mails in Outlook with Autohotkey

Question

I tried to write a script, that counts the e-Mails in a specific public exchange folder in outlook. If there are Mails in subfolder2, a Messagebox should open and tell me, how many Mails there are. I tried this, but it did not work.

    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.
    }

Does anyone has a idea, how I should change the script, that it works?

It does not count the mails in the folder i want. The Script works, no errors. Just not the way, i want it to work. — PHS, Nov 14 '18 at 06:54

score 0 · Answer 1 · answered Nov 14 '18 at 07:23

0

Please try to use this:

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

answered Nov 14 '18 at 07:23

aifritz

1

sadly, it did not work. I still get the "else", although there are mails in the folder. – PHS Nov 14 '18 at 14:47

score 0 · Answer 2 · answered Nov 14 '18 at 16:55

0

You must retrieve subfoldersone at a time, you cannot specify a path. Change the line

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

to

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

answered Nov 14 '18 at 16:55

Dmitry Streblechenko

62,942
4
53
78

I still get the "No Mails" Message... I do not even know what folder the script accesses – PHS Nov 15 '18 at 08:26
What does mail.Name return? – Dmitry Streblechenko Nov 15 '18 at 14:09
an empty messagebox – PHS Nov 16 '18 at 12:09
That would probably mean mail variable is null. I don't know how/if autohotkey handles COM exceptions, but apparently you are not accessing that folder correctly. – Dmitry Streblechenko Nov 16 '18 at 14:57

score 0 · Accepted Answer · answered Nov 21 '18 at 14:25

I got it. I simply removed the Variable.

 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.
    }

Thanks for the help :D

Counting Mails in Outlook with Autohotkey

3 Answers3