Excel im betrieblichen Umfeld

Falls Kontakte in Excel vorliegen, können diese via VBA Prozedur direkt in Outlook Kontakte geschrieben werden. Voraussetzung ist folgende Excel Tabellenstruktur --- BEGINN VBA Code Public Sub Outlook_Kontakt_erstellen() 'Verweis auf Microsoft Outlook XX.X Object Library muß gesetzt sein     Dim MyOutlook As Outlook.Application     Dim KontaktOutlook As Outlook.ContactItem     Dim i As Integer     Set MyOutlook = CreateObject("Outlook.Application")     ActiveSheet.Cells(1, 1).Activate    'Spaltenbeschriftungen stehen in Zeile 1, Termine ab Zeile 2    For i = 1 To ActiveSheet.UsedRange.Rows.Count       If i <> 1 Then '1te Zeile = Spaltenbeschriftung überspringen         Set KontaktOutlook = MyOutlook.CreateItem(olContactItem)               With KontaktOutlook 'Excel Tabellenstruktur FirstName, LastName, BusinessA...

Mit folgendem VBA Code kann man in Excel erfasste Termine via Funktionsaufruf in einen Outlook Kalender schreiben. Voraussetzung ist folgende Terminstruktur --- BEGINN VBA Code --- Public Function OutlookVerfuegbar() As String ' Prüfen ob Outlook vorhanden ist. ' Outlook installiert ? Welche Version ? ' ' Fehlerbehandlung   On Error GoTo ErrHandler   Dim oOutlook As Object   Set oOutlook = CreateObject("Outlook.Application")   OutlookAvail = oOutlook.Version   Set oOutlook = Nothing   On Error GoTo 0   Exit Function ErrHandler:   OutlookVerfuegbar = "" End Function Sub TerminNachOutlook()    Dim StartDatum As String    Dim StartUhrzeit As String    Dim Dauer As Long    Dim Beschreibung As String    Dim Nachricht As String    Dim Ort As String    Dim i As Integer      'Tabellenstruktur, Spaltenbeschriftung in erster Zeile ...

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