Daten aus dem Feld "date sent" in den Titel schreiben

# Ordner der die EML-Dateien enthält
$folder = 'D:\eml'  
# 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 $folder -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
    $datesend = $mail.SentOn.toString("yyyyMMdd_HHmmss")  
    # mail schließen
    $mail.Close($false) | out-null
    # mail umbenennen
    $_ | rename-item -NewName "$($datesend)_$($_.Name)" -Force -Verbose  
}

# Ordner der die EML-Dateien enthält
$folder = 'D:\eml'  

# Für jede EML-Datei im Ordner (inkl. Unterordner)
gci $folder -Filter *.eml -recurse | ?{!$_.PSIsContainer -and ((gc $_.FullName -raw) -match '(?ims)^Date:\s*([^\r\n]+)')} | %{  
    $datesent = [datetime]::MaxValue
    if ([datetime]::TryParse([string]$matches[1].Trim(),[ref]$datesent)){    
        # mail umbenennen
        $_ | rename-item -NewName "$($datesent.toString('yyyyMMdd_HHmmss'))_$($_.Name)" -Verbose  
    }else{
        write-host "Datum für Datei '$($_.Fullname)' wurde nicht erkannt." -F Yellow  
    }
}