Jak rychle exportovat více kontaktů do jednoho souboru VCard pomocí aplikace Outlook VBA

Pokud máte v aplikaci Outlook více kontaktů a chcete je exportovat do jednoho souboru vCard namísto samostatných souborů, můžete použít chytrou metodu uvedenou v tomto článku.

Například potřebujete poslat stovky kontaktů někomu jinému. Místo toho, abyste je posílali jako samostatné soubory vCard, možná budete chtít je sloučit do jednoho souboru vCard a poté jej odeslat. Vlastně můj předchozí článek – “Jak exportovat více kontaktů aplikace Outlook jako jeden soubor VCard“ zavedl metodu. Tento přístup však vyžaduje, abyste měli účet Gmail a používali funkci „Import a Export“ Gmailu. Stručně řečeno, je to docela těžkopádné. Proto vám zde představíme šikovnější metodu.

Rychle exportujte více kontaktů do jednoho souboru vCard

1. Nejprve spusťte aplikaci Outlook.
2. Poté klepnutím na klávesy „Alt + F11“ otevřete editor VBA.
3. Dále v novém okně vložte kód VBA do modulu.

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. Poté přidejte toto makro na panel nástrojů Rychlý přístup s odkazem na „Jak spustit kód VBA ve vašem Outlooku".
5. Nakonec můžete toto makro zkusit hned teď.

• Pro začátek vyberte kontakty, které chcete exportovat.
• Poté klikněte na tlačítko makra na panelu nástrojů Rychlý přístup.
• Později se zobrazí okno příkazového řádku, které označuje, že všechny kontakty jsou sloučeny do jednoho.
• Nyní můžete v Průzkumníku Windows přejít do složky „E:\Temp Contacts“.
• V této místní složce najdete soubor vCard s názvem „MergedContact“, což je soubor obsahující všechny vybrané kontakty.

Opravte svá data aplikace Outlook po haváriích

Protože Outlook je náchylný k poškození, musíte se o svůj soubor PST dobře starat. Například musíte správně zavírat svůj Outlook. Také se doporučuje nikdy neklikat na neznámé odkazy nebo stahovat přílohy vložené do e-mailů. Navíc byste se měli raději chytit mocného Oprava PST nástroj, jako je DataNumen Outlook Repair. Díky tomu, i když se váš soubor aplikace Outlook poškodí, stále jej můžete snadno opravit.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zkažený SQL Server a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com