Több névjegy gyors exportálása egyetlen VCard fájlba az Outlook VBA segítségével

Ha több névjegye van az Outlookban, és egyetlen vCard-fájlba szeretné exportálni őket, különálló fájlok helyett, használhatja az ebben a cikkben bemutatott intelligens módszert.

Például több száz névjegyet kell elküldenie valaki másnak. Ahelyett, hogy külön vCard-fájlként küldené el őket, érdemes lehet egyetlen vCard-fájlba egyesíteni, majd elküldeni. Valójában az előző cikkem - "Több Outlook-névjegy exportálása egyetlen VCard-fájlként” módszert vezetett be. Ez a megközelítés azonban megköveteli, hogy rendelkezzen Gmail-fiókkal, és használja a Gmail „Importálás és exportálás” funkcióját. Dióhéjban ez elég körülményes. Ezért itt bemutatunk egy kényelmesebb módszert.

Gyorsan exportálhat több névjegyet egyetlen vCard fájlba

1. Először indítsa el az Outlook alkalmazást.
2. Ezután érintse meg az „Alt + F11” billentyűket a VBA-szerkesztő eléréséhez.
3. Ezután az új ablakban helyezze el a VBA kódot egy modulba.

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. Ezután adja hozzá ezt a makrót a Gyorselérési eszköztárhoz a következő hivatkozással:A VBA kód futtatása az Outlookban".
5. Végül most azonnal kipróbálhatja ezt a makrót.

• Kezdésként jelölje ki az exportálni kívánt névjegyeket.
• Ezután kattintson a makró gombra a Gyorselérési eszköztárban.
• Később megjelenik egy parancssor ablak, amely azt jelzi, hogy az összes névjegy egybe van egyesítve.
• Most lépjen az „E:\Temp Contacts” mappába a Windows Intézőben.
• Ebben a helyi mappában talál egy „MergedContact” nevű vCard fájlt, amely az összes kiválasztott névjegyet tartalmazza.

Javítsa meg Outlook adatait összeomlás után

Mivel az Outlook érzékeny a korrupcióra, gondosan ügyelnie kell a PST-fájlra. Például folyamatosan be kell zárnia az Outlookot a megfelelő módon. Ezenkívül azt javasoljuk, hogy soha ne kattintson ismeretlen hivatkozásokra, és ne töltsön le e-mailekbe ágyazott mellékleteket. Sőt, jobb, ha megfog egy erős PST javítás segédprogram, mint pl DataNumen Outlook Repair. Még ha az Outlook-fájl megsérül is, akkor is könnyedén megjavíthatja.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve megvesztegethető SQL Server és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com