Categories

Outlook-Import leicht gemacht: Automatisiere den .vcf-Kontaktimport mit VBA

Donate with

82uymVXLkvVbB4c4JpTd1tYm1yj1cKPKR2wqmw3XF8YXKTmY7JrTriP4pVwp2EJYBnCFdXhLq4zfFA6ic7VAWCFX5wfQbCC

Copy Monero Donation Address

Donate with

Donate BAT now

Verified BAT publisher

VCF-Kontakte in Outlook importieren: So klappt es automatisch mit einem VBA-Skript

Outlook kann wohl mit dem .vcf-Format umgehen, jedoch wird es schnell zur Qual, mehrere hundert Kontakte zu importieren, denn: Outlook muss jedes Element einzeln öffnen und abspeichern. Hier hilft ein VBA-Skript!

Warum .vcf-Dateien in Outlook importieren?

.vcf-Dateien, auch bekannt als vCards, sind ein gängiges Format für den Austausch von Kontaktinformationen. Sie enthalten alle wichtigen Details wie Namen, Telefonnummern und E-Mail-Adressen. Wenn du mehrere Kontakte importieren möchtest, bietet Outlook standardmäßig nur die Möglichkeit, eine Datei nach der anderen zu importieren – ein frustrierender Prozess, wenn es um viele Kontakte geht.

Die Lösung: Automatisierter Import mit VBA direkt in Outlook

Mit einem einfachen VBA-Skript kannst du Outlook dazu bringen, mehrere .vcf-Dateien automatisch zu importieren, ohne jede Datei manuell öffnen zu müssen. Das Skript durchläuft alle .vcf-Dateien in einem definierten Ordner und fügt sie direkt in Outlook ein.

Schritt-für-Schritt-Anleitung

1. Vorbereitung: Ordner mit .vcf-Dateien erstellen

Lege alle .vcf-Dateien, die du importieren möchtest, in den Ordner C:\vcf auf deinem Computer.

2. VBA-Editor in Outlook öffnen und Skript einfügen

1. Öffne Outlook und drücke Alt + F11, um den VBA-Editor zu starten.
2. Gehe zu Einfügen > Modul, um ein neues Modul zu erstellen.
3. Kopiere das folgende Skript in das geöffnete Modulfenster:

Sub OpenSaveVCard()

Set fso = CreateObject("Scripting.FileSystemObject")
Set fsDir = fso.GetFolder("C:\VCARDS")

For Each fsFile In fsDir.Files

strVCName = "C:\VCARDS\" & fsFile.Name
Set objOL = CreateObject("Outlook.Application")
Set colInsp = objOL.Inspectors
If colInsp.Count = 0 Then

Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.Run Chr(34) & strVCName & Chr(34)
DoEvents
Set colInsp = objOL.Inspectors
If Err = 0 Then

Do Until colInsp.Count = 1
DoEvents
Loop

colInsp.Item(1).CurrentItem.Save
colInsp.Item(1).Close olDiscard
Set colInsp = Nothing
Set objOL = Nothing
Set objWSHShell = Nothing

End If

End If

Next

End Sub

3. Skript ausführen

1. Schließe den VBA-Editor.
2. In Outlook, drücke Alt + F8, wähle ImportVcfFiles aus der Liste und klicke auf Ausführen.

Tipps und Tricks

• Sicherheitseinstellungen: Bei neueren Outlook-Versionen können Sicherheitsabfragen erscheinen. Diese können durch Anpassung der Makroeinstellungen in Outlook vermieden werden.
• Backup erstellen: Mache zur Sicherheit ein Backup deiner Kontakte, bevor du einen Massenimport durchführst.

Fazit

Mit dieser Methode kannst du hunderte .vcf-Kontakte auf einmal in Outlook importieren, ohne jeden Kontakt einzeln öffnen zu müssen. Der Ordner C:\vcf macht es dir leicht, den Import vorzubereiten und durchzuführen – einfach Skript einfügen und starten!