Outlook Kontakte Visitenkarte bei bestehenden Kontakten aktualisieren

<#
    Outlook: Assign business card template to all contacts in a public folder
    Note: Before starting the script, please select the contact to serve as a template in the active outlook explorer instance
   @colinardo / administrator.de
#>

# define public folder path
$publicfolderPath = 'Business\Lieferanten'  

# ================================
$ErrorActionPreference = 'Stop'  
# load outlook object
[void][reflection.assembly]::LoadWithPartialName("microsoft.visualbasic")  
$objOL = [microsoft.visualbasic.interaction]::GetObject($null,"Outlook.Application")  
if (!$objOL){$objOL = New-Object -Com Outlook.Application}

try{
    # get public folder path
    $publicfolder = $objOL.Session.GetDefaultFolder(18)
    $publicfolderPath.TrimStart('\').split('\') | %{$publicfolder = $publicfolder.Folders[$_]}  
}catch{
    write-host "Public folder path is invalid, or no access to public folders! `nERROR: $($_.Exception.Message)" -F Red  
    return
}

# check selection
if ($objOL.ActiveExplorer().Selection.Count -eq 0){
    write-host "Please select the template contact in current outlook explorer instance!" -F Red  
    return
}
# get layout xml
$layouttemplate = $objOL.ActiveExplorer().Selection[1].BusinessCardLayoutXml

# assign layout template to every "contact" item in folder  
foreach($contact in ($publicfolder.Items | ?{$_.Class -eq 40})){
    write-host "Changing business card layout of contact '$($contact.FileAs)' ... " -NoNewline -F Green  
    try{
        $contact.BusinessCardLayoutXml = $layouttemplate
        $contact.Save()
        write-host "OK" -F Green  
    }catch{
        write-host $_.Exception.Message -F Red
    }
}
# cleanup
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($objOL)

Code Sample 3: Change the business card layout to match the selected contact

Set oFolder = Application.Session.GetDefaultFolder(18).Folders("Business").Folders("Lieferanten")  

Sub ApplyTemplateToContacts()
    Dim contact As ContactItem, templateuser As ContactItem, folderContacts As Folder
    If ActiveExplorer.Selection.Count = 0 Then
        MsgBox "Kein Template User ausgewählt! Bitte wählen sie vor dem Starten des Skripts einen User aus der als Vorlage für alle anderen User gelten soll", vbExclamation  
        Exit Sub
    End If
    Set templateuser = ActiveExplorer.Selection(1)
    Set folderContacts = Application.Session.GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders("Business").Folders("Lieferanten")  
    For Each contact In folderContacts.Items
        contact.BusinessCardLayoutXml = templateuser.BusinessCardLayoutXml
        contact.Save
    Next
End Sub