Outlook Kontakte, Speichern unter (Format Firma, Nachname, Vorname für Adressbuch)

Falls in einem Outlook Kontakte Ordner mehrere Ansprechpartner je Firma angelegt sind,
ist es sinnvoll, die Kontakte im Format (Outlook Kontakt -> Speichern unter)

FIRMA (Nachname, Vorname)

abzuspeichern.

Verwendet man einen Kontakte Ordner als Adressbuch
(Eigenschaften -> Reiter Outlook Adressbuch, Option "Diesen Ordner als E-Mail-Adressbuch anzeigen")
so werden nun alle Kontakte innerhalb einer Firma kohärent angezeigt
(Feld Name des Adressbuchs).

Mit folgendem VBA Code werden alle markierten Kontakte eines Kontakte Ordners auf das notwendige Format umgestellt.

--- Code BEGINN ---

Sub Kontakt_Speichern_unter()

Dim olExplorer As Explorer
Dim olFolder As MAPIFolder
Dim olSelection As Selection
Set olExplorer = Application.ActiveExplorer
Set olFolder = Application.ActiveExplorer.CurrentFolder
Set olSelection = olExplorer.Selection

For x = 1 To olSelection.Count

    SCompany = olSelection.Item(x).CompanyName
    SName = olSelection.Item(x).LastNameAndFirstName
        If SCompany = "" Then
            olSelection.Item(x).FileAs = SName
        Else
            'Firma (Nachname, Vorname)
            olSelection.Item(x).FileAs = SCompany & " ( " & SName & " )"
        End If
     
olSelection.Item(x).Save

Next x

End Sub

--- Code ENDE ---

siehe auch email Anzeigename ändern