Excel im betrieblichen Umfeld

Die Spaltensortierung Name im Adressbuch wird durch das Kontakte Feld "Speichern unter" (1), der Email Anzeigenamen durch das Kontakte Feld "Anzeigen als" (2) gesteuert. Der folgende VBA Code ändert das Standard Format Vorname Name (email Adresse) zu Name, Vorname (email Adresse) relevante Objekt (=Kontakt) Eigenschaft := .Email1DisplayName = .LastNameAndFirstName 'Format Nachname, Vorname --- SCHNIPP Code BEGINN --- Public Sub ChangeEmailDisplayName()       Dim objOL As Outlook.Application     Dim objNS As Outlook.NameSpace     Dim objContact As Outlook.ContactItem     Dim objItems As Outlook.Items     Dim objContactsFolder As Outlook.MAPIFolder     Dim obj As Object     Dim strFirstName As String     Dim strLastName As String     Dim strFileAs As String     On Error Resume Next     Set objOL = CreateObject("Outlook.Application")   ...

Interne Kontakte (Mitarbeiter) eines Unternehmens sind in der Regel komfortabel über ein globales Outlook Adressbuch auswählbar. Externe Kontakte (Lieferanten, Kunden, Dienstleister, Partner usw.) werden jedoch oft manuell, dezentral und redundant in den einzelnen Adressbüchern der jeweiligen Kollegen gehalten und gepflegt. Um diese Redundanz zu vermeiden können Kontakte in einer Sharepoint Kontakt Liste zentral ausgelagert, verwaltet, berechtigt und mit den dezentralen Outlook Clients verknüpft werden. Sharepoint Kontakt Liste mit Outlook verknüpfen Nach diesem Klick bestätigen, damit zukünftig alle Kontakte mit Outlook synchronisiert werden. Diese Synchronisation funktioniert sogar bidirektional, d.h. es werden sowohl neue Einträge / Änderungen der zentralen Kontakte Liste als auch Einträge / Änderungen im (dezentralen) Outlook Client berücksichtigt / zurückgeschrieben. Kontakte Liste als Outlook Adressbuch deklarieren siehe auch  Outlook Konta...

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.I...