Kako hitro izvoziti več stikov v eno datoteko VCard z Outlook VBA

Če imate v Outlooku več stikov in jih želite izvoziti v eno datoteko vCard, namesto v ločene datoteke, lahko uporabite pametno metodo, predstavljeno v tem članku.

Na primer, drugim morate poslati na stotine stikov. Namesto da bi jih poslali kot ločene datoteke vCard, jih boste morda želeli združiti v eno datoteko vCard in jih nato poslati. Pravzaprav moj prejšnji članek - “Kako izvoziti več stikov v Outlooku kot eno datoteko VCard”Je predstavil metodo. Vendar ta pristop zahteva, da imate Gmail račun in uporabljate funkcijo »Uvozi in izvozi« v Gmailu. Na kratko, to je precej okorno. Zato vam bomo tukaj predstavili priročnejšo metodo.

Hitro izvozite več stikov v eno datoteko vCard

1. Najprej zaženite aplikacijo Outlook.
2. Nato tapnite tipki “Alt + F11” za dostop do urejevalnika VBA.
3. Nato v novo okno vstavite kodo VBA v modul.

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. Po tem dodajte ta makro v orodno vrstico za hitri dostop s sklicevanjem na »Kako zagnati kodo VBA v Outlooku".
5. Sčasoma lahko poskusite ta makro zdaj.

• Za začetek izberite stike, ki jih želite izvoziti.
• Nato v orodni vrstici za hitri dostop kliknite gumb makra.
• Kasneje boste videli okno ukaznega poziva, ki označuje, da so vsi stiki združeni v enega.
• Zdaj lahko v Raziskovalcu odprete mapo »E: \ Temp Contacts«.
• V tej lokalni mapi boste našli datoteko vCard z imenom »MergedContact«, ki vsebuje vse izbrane stike.

Popravite Outlook podatke po zrušitvah

Ker je Outlook dovzeten za korupcijo, morate dobro skrbeti za svojo datoteko PST. Na primer, morate še naprej pravilno zapirati Outlook. Prav tako je priporočljivo, da nikoli ne kliknete neznanih povezav ali prenašate prilog, vdelanih v e-poštna sporočila. Še več, raje se prijemi za mogočnega Popravilo PST uporabnost, kot je DataNumen Outlook Repair. Z njo, tudi če se datoteka Outlook poškoduje, jo lahko vseeno popravite z lahkoto.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z pokvarjena SQL Server in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com