Outlook 2007 - Massenexport der Kontakte

Wie bekomme ich einen Massenexport der Kontakte in .vcf oder .ics hin?

Moin,

ich habe einen Kontakteordner mit ca. 1000 Kontakten, die ich jeweils einzeln als VCF oder ICS abspeichern möchte. Der gesamte Ordner ist betroffen.

Bisher habe ich einen gefundenen Workaround probiert - alle in eine Mail einfügen und dann die in ein Verzeichnis kopieren, aber der hat bei mir nicht geklappt.

Habt Ihr ne Idee (Script) dazu, dies umzusetzen.

Danke & Gruß

24

Sub ExportKontakte()
    Dim kontakt As Outlook.ContactItem
    For Each kontakt In Application.Session.GetDefaultFolder(olFolderContacts).Items
        If TypeOf kontakt Is Outlook.ContactItem Then
            kontakt.SaveAs "C:\Temp\" & kontakt.FileAs & ".vcf", olVCard  
        End If
    Next
End Sub

Sub ExportKontakte()
    Dim ordner As Outlook.MAPIFolder
    Set ordner = Application.GetNamespace("MAPI").Folders("AndereMailbox").Folders("Kontakte")  

    Dim kontakt As Outlook.ContactItem
    For Each kontakt In ordner.Items
        If TypeOf kontakt Is Outlook.ContactItem Then
            kontakt.SaveAs "C:\Temp\" & kontakt.FileAs & ".vcf", olVCard  
        End If
    Next
End Sub