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
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
Please also mark the comments that contributed to the solution of the article
Content-ID: 186579
Url: https://administrator.de/forum/outlook-2007-massenexport-der-kontakte-186579.html
Printed on: January 19, 2025 at 00:01 o'clock
5 Comments
Latest comment
Hi,
bestimmt sagt dir VBA was - damit ist das recht simpel:
Viele Grüße, Bernd
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
Ok, dann musst du natürlich nicht den "DefaultFolder olFolderContacts" nehmen, sondern den "zu Fuss" referenzieren. Sollte so gehen:Schönen Abend, Bernd
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