64 lines
2.4 KiB
PowerShell
64 lines
2.4 KiB
PowerShell
# --- CONFIGURAZIONE ---
|
|
$archiveName = "Archivio online - alessandro.battilani@intesasanpaolo.com"
|
|
$monthsLimit = -8
|
|
# ----------------------
|
|
|
|
try {
|
|
$outlook = New-Object -ComObject Outlook.Application
|
|
$namespace = $outlook.GetNamespace("MAPI")
|
|
|
|
$inbox = $namespace.GetDefaultFolder(6)
|
|
$archiveRoot = $namespace.Folders.Item($archiveName)
|
|
|
|
if ($null -eq $archiveRoot) {
|
|
Write-Host "ERRORE: Archivio non trovato." -ForegroundColor Red
|
|
exit
|
|
}
|
|
|
|
# CALCOLO DATA TAGLIO
|
|
$cutoffDate = (Get-Date).AddMonths($monthsLimit)
|
|
Write-Host "OGGI: $((Get-Date).ToShortDateString())" -ForegroundColor White
|
|
Write-Host "ARCHIVIO TUTTO QUELLO CHE E' PRIMA DEL: $($cutoffDate.ToShortDateString())" -ForegroundColor Yellow
|
|
Write-Host "--------------------------------------------------"
|
|
|
|
$items = $inbox.Items
|
|
$items.Sort("[ReceivedTime]", $true) # Ordine cronologico
|
|
|
|
$spostate = 0
|
|
Write-Host "Inizio archiviazione..." -ForegroundColor Yellow
|
|
|
|
for ($i = $items.Count; $i -ge 1; $i--) {
|
|
$item = $items.Item($i)
|
|
|
|
if ($item.Class -eq 43) {
|
|
# CONFRONTO ESPLICITO
|
|
if ($item.ReceivedTime -lt $cutoffDate) {
|
|
|
|
$year = $item.ReceivedTime.Year.ToString()
|
|
$monthName = $item.ReceivedTime.ToString("MM-MMMM")
|
|
|
|
# Cartelle
|
|
$yearFolder = $null
|
|
try { $yearFolder = $archiveRoot.Folders.Item($year) } catch { }
|
|
if ($null -eq $yearFolder) { $yearFolder = $archiveRoot.Folders.Add($year) }
|
|
|
|
$monthFolder = $null
|
|
try { $monthFolder = $yearFolder.Folders.Item($monthName) } catch { }
|
|
if ($null -eq $monthFolder) { $monthFolder = $yearFolder.Folders.Add($monthName) }
|
|
|
|
$item.Move($monthFolder) | Out-Null
|
|
$spostate++
|
|
Write-Host "`rProcessate: $spostate (Ultima: $($item.ReceivedTime.ToShortDateString()))" -NoNewline
|
|
}
|
|
}
|
|
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($item) | Out-Null
|
|
}
|
|
|
|
Write-Host "`n`nCompletato! Spostate $spostate email." -ForegroundColor Green
|
|
}
|
|
catch {
|
|
Write-Host "`nErrore: $($_.Exception.Message)" -ForegroundColor Red
|
|
}
|
|
finally {
|
|
if ($outlook) { [System.Runtime.Interopservices.Marshal]::ReleaseComObject($outlook) | Out-Null }
|
|
} |