Outlook Kontakt suche via Excel VBA

Hallo Jenson,

Dein Vorhaben lässt sich mit VBA in Excel umsetzen, indem du die Outlook-Objektbibliothek in deinem VBA-Projekt referenzierst und dann entsprechende Skripte schreibst, um auf die Outlook-Kontakte zuzugreifen, nach der Telefonnummer zu suchen und entsprechende Aktionen durchzuführen. Hier ist eine schrittweise Anleitung, wie du vorgehen könntest:

Schritt 1: Referenz zur Outlook-Objektbibliothek hinzufügen

1. Öffne Excel und gehe zum VBA-Editor (Alt + F11).
2. Im VBA-Editor, gehe zu „Extras“ > „Verweise“.
3. Suche in der Liste nach „Microsoft Outlook xx.0 Object Library“ (wobei „xx“ für die Versionsnummer steht, z.B. „Microsoft Outlook 16.0 Object Library“ für Outlook 2016). Setze ein Häkchen davor und bestätige mit „OK“.

Schritt 2: VBA-Skript schreiben

Im VBA-Editor kannst du nun ein Modul erstellen (Einfügen > Modul) und folgenden Code einfügen. Dieser Code sucht in deinen Outlook-Kontakten nach einer bestimmten Telefonnummer. Wenn die Telefonnummer gefunden wird, öffnet der Code den entsprechenden Kontakt. Wenn nicht, könntest du eine weitere Aktion definieren, wie z.B. das Markieren der Telefonnummer oder das Drücken der „^“-Taste.

Sub SucheOutlookKontakt()
Dim OutlookApp As Object
Dim Namespace As Object
Dim Ordner As Object
Dim KontaktItem As Object
Dim Gefunden As Boolean
Dim Telefonnummer As String

‚ Telefonnummer, die gesucht werden soll
Telefonnummer = „123456789“ ‚ Hier die tatsächliche Telefonnummer einsetzen

‚ Outlook-Instanz erstellen
Set OutlookApp = CreateObject(„Outlook.Application“)
Set Namespace = OutlookApp.GetNamespace(„MAPI“)

‚ Auf den Kontakte-Ordner zugreifen
Set Ordner = Namespace.GetDefaultFolder(10) ‚ 10 steht für den Ordner Kontakte

Gefunden = False

‚ Suche jeden Kontakt im Kontakte-Ordner
For Each KontaktItem In Ordner.Items
If InStr(KontaktItem.BusinessTelephoneNumber, Telefonnummer) > 0 Or _
InStr(KontaktItem.MobileTelephoneNumber, Telefonnummer) > 0 Or _
InStr(KontaktItem.HomeTelephoneNumber, Telefonnummer) > 0 Then
‚ Telefonnummer gefunden, Kontakt öffnen
KontaktItem.Display
Gefunden = True
Exit For
End If
Next KontaktItem

If Not Gefunden Then
‚ Wenn nicht gefunden, könntest du hier die Aktion für die „^“-Taste definieren
MsgBox „Telefonnummer nicht gefunden.“, vbInformation
End If

‚ Objekte aufräumen
Set KontaktItem = Nothing
Set Ordner = Nothing
Set Namespace = Nothing
Set OutlookApp = Nothing
End Sub

Schritt 3: Skript ausführen

Führe das Skript direkt im VBA-Editor aus, indem du es auswählst und auf „Ausführen“ klickst oder F5 drückst.

Hinweis zur „^“-Taste:

Das Simulieren von Tastendrücken, wie das Drücken der „^“-Taste, kann in VBA etwas komplexer sein, besonders wenn es um die Interaktion mit externen Anwendungen geht. Eine einfache Möglichkeit, eine Tastenkombination in VBA zu simulieren, ist die Verwendung der SendKeys-Methode, allerdings kann diese Methode unzuverlässig sein und funktioniert möglicherweise nicht immer wie erwartet, besonders in Kombination mit anderen Anwendungen wie einem Softphone.

If Not Gefunden Then
‚ Telefonnummer markieren oder „^“-Taste simulieren
SendKeys „^“, True
End If

Bitte beachte, dass SendKeys bestimmte Sicherheitsrisiken birgt und in manchen Umgebungen deaktiviert sein kann. Es ist immer empfehlenswert, nach spezifischen Lösungen für die Anwendung zu suchen, mit der du interagierst (in deinem Fall das Softphone), um herauszufinden, ob es eine sicherere und zuverlässigere Schnittstelle für die Automation bietet.

Ich hoffe, diese Anleitung hilft dir dabei, dein Projekt umzusetzen. Wenn du weitere Fragen hast oder spezifische Probleme auftreten, zögere nicht, weitere Hilfe zu suchen.