30 lines
1.5 KiB
PowerShell
30 lines
1.5 KiB
PowerShell
|
Write-Host '
|
|||
|
|
_______________ _____________.____ ________ ________ ____ __.
|
|||
|
|
\_ _____/\ \/ /\______ \ | \_____ \ \_____ \ | |/ _|
|
|||
|
|
| __)_ \ / | ___/ | / | \ / | \| <
|
|||
|
|
| \ / \ | | | |___/ | \/ | \ | \
|
|||
|
|
/_______ //___/\ \ |____| |_______ \_______ /\_______ /____|__ \
|
|||
|
|
\/ \_/ \/ \/ \/ \/
|
|||
|
|
'
|
|||
|
|
Add-Type -AssemblyName "Microsoft.Office.Interop.Outlook" | Out-Null
|
|||
|
|
$olFolders = "Microsoft.Office.Interop.Outlook.olDefaultFolders" -as [type]
|
|||
|
|
$Outlook = New-Object -ComObject Outlook.Application
|
|||
|
|
$Namespace = $Outlook.GetNameSpace("MAPI")
|
|||
|
|
$Folder = $namespace.Folders("im@fruw.org").Folders("foldername")
|
|||
|
|
$Path = "$(pwd)\exp-look.csv"
|
|||
|
|
$i = $max = $Folder.Items.Count
|
|||
|
|
$Writed = 0
|
|||
|
|
if (!(Test-Path -Path $Path)) {
|
|||
|
|
'Тест1;Тест2' | Out-File $Path -Encoding UTF8
|
|||
|
|
}
|
|||
|
|
for(;$i -gt 0;$i--){
|
|||
|
|
if ($Folder.Items[$i].Unread){
|
|||
|
|
$Writed++
|
|||
|
|
$Folder.Items[$i].Unread = $False
|
|||
|
|
$Percent = 100-($i/$max*100)
|
|||
|
|
Write-Progress -Activity "Работаем!" -Status "Осталось прочитать $i у.е." -PercentComplete $Percent
|
|||
|
|
$MailInfo = $Folder.Items[$i] | Select-Object -Property Body, Subject, ReceivedTime, SenderName, SenderEmailAddress
|
|||
|
|
$MailInfo | Out-File $Path -Append -Encoding UTF8
|
|||
|
|
}}
|
|||
|
|
Read-Host -Prompt " Выполнено! Внесено в таблицу $Writed у.е.
|
|||
|
|
Нажмите Enter для того, чтобы выйти"
|