Go through emails

emailtextgrabber.ps1

Add-Type -assembly "Microsoft.Office.Interop.Outlook"
$Outlook = New-Object -comobject Outlook.Application
$namespace = $Outlook.GetNameSpace("MAPI")
# Do stuff
# Folders.Item(2).Folders.Item(2) is Inbox on the second email account
$sntItems = $namespace.Folders.Item(3).Folders.Item(4)
$f = $sntItems
$outItems = New-Object System.Collections.Generic.List[System.Object]
$f.Items | ? { 
                $_.SentOn -gt (get-date).AddDays(-30)  
             } | % {
                        $obj =  New-Object -typename psObject -Property @{Date = $_.SentOn; To =$_.To; Subject = $_.Subject; Body = $_.Body; Status = 'Sent';}
                        $outItems.Add($obj)
                    } 


$inbox = $namespace.Folders.Item(3).Folders.Item(2)
$f = $inbox
$f.Items | ? { 
                $_.SentOn -gt (get-date).AddDays(-30)  
             } | % {
                        $obj =  New-Object -typename psObject -Property @{Date = $_.ReceivedTime; To =$_.SenderName; Subject = $_.Subject; Body = $_.Body; Status = 'Received';}
                        $outItems.Add($obj)
                    } 


#$outItems | Export-Csv "C:\users\rdapaz.DESKTOP-QSI65RE\Desktop\emails.csv"

$outItems | convertto-json -depth 100 | out-file "C:\users\rdapaz.DESKTOP-QSI65RE\Desktop\emails.json"