Ako rýchlo exportovať viacero kontaktov do jedného súboru VCard pomocou programu Outlook VBA

Ak máte v programe Outlook viacero kontaktov a chcete ich exportovať do jedného súboru vCard namiesto samostatných súborov, môžete použiť inteligentnú metódu uvedenú v tomto článku.

Napríklad potrebujete poslať stovky kontaktov niekomu inému. Namiesto odosielania ako samostatných súborov vCard ich možno budete chcieť skombinovať do jedného súboru vCard a potom ho odoslať. Vlastne môj predchádzajúci článok – “Ako exportovať viacero kontaktov programu Outlook ako jeden súbor VCard“ zaviedla metódu. Tento prístup však vyžaduje, aby ste mali účet Gmail a používali funkciu „Import a export“ Gmailu. Stručne povedané, je to dosť ťažkopádne. Preto vám tu predstavíme šikovnejší spôsob.

Rýchlo exportujte viacero kontaktov do jedného súboru vCard

1. Najskôr spustite aplikáciu Outlook.
2. Potom klepnutím na klávesy „Alt + F11“ vstúpte do editora VBA.
3. Ďalej v novom okne 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. Potom pridajte toto makro na panel s nástrojmi Rýchly prístup s odkazom na „Ako spustiť kód VBA v programe Outlook".
5. Nakoniec môžete toto makro vyskúšať hneď teraz.

• Na začiatok vyberte kontakty, ktoré chcete exportovať.
• Potom kliknite na tlačidlo makra na paneli s nástrojmi Rýchly prístup.
• Neskôr sa zobrazí okno príkazového riadka, ktoré označuje, že všetky kontakty sú zlúčené do jedného.
• Teraz môžete v Prieskumníkovi Windows prejsť do priečinka „E:\Temp Contacts“.
• V tomto lokálnom priečinku nájdete súbor vCard s názvom „MergedContact“, čo je súbor obsahujúci všetky vybrané kontakty.

Opravte svoje údaje programu Outlook po zlyhaniach

Keďže Outlook je náchylný na poškodenie, musíte sa o svoj súbor PST dobre starať. Napríklad musíte svoj Outlook zatvárať správnym spôsobom. Odporúča sa tiež nikdy neklikať na neznáme odkazy ani sťahovať prílohy vložené do e-mailov. Okrem toho by ste mali radšej získať mocného Oprava PST užitočnosť, ako napr DataNumen Outlook Repair. Aj keď sa váš súbor programu Outlook poškodí, stále ho môžete bez námahy opraviť.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane skazený SQL Server a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S