Wie kann man das „Datei speichern unter“-Format für alle Kontakte in Outlook stapelweise ändern?

In Outlook werden Kontaktdateien standardmäßig im Format „Nachname Vorname“ angezeigt. Doch wie können Sie das „Datei speichern als“-Format für alle Kontakte schnell und stapelweise auf „Firma“ oder eine andere, im folgenden Screenshot dargestellte Reihenfolge ändern? Die Option „Standardmäßig ‚Datei speichern als‘-Reihenfolge“ wirkt sich nur auf neue Kontakte aus, nicht jedoch auf bereits vorhandene. Hier stelle ich einen VBA-Code vor, mit dem Sie das „Datei speichern als“-Format für alle bestehenden Kontakte in Outlook effizient und en masse anpassen können.

Stapelweise „Datei speichern als“-Format für alle Kontakte mithilfe von VBA ändern

---

Stapelweise „Datei speichern als“-Format für alle Kontakte mithilfe von VBA ändern

1. Wählen Sie die Kontakte aus, deren „Datei speichern als“-Format Sie ändern möchten, und drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Doppelklicken Sie im Project-Project1-Bereich auf ThisOutlookSession, und fügen Sie den folgenden Code in das leere Skriptfenster ein.

VBA: „Datei speichern als“ ändern

Sub ChangeFileAsforContracts()
'UpdatebyExtendoffice20180404
Dim xSelItems As Object
Dim xItem As Object
Dim xContact As ContactItem
Dim xFileAs As String
On Error Resume Next
If Outlook.Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
    MsgBox "Please select the contact folder first", vbInformation + vbOKOnly, "Kutools for Outlook"
    Exit Sub
End If
Set xSelItem = Outlook.ActiveExplorer.Selection
For Each xItem In xSelItem
    If xItem.Class = olContact Then
        Set xContact = xItem
        With xContact
            If .CompanyName = "" Then
                xFileAs = .FullName
            Else
                xFileAs = .CompanyName
            End If
            .FileAs = xFileAs
            .Save
        End With
    End If
Next
End Sub

3. Drücken Sie die F5-Taste, um den Code auszuführen. Anschließend wird das „Datei speichern als“-Format aller ausgewählten Kontakte auf „Firma“ geändert.

Hinweis:

1. Im Code können Sie CompanyName durch andere Felder ersetzen, die im „Datei speichern als“-Format angezeigt werden sollen.

2. Falls keine Firmeninformation vorhanden ist, wird stattdessen der vollständige Name angezeigt.