CRAZYTRADER Forex : MT4 Indicators

#######################################################
#    GLOBAL Script
#    ***   ReCertification   ***
#
# CMD :
# C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe
# https://gallery.technet.microsoft.com/scriptcenter/Outlook-Automation-using-d7584688
# -File P:\Test\Powershell\Script\Recertification\ManagingEmails
###################################


Write-Host "/// --- \\\" -ForegroundColor Cyan
Write-Host "Start scanning Emails on Inbox 'ISEC-ISS'..." -ForegroundColor Cyan

# Warning Email
$Outlook = New-Object -ComObject Outlook.Application
$Mail = $Outlook.CreateItem(0)
$Mail.To = "ISEC-ISS-Controls@ca-cib.com" #"ISEC-ISS-Controls@ca-cib.com"
$Mail.Subject = "Recertification: Processing Emails started..."
$Mail.Body = "~~~~~~~ \\\\ START //// ~~~~~~~"
$Mail.Send()



# Date
$date = get-date -format d
$date = $date.ToString().Replace(“/”, “-”)
$time = get-date -format t
# $time = $time.ToString().Replace(":", "-")
$time = $time.ToString().Replace(" ", "")
Write-Host "Date:" $date $time -ForegroundColor Cyan


# Input by User 1 :
Write-Host "How old are emails (received time)? #0=Today; 1=From yesterday; ..." -BackgroundColor DarkMagenta
$NumberOfDays = Read-Host "Days"

# Input by User 2 :
Write-Host "What is the subject of emails are we looking for" -BackgroundColor DarkMagenta

Write-Host "RE: [POUR ACTION]" -ForegroundColor Cyan
Write-Host "RE: [RAPPEL] [POUR ACTION]" -ForegroundColor Cyan

Write-Host "RE: [ACTION REQUIRED]" -ForegroundColor Cyan
Write-Host "RE: [REMINDER] [ACTION REQUIRED]" -ForegroundColor Cyan  

Write-Host "RE: [LAST REMINDER] [ACTION REQUIRED]" -ForegroundColor Cyan
Write-Host "RE: [DERNIER RAPPEL] [POUR ACTION]" -ForegroundColor Cyan

$Subject1 = Read-Host "Subject 1?"
$Subject2 = Read-Host "Subject 2?"
$Subject3 = Read-Host "Subject 3?"
$Subject4 = Read-Host "Subject 4?"
# # # # #



# Parameter Emails "received time:"
$Date = [DateTime]::Now.AddDays(-$NumberOfDays)
$ReceivedDays =  $Date.tostring("MM/dd/yyyy")

# Parameter Subject:
# $subjectComparisonExpression = "Message de sécurité pour les utilisateurs du Système d’Information de CACIB / Security message for all CACIB Information System users"




# Connecting to Outlook SharedMailBox
$ol = New-Object -ComObject Outlook.Application
$ns = $ol.GetNamespace('mapi')
$mb = $ns.Stores['baptiste.george-prestataire@ca-cib.com'].GetRootFolder()
$inbox = $mb.Folders['Inbox']
$recipient =  $ns.CreateRecipient('ISEC-ISS-Controls@ca-cib.com')

if($recipient.Resolve()){
   # Write-Host 'OK'
   $shared = $ns.GetSharedDefaultFolder($recipient, [Microsoft.Office.Interop.Outlook.OlDefaultFolders]::olFolderInbox)
}else{
    Write-Host 'Unable to resolve. Can not connect to sharedMailBox ISEC-ISS!'
    }





Write-Host "Query is running" -ForegroundColor Cyan




################################### Filter Emails #######################################
# $messages = $inbox.items
# $messages = $shared.items | Where-Object -FilterScript {$_.senton -Ge "$ReceivedDays" -and $_.Subject -eq $Subject1}
$messages = $shared.items | Where-Object -FilterScript {
       $_.senton -Ge "$ReceivedDays" -and ( ($_.Subject.SubString(0,[math]::min($Subject1.length,$_.Subject.length) ) -eq $Subject1) -or
                                             ($_.Subject.SubString(0,[math]::min($Subject2.length,$_.Subject.length) ) -eq $Subject2) -or
                                              ($_.Subject.SubString(0,[math]::min($Subject3.length,$_.Subject.length) ) -eq $Subject3) -or
                                               ($_.Subject.SubString(0,[math]::min($Subject4.length,$_.Subject.length) ) -eq $Subject4)
)}


# Query by User result :
# Count Emails into Inbox :
write-host "Query Result:" $messages.count "Emails were found in Inbox 'ISEC-ISS'" -ForegroundColor Green
$messcount = $messages.count



# Init:  
$countprocessed = 0
$countprocessed_PJ = 0  

# for ($c = $mailboxFolders.Items.count; $c -ge 1;$c--) {
################################### Starting #######################################
foreach($message in $messages){
# $From = $message.SenderEmailAddress
$msubject = $message.subject
Write-Host "Email found:" -BackgroundColor Blue
Write-Host $msubject -BackgroundColor Blue
$mBody = $message.body
# Write-Host $mBody




################################### Save Attchement #######################################
 
$filepath = "\\smb15-nas1.par.emea.cib\ISS_DATA\05 - Controls\I3C\2020\Task #6 - Recertification campaign\01 - Préparation\Baptiste\Fichiers Retour\"

$Check_PJ = 0
$message.attachments | foreach {
   
   $attr = $_.filename
   # add-content $log1 "Attachment: $attr"
   $a = $_.filename
   If ($a.Contains(".xlsx")) {
   Write-Host $_.filename " --> The file has been saved on folder!"-BackgroundColor Green
   $_.saveasfile((Join-Path $filepath $a))
   $Check_PJ ++
   $countprocessed_PJ ++

                            }
                             
                           
  }

# In case you want to resend the file, into a new mail   
$attachment = "\\smb15-nas1.par.emea.cib\ISS_DATA\05 - Controls\I3C\2020\Task #6 - Recertification campaign\01 - Préparation\Baptiste\Fichiers Retour\" + $a


### C'était ici

  # Moving Emails to Questions as emails doesn't contain file.xlxs
  If ($Check_PJ -eq 0) {Write-Host "Warning: No file found" -BackgroundColor Yellow
 
   $MoveTarget = $shared.Folders.item("23 - Recertification").Folders.item("Temp_Question")
   [void]$message.Move($MoveTarget)
   }
   
       else {



################################### Moving ALL EMAILS to Temp Folder #######################################
    
   $MoveTarget1 = $shared.Folders.item("23 - Recertification").Folders.item("Processed")
   [void]$message.Move($MoveTarget1)
   }
 



$countprocessed++



} # End



#Synthèse
    Write-Host "Result :" -ForegroundColor Cyan
If ( $countprocessed - $countprocessed_PJ -ge 1) {
  $count_Empty_emails = $countprocessed - $countprocessed_PJ
  Write-Host "-->" $count_Empty_emails "Email(s) do not contain any file!" -ForegroundColor Yellow
}
 
Write-Host "-->" $countprocessed_PJ "Files have been successfully saved on folder!" -ForegroundColor Green

write-host "-->" $messages.count "Emails have been moved to specific folders!" -ForegroundColor Green



Write-Host "End processing Emails from Inbox" -ForegroundColor Cyan
Write-Host "\\\ --- ///" -ForegroundColor Cyan










# Playing wav sound
$musicPath = "\\smb15-nas1.par.emea.cib\ISS_DATA\05 - Controls\I3C\2020\Task #6 - Recertification campaign\01 - Préparation\Baptiste\Sounds\Powershell Notification.wav"
$Song = New-Object System.Media.SoundPlayer
$Song.SoundLocation = $musicPath
$Song.Play()



####################################################### PROMPT : DO YOU WANT TO PERFORM NEXT STEP ?
$Title = "Recertification Process"
$Info = "Do you want to perform next step?"
 
$options = [System.Management.Automation.Host.ChoiceDescription[]] @("&Yes", "&No")
[int]$defaultchoice = 0
$opt = $host.UI.PromptForChoice($Title , $Info , $Options,$defaultchoice)
switch($opt)
{
# Option Yes
0 {
Write-Host "/// --- \\\" -ForegroundColor Cyan
Write-Host "Start scanning emails from 'Temp' Folder..." -ForegroundColor Cyan

$ScriptRoute = "P:\Test\Powershell\Script\Recertification\"
$ScriptName = "ScanningEmailsTempFolder.ps1"

# The script to call
$CallingScript = "$ScriptRoute"+"$ScriptName"
Write-Host $CallingScript

# Execute script at location:
&"$CallingScript"
}

# option No
1 { Write-Host "Ending process" -ForegroundColor Green
   Break
   }
}
####################################################### END PROMPT