Ohne Outlook und Co Anhänge aus vielen gespeicherten Mails .eml rauskopieren

# Ordner der die EML-Dateien enthält
$rootFolder = 'D:\Mails'  
# Ordner in den die Attachments kopiert werde
$attachmentFolder = 'D:\Attachments'  
# Outlook COM-Object holen
[void][reflection.assembly]::LoadWithPartialName("microsoft.visualbasic")  
$ol = [microsoft.visualbasic.interaction]::GetObject($null,"Outlook.Application")  
if (!$ol){$ol = New-Object Outlook.Application}
# Für jede EML-Datei im Ordner (inkl. Unterordner)
gci $rootFolder -Filter *.eml -recurse | ?{!$_.PSIsContainer} | %{
    # öffne die EML-Datei mit Outlook
    start-process outlook.exe -ArgumentList "/eml `"$($_.FullName)`""  
    # warten bis inspector die mail geöffnet hat
    while (!$ol.ActiveInspector().CurrentItem){sleep .2}
    # mail referenzieren
    $mail = $ol.ActiveInspector().CurrentItem
    # Attachments extrahieren
    $mail.Attachments | ?{$_.FileName -ne ''} | %{  
        $name = $_.FileName
        # prüfe ob attachment schon im Zielordner existiert. Falls ja hänge einen Zufallswert in Klammern an den namen 'Attachment(xxxxx).Extension' 
        while((Test-path "$attachmentFolder\$name")){  
            $name = "$([System.IO.Path]::GetFileNameWithoutExtension($name))($([System.IO.Path]::GetRandomFileName().split('.')))$([System.IO.Path]::GetExtension($name))"  
        }
        write-host "Speichere Attachment mit dem Namen '$($_.FileName)' als '$("$attachmentFolder\$name")'" -F Green  
        # Attachment speicern
        $_.SaveAsFile("$attachmentFolder\$name")  
    }
    # Mail schließen
    $mail.Close($false) | out-null
}