Snel meerdere contacten exporteren naar één VCard-bestand met Outlook VBA

Als u meerdere contactpersonen in uw Outlook heeft en deze naar één vCard-bestand wilt exporteren in plaats van naar afzonderlijke bestanden, kunt u de slimme methode gebruiken die in dit artikel wordt geïntroduceerd.

U moet bijvoorbeeld honderden contacten naar iemand anders sturen. In plaats van ze als afzonderlijke vCard-bestanden te verzenden, wilt u ze misschien liever combineren in één enkel vCard-bestand en dit vervolgens verzenden. Eigenlijk is mijn vorige artikel – “Hoe u meerdere Outlook-contactpersonen kunt exporteren als één VCard-bestandheeft een methode geïntroduceerd. Deze aanpak vereist echter dat je een Gmail-account hebt en de functie "Importeren en exporteren" van Gmail gebruikt. Kortom, dat is behoorlijk omslachtig. Daarom zullen we hier een handiger methode aan u voorstellen.

Exporteer snel meerdere contacten naar één vCard-bestand

1. Start eerst uw Outlook-applicatie.
2. Tik vervolgens op de toetsen "Alt + F11" om toegang te krijgen tot de VBA-editor.
3. Plaats vervolgens in het nieuwe venster de VBA-code in een module.

Sub ExportMultipleContactsIntoOneVCardFile()
    Dim objSelection As Outlook.Selection
    Dim strLocalDrive, strFolder As String
    Dim i As Long
    Dim objContact As Outlook.ContactItem
    Dim strVCardFile As String
 
    'Get all selected contacts
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not objSelection Is Nothing Then
       'Save contacts in "E:\Temp Contacts\"
       strLocalDrive = "E:"
       strFolder = "Temp Contacts"
       MkDir (strLocalDrive & "\" & strFolder & "\")
 
       'Save all selected contacts as separate vCards
       For i = objSelection.Count To 1 Step -1
           If TypeName(objSelection(i)) = "ContactItem" Then
              Set objContact = objSelection(i)
 
              strVCardFile = strLocalDrive & "\" & strFolder & "\" & objContact.FullName & ".vcf"
              objContact.SaveAs strVCardFile, olVCard
           End If
       Next
 
       'Use cmd to merge all exported vCard files into one
       Shell "cmd.exe /K" & strLocalDrive & " & CD " & strFolder & " & copy *.vcf MergedContact.vcf"
    End If
End Sub

4. Voeg daarna deze macro toe aan de werkbalk Snelle toegang met verwijzing naar "Hoe u VBA-code in uw Outlook uitvoert'.
5. Uiteindelijk kunt u deze macro nu proberen.

• Selecteer om te beginnen de contactpersonen die u wilt exporteren.
• Klik vervolgens op de macroknop in de werkbalk Snelle toegang.
• Later ziet u een opdrachtpromptvenster, dat aangeeft dat alle contacten tot één zijn samengevoegd.
• Nu kunt u naar de map "E:\Temp Contacts" in uw Windows Verkenner gaan.
• In deze lokale map vindt u een vCard-bestand met de naam "MergedContact", het bestand dat alle geselecteerde contacten bevat.

Herstel uw Outlook-gegevens na crashes

Omdat Outlook gevoelig is voor corruptie, moet u goed voor uw PST-bestand zorgen. U moet bijvoorbeeld uw Outlook op de juiste manier blijven sluiten. Er wordt ook aangeraden om nooit op onbekende links te klikken of bijlagen te downloaden die in e-mails zijn ingesloten. Bovendien kun je beter een krachtige in handen krijgen PST-reparatie hulpprogramma, zoals DataNumen Outlook Repair. Hiermee kunt u, zelfs als uw Outlook-bestand beschadigd raakt, het nog steeds moeiteloos repareren.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder corrupt SQL Server en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com