Email Attachment Finder

FindEmailAttachments.ps1

# These get modified for each run

$dict = @{   
        "xls" = "Excel";
        "mpp" = "Project Plans";
        "ppt" = "Slide Decks";
        "vsd" = "Visio";
        "doc" = "Word";
        "pdf" = "PDF"
    };


$path = "C:\Users\rdapaz\Dropbox\Projects\Next Level Email";

foreach ($pair in $dict.GetEnumerator()) {
    $filetype  = $pair.key
    $folder = $pair.value

    # Initialise stuff
    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
    $inbox = $namespace.Folders.Item(1).Folders.Item(2)
    $f = $inbox
    # Fixme below
    $filepath = Join-Path $path $folder
    $f.Items| foreach {
     $SendName = $_.SenderName
       $_.attachments| foreach {
        $newFileName = $SendName + " - " + $_.filename
        if ($_.filename -and ($_.filename).Contains($filetype)) {
            Write-Host $_.filename
            $_.saveasfile((Join-Path $filepath $newFileName))
        }
      }
    }

    # Folders.Item(2).Folders.Item(4) is Sent Items on the second email account
    $sent_items = $namespace.Folders.Item(1).Folders.Item(4)
    $f = $sent_items
    $filepath = Join-Path $path $folder
    $f.Items| foreach {
     $SendName = $_.SenderName
       $_.attachments| foreach {
        $newFileName = $SendName + " - " + $_.filename
        if ($_.filename -and ($_.filename).Contains($filetype)) {
            Write-Host $_.filename
            $_.saveasfile((Join-Path $filepath $newFileName))
        }
      }
    }
}