Outlook: Empfangsdatum auslesen und in Dateinamen schreiben

Function Get-Folder($initialDirectory="")  

{
    [System.Reflection.Assembly]::LoadWithPartialName("System.windows.forms")|Out-Null  

    $foldername = New-Object System.Windows.Forms.FolderBrowserDialog
    $foldername.Description = "Ordner auswaehlen:"  
    $foldername.rootfolder = "MyComputer"  
    $foldername.SelectedPath = $initialDirectory

    if($foldername.ShowDialog() -eq "OK")  
    {
        $folder += $foldername.SelectedPath
    }
    return $folder
}

Function Get-LinkName($LinkPATH,$linkName="Verknüfung")  
{
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing

$form = New-Object System.Windows.Forms.Form
$form.Text = 'Eingabe:'  
$form.Size = New-Object System.Drawing.Size(600,200)
$form.StartPosition = 'CenterScreen'  

$okButton = New-Object System.Windows.Forms.Button
$okButton.Location = New-Object System.Drawing.Point(75,120)
$okButton.Size = New-Object System.Drawing.Size(75,23)
$okButton.Text = 'OK'  
$okButton.DialogResult = [System.Windows.Forms.DialogResult]::OK
$form.AcceptButton = $okButton
$form.Controls.Add($okButton)

$cancelButton = New-Object System.Windows.Forms.Button
$cancelButton.Location = New-Object System.Drawing.Point(160,120)
$cancelButton.Size = New-Object System.Drawing.Size(75,23)
$cancelButton.Text = 'Cancel'  
$cancelButton.DialogResult = [System.Windows.Forms.DialogResult]::Cancel
$form.CancelButton = $cancelButton
$form.Controls.Add($cancelButton)

$label = New-Object System.Windows.Forms.Label
$label.Location = New-Object System.Drawing.Point(10,20)
$label.Size = New-Object System.Drawing.Size(580,50)
$label.Text = "Verknüpfungsname  für $LinkPATH eingeben:"  
$form.Controls.Add($label)

$textBox = New-Object System.Windows.Forms.TextBox
$textBox.Location = New-Object System.Drawing.Point(10,71)
$textBox.Size = New-Object System.Drawing.Size(260,20)
$form.Controls.Add($textBox)

$form.Topmost = $true

$form.Add_Shown({$textBox.Select()})

$result = $form.ShowDialog()

    if ($result -eq [System.Windows.Forms.DialogResult]::OK)
        {
        $linkName = $textBox.Text
        
        }
    return $linkName
}
function Get-ScriptDirectory {
    $Invocation = (Get-Variable MyInvocation -Scope 1).Value
    Split-Path $Invocation.MyCommand.Path
}


#Adminrechte anfordern
if (!([Security.Principal.WindowsPrincipal][Security.Principal.WindowsIdentity]::GetCurrent()).IsInRole([Security.Principal.WindowsBuiltInRole] "Administrator")) { Start-Process powershell.exe "-NoProfile -ExecutionPolicy Bypass -File `"$PSCommandPath`"" -Verb RunAs; exit }  

#Netzlaufwerk anzeigen:
$valueExists = (Get-Item HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System -EA Ignore).Property -contains 'EnableLinkedConnections'  
if ($valueExists) {}else
{
New-ItemProperty -Path HKLM:\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System -Name EnableLinkedConnections -PropertyType DWord -Value 1
} 




$LinkFolderPath = Get-Folder ("C:\")  
if ($LinkFolderPath)
{
$ScripPath = Get-ScriptDirectory 
$UserLinkName = Get-LinkName($LinkFolderPath)
$LinkNamePath = "$ScripPath\$UserLinkName"  
#Write-Output $LinkFolderPath

#Write-Output $LinkNamePath

#New-Item -ItemType Junction -Path $LinkNamePath -Target $LinkFolderPath 
New-Item -Path $LinkNamePath -ItemType SymbolicLink -Value $LinkFolderPath

}

$foldername = New-Object System.Windows.Forms.FolderBrowserDialog