Wie kann man die Dateiformate für alle Kontakte in Outlook stapelweise ändern?

Author: Sun Last Modified: 2025-08-06

Normalerweise werden die Kontaktdateien in Outlook als Nachname Vorname angezeigt. Wie können Sie jedoch schnell die Kontaktdateien im Stapelverfahren in das Format Firma oder eine andere Reihenfolge ändern, wie im folgenden Screenshot gezeigt? Die Standardeinstellung „Ablage unter“ funktioniert nur für neue Kontakte, nicht aber für bereits vorhandene. Hier stelle ich einen VBA-Code vor, um die Dateiformate für alle vorhandenen Kontakte in Outlook im Stapelverfahren zu ändern.

Stapelweise Änderung der Datei für alle Kontakte mit VBA

Stapelweise Änderung der Datei für alle Kontakte mit VBA

1. Wählen Sie die Kontakte aus, deren Dateiformat Sie ändern möchten, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

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

VBA: Ändern des Dateiformats

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

doc change file as 3

3. Drücken Sie die Taste F5, um den Code auszuführen, dann wurde für alle ausgewählten Kontakte das Dateiformat in Firmenname geändert.

Hinweis:

1. Im Code können Sie CompanyName durch andere Felder ersetzen, die Sie als Dateiformat anzeigen möchten.

2. Wenn keine Firmeninformationen vorhanden sind, wird der vollständige Name angezeigt.

AI-Mail-Assistent in Outlook: Intelligentere Antworten, klarere Kommunikation (per Klick-Zauberei!) KOSTENLOS

Vereinfachen Sie Ihre täglichen Outlook-Aufgaben mit dem AI-Mail-Assistenten von Kutools für Outlook. Dieses leistungsstarke Tool lernt aus Ihren früheren E-Mails, um intelligente und genaue Antworten anzubieten, Ihren E-Mail-Inhalt zu optimieren und Ihnen das Verfassen und Überarbeiten von Nachrichten mühelos zu ermöglichen.

Diese Funktion unterstützt:

Intelligente Antworten: Erhalten Sie Antworten, die aus Ihren früheren Gesprächen erstellt wurden – maßgeschneidert, präzise und sofort einsatzbereit.
Verbesserter Inhalt: Optimieren Sie Ihren E-Mail-Text automatisch für Klarheit und Wirkung.
Müheloses Verfassen: Geben Sie einfach Schlüsselwörter ein und lassen Sie die KI den Rest erledigen, mit mehreren Schreibstilen.
Intelligente Erweiterungen: Erweitern Sie Ihre Gedanken mit kontextbezogenen Vorschlägen.
Zusammenfassung: Erhalten Sie prägnante Übersichten über lange E-Mails auf Knopfdruck.
Weltweite Reichweite: Übersetzen Sie Ihre E-Mails ganz einfach in jede Sprache.

Diese Funktion unterstützt: