2hard4you
Goto Top

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

Content-Key: 186579

Url: https://administrator.de/contentid/186579

Printed on: July 12, 2024 at 18:07 o'clock

Member: Berrnd
Berrnd Jun 16, 2012 at 14:34:50 (UTC)
Goto Top
Hi,

bestimmt sagt dir VBA was - damit ist das recht simpel:
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
Viele Grüße, Bernd
Member: 2hard4you
2hard4you Jun 18, 2012 at 07:34:27 (UTC)
Goto Top
Moin,

hab das gestern mal getestet - statt der 1000 Kontakte hat der nur ca. 120 rausgehauen, ich bin am Suchen, woran das liegt.

Danke & Gruß

24
Member: Berrnd
Berrnd Jun 18, 2012 updated at 08:10:51 (UTC)
Goto Top
Sind alle im Standard-Kontakteordner? Die Funktion geht nur die durch...
Member: 2hard4you
2hard4you Jun 18, 2012 at 17:16:17 (UTC)
Goto Top
Moin,

ja, extra Outlookprofil ohne Mail - und dort in den Standardordner reingeworfen.

Gruß

24
Member: Berrnd
Berrnd Jun 18, 2012 updated at 17:49:38 (UTC)
Goto Top
Ok, dann musst du natürlich nicht den "DefaultFolder olFolderContacts" nehmen, sondern den "zu Fuss" referenzieren. Sollte so gehen:
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
Schönen Abend, Bernd