Import einer VCF-Datei mit mehreren Kontakten nach Outlook 365

<#
    Import merged vCard(*.vcf) files into custom outlook contact folder
     © @colinardo (administrator.de)
#>

# load assemblies
Add-Type -A System.Windows.Forms
Add-Type -A Microsoft.Visualbasic
$objOL = [microsoft.visualbasic.interaction]::GetObject($null,"Outlook.Application")  
if (!$objOL){$objOL = New-Object -Com Outlook.Application}
# ask for vCard File with multiple contacts inside
$dlg = New-Object System.Windows.Forms.OpenFileDialog
$dlg.Multiselect = $true
$dlg.Title = "Select vCard files to import."  
$dlg.Filter = "vCard Dateien|*.vcf"  
if($dlg.ShowDialog() -ne 'OK'){  
    return
}
# ask for target contact folder
$contactfolder = $objOL.Session.PickFolder()
# create temporary folder vor extracted vCards
new-item -type dir "$env:TEMP\contacts" -Force | out-null  
# extract vCards
$cnt=0
foreach($file in Get-Item -LiteralPath $dlg.FileNames){
    # create single vCards from merged vCard files
    [regex]::matches((Get-Content $file.Fullname -raw),'(?ism)^BEGIN:VCARD.*?END:VCARD').Captures | %{  
        $_.Groups[0].Value  | out-file "$env:TEMP\contacts\contact_$((++$cnt)).vcf" -Encoding Default -Force  
    }
}
# process each vCard and import into outlook folder
foreach($file in ls "$env:TEMP\contacts" -File -Filter *.vcf){  
    write-host "Importing contact '$([regex]::match((Get-Content $file.Fullname -raw),'(?im)(?<=^FN:)[^\r\n]+').Value)'." -F Green  
    start outlook "/v `"$($file.Fullname)`""  
    while($objOL.Inspectors.Count -eq 0){sleep -Milliseconds 500}
    try{
        [void]$objOL.ActiveInspector().CurrentItem.Move($contactfolder)
    }catch{}
}
# remove temp folder
remove-item "$env:TEMP\contacts" -Recurse -Force  
# release resources
[void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($objOL)

#  try{
        [void]$objOL.ActiveInspector().CurrentItem.Move($contactfolder)
#  }catch{}