Outlook VBA: Importieren von mehreren VCF-Dateien in Outlook-Kontakte
Problem:
Sie haben viele Kontakte als VCF-Dateien gespeichert und möchten diese alle in Ihre Outlook-Kontakte importieren. Generell kann man nur eine einzelne VCF-Datei öffrenn und diese dann in den Kontakten speichern, was eventuell sehr aufwendig sein kann, wenn es sich um einige hundert Kontakte handelt.
Lösung:
Hier finden Sie ein Skript, dass im Outlook-VBA verfasst ist, welches alle VCF-Dateien, die im Ordner "C:\VCARDS" liegen, automatsich in die Outlook-Kontakte importiert.
So fügen Sie den Code in Outlook hinzu:
- Einfach im Outlook ALT+F11 drücken um den VBA-Editor zu öffnen
- Navigieren Sie links in der Baumstruktur zu "Projekt1 -> Microsoft Outlook Objekt -> ThisOutlookSession"
- Doppelklicken Sie "This OutlookSession" um die Code-Übersicht zu öffnen
- Hier kopieren Sie das untenstehende Skript hinein
- Starten Sie das Skript mittels klick auf den grünen Pfeil oben im Menüband
Hinweis: Die VCF-Dateien werden in den persönlichen Kontakte-Ordner gespeichert. Bitte diesen vorher sichern und leeren, wenn man ein vermischen der Kontakte nicht wünscht.
Selbstverständlich kann der Pfad zu den VCF-Dateien im Skript angepaßt werden.
Ich selbst habe damit 880 VCF-Dateien in mein Outlook problemlos importieren können! Zuvor hatte ich es mit einigen Freetools vergeblich versucht!
Quelle des Skripts: Tech Support Guy Forum: Import multiple .vCard files in Outlook
Sie haben viele Kontakte als VCF-Dateien gespeichert und möchten diese alle in Ihre Outlook-Kontakte importieren. Generell kann man nur eine einzelne VCF-Datei öffrenn und diese dann in den Kontakten speichern, was eventuell sehr aufwendig sein kann, wenn es sich um einige hundert Kontakte handelt.
Lösung:
Hier finden Sie ein Skript, dass im Outlook-VBA verfasst ist, welches alle VCF-Dateien, die im Ordner "C:\VCARDS" liegen, automatsich in die Outlook-Kontakte importiert.
So fügen Sie den Code in Outlook hinzu:
- Einfach im Outlook ALT+F11 drücken um den VBA-Editor zu öffnen
- Navigieren Sie links in der Baumstruktur zu "Projekt1 -> Microsoft Outlook Objekt -> ThisOutlookSession"
- Doppelklicken Sie "This OutlookSession" um die Code-Übersicht zu öffnen
- Hier kopieren Sie das untenstehende Skript hinein
- Starten Sie das Skript mittels klick auf den grünen Pfeil oben im Menüband
Hinweis: Die VCF-Dateien werden in den persönlichen Kontakte-Ordner gespeichert. Bitte diesen vorher sichern und leeren, wenn man ein vermischen der Kontakte nicht wünscht.
Selbstverständlich kann der Pfad zu den VCF-Dateien im Skript angepaßt werden.
Ich selbst habe damit 880 VCF-Dateien in mein Outlook problemlos importieren können! Zuvor hatte ich es mit einigen Freetools vergeblich versucht!
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
Quelle des Skripts: Tech Support Guy Forum: Import multiple .vCard files in Outlook