# Verify if Outlook account exists
OutlookAccount = Email.Findaccount(OutlookAccounts, AccountName, failure)
Errormessage = 'Unable to find Outlook account ' + AccountName
if (OutlookAccount == failure):
File.Logerror(ErrorfileObject, module, Errormessage, error)
# Find top level folder
OutlookFolder = Email.Topfolder(OutlookObj, OutlookAccount, failure)
Errormessage = 'Unable to find top level folder for ' + AccountName
if (OutlookFolder == failure):
File.Logerror(ErrorfileObject, module, Errormessage, error)
# Find sub folder for engine's e-mail alerts.
for subfolderdetail in SubfolderDetails:
OutlookFolder = Email.Subfolder(OutlookFolder.Folders, subfolderdetail,
failure)
Errormessage = 'Unable to find sub folder ' + subfolderdetail
if (OutlookFolder == failure):
File.Logerror(ErrorfileObject, module, Errormessage, error)
# Progress update
Errormessage = 'Processing sub-folder ' + OutlookFolder.name
File.Logerror(ErrorfileObject, module, Errormessage, info)
# ReedEngine = False
# Determine if engine is 'Reed'
if (EngineName == 'Reed'):
ReedEngine = True
else:
ReedEngine = False
OutlookFolder = Email.Topfolder(OutlookObj, OutlookAccount, failure)
# Display top level sub-folder detail
if (NoOfArgs == 1):
# Print top level sub-folders
for SubFolder in OutlookFolder.Folders:
print('Top level folder %s is defined and contains %i e-mail(s)' %
(SubFolder.name, (len(SubFolder.Items))))
else:
# Print details for sub-folder passed as 1st command line argument
SubFolderDetails = FolderArg.split('/')
for SubFolderDetail in SubFolderDetails:
OutlookFolder = Email.Subfolder(OutlookFolder.Folders,
SubFolderDetail, failure)
Errormessage = 'E-mail sub-folder ' + FolderArg + ' does not exist'
if (OutlookFolder == failure):
File.Logerror(ErrorfileObject, module, Errormessage, error)
if (len(OutlookFolder.Folders) > 0):
# Print sub-folder names and number of e-mails contained in it
for SubFolder in OutlookFolder.Folders:
FullSubFolderName = FolderArg + '/' + SubFolder.name
print('Sub-folder %s contains %i e-mail(s)' %
(FullSubFolderName, (len(SubFolder.Items))))
else:
if (NoOfArgs == 2):
