Kā ātri eksportēt vairākus kontaktus vienā VCard failā, izmantojot Outlook VBA

Ja programmā Outlook ir vairākas kontaktpersonas un vēlaties tās eksportēt vienā vCard failā, nevis atsevišķos failos, varat izmantot šajā rakstā ieviesto viedo metodi.

Piemēram, jums ir jānosūta simtiem kontaktu kādam citam. Tā vietā, lai nosūtītu tos kā atsevišķus vCard failus, iespējams, vēlēsities tos apvienot vienā vCard failā un pēc tam nosūtīt. Patiesībā mans iepriekšējais raksts - “Kā eksportēt vairākus Outlook kontaktus kā vienu VCard failu”Ir ieviesusi metodi. Tomēr šī pieeja prasa, lai jums būtu Gmail konts un jāizmanto Gmail funkcija “Importēt un eksportēt”. Īsumā tas ir diezgan apgrūtinoši. Tāpēc šeit mēs jums iepazīstināsim ar ērtāku metodi.

Ātri eksportējiet vairākus kontaktus vienā vCard failā

1. Vispirms palaidiet programmu Outlook.
2. Pēc tam pieskarieties taustiņiem “Alt + F11”, lai piekļūtu VBA redaktoram.
3. Pēc tam jaunajā logā ievietojiet VBA kodu 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. Pēc tam pievienojiet šo makro ātrās piekļuves rīkjoslai, atsaucoties uz “Kā palaist VBA kodu programmā Outlook".
5. Galu galā jūs varat izmēģināt šo makro tūlīt.

• Lai sāktu, atlasiet kontaktpersonas, kuras vēlaties eksportēt.
• Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz pogas makro.
• Vēlāk jūs redzēsit komandu uzvednes logu, kas norāda, ka visi kontakti ir apvienoti vienā.
• Tagad Windows Explorer varat doties uz mapi “E: \ Temp Contacts”.
• Šajā vietējā mapē atradīsit vCard failu ar nosaukumu “MergedContact”, kas ir fails, kurā ir visas atlasītās kontaktpersonas.

Pēc avārijām labojiet savus Outlook datus

Tā kā Outlook ir uzņēmīgs pret korupciju, jums rūpīgi jārūpējas par savu PST failu. Piemēram, jums ir pareizi jāaizver Outlook. Turklāt ir ieteicams neklikšķināt uz nezināmām saitēm un lejupielādēt e -pasta ziņojumos iekļautos pielikumus. Turklāt jums labāk vajadzētu iegūt spēcīgu PST remonts lietderība, piemēram, DataNumen Outlook Repair. Izmantojot to, pat ja jūsu Outlook fails tiek sabojāts, jūs joprojām varat to labot bez piepūles.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sabojāt SQL Server un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar