Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Outlook 2007 - Massenexport der Kontakte

Frage Microsoft Outlook & Mail

Mitglied: 2hard4you

2hard4you (Level 3) - Jetzt verbinden

16.06.2012 um 14:59 Uhr, 4698 Aufrufe, 5 Kommentare

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


Mitglied: Berrnd
16.06.2012 um 16:34 Uhr
Hi,

bestimmt sagt dir VBA was - damit ist das recht simpel:
01.
Sub ExportKontakte() 
02.
    Dim kontakt As Outlook.ContactItem 
03.
    For Each kontakt In Application.Session.GetDefaultFolder(olFolderContacts).Items 
04.
        If TypeOf kontakt Is Outlook.ContactItem Then 
05.
            kontakt.SaveAs "C:\Temp\" & kontakt.FileAs & ".vcf", olVCard 
06.
        End If 
07.
    Next 
08.
End Sub
Viele Grüße, Bernd
Bitte warten ..
Mitglied: 2hard4you
18.06.2012 um 09:34 Uhr
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
Bitte warten ..
Mitglied: Berrnd
18.06.2012, aktualisiert um 10:10 Uhr
Sind alle im Standard-Kontakteordner? Die Funktion geht nur die durch...
Bitte warten ..
Mitglied: 2hard4you
18.06.2012 um 19:16 Uhr
Moin,

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

Gruß

24
Bitte warten ..
Mitglied: Berrnd
18.06.2012, aktualisiert um 19:49 Uhr
Ok, dann musst du natürlich nicht den "DefaultFolder olFolderContacts" nehmen, sondern den "zu Fuss" referenzieren. Sollte so gehen:
01.
Sub ExportKontakte() 
02.
    Dim ordner As Outlook.MAPIFolder 
03.
    Set ordner = Application.GetNamespace("MAPI").Folders("AndereMailbox").Folders("Kontakte") 
04.
 
05.
    Dim kontakt As Outlook.ContactItem 
06.
    For Each kontakt In ordner.Items 
07.
        If TypeOf kontakt Is Outlook.ContactItem Then 
08.
            kontakt.SaveAs "C:\Temp\" & kontakt.FileAs & ".vcf", olVCard 
09.
        End If 
10.
    Next 
11.
End Sub
Schönen Abend, Bernd
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
gelöst Outlook Kontakte suchen für Mail (3)

Frage von Micky770 zum Thema Outlook & Mail ...

Outlook & Mail
Probleme mit outlook 2007 und icloud (4)

Frage von jensgebken zum Thema Outlook & Mail ...

Outlook & Mail
gelöst Outlook 2013 Emails Kontakten zuordnen (1)

Frage von xbast1x zum Thema Outlook & Mail ...

Microsoft Office
Outlook 2010 doppelte Kontakte zusammenführen (1)

Frage von Herbrich19 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Windows 10
Seekrank bei Windows 10 (18)

Frage von zauberer123 zum Thema Windows 10 ...

Windows 10
Windows 10 Fall Creators Update Fehler (14)

Frage von ZeroCool23 zum Thema Windows 10 ...

Router & Routing
gelöst Getrenntes Routing bei VoIP und Daten (12)

Frage von Hobbystern zum Thema Router & Routing ...