Collect mail subjects from Outlook in Windows

outlook_mail_subjects.js

var outlook = WScript.CreateObject('Outlook.Application');
var olFolderInbox = 6;
var nameSpace = outlook.GetNamespace('MAPI');
var folder = nameSpace.GetDefaultFolder(olFolderInbox);

var isOpend = !!outlook.ActiveWindow;

if (!isOpend) {
  folder.Display();
  outlook.ActiveWindow.WindowState = 1
}

var subject = folder.Items(folder.Items.Count).Subject;
var box = folder.Items
var boxmail = box.GetFirst;

while (boxmail != null) {
  WScript.Echo(boxmail.subject);
  boxmail = box.GetNext;
}

if (!isOpend)
  outlook.explorers.Item(outlook.explorers.Count).Close();