Cum să exportați rapid mai multe contacte într-un fișier VCard cu Outlook VBA

Dacă aveți mai multe persoane de contact în Outlook și doriți să le exportați într-un singur fișier vCard, în loc de fișiere separate, puteți utiliza metoda inteligentă introdusă în acest articol.

De exemplu, trebuie să trimiteți sute de contacte către altcineva. În loc să le trimiteți ca fișiere vCard separate, este posibil să fiți dornici să le combinați într-un singur fișier vCard și apoi să îl trimiteți. De fapt, articolul meu anterior – „Cum să exportați mai multe contacte Outlook ca un singur fișier VCard” a introdus o metodă. Cu toate acestea, această abordare necesită să aveți un cont Gmail și să utilizați funcția „Importați și exportați” din Gmail. Pe scurt, este destul de greoi. Prin urmare, aici vă vom introduce o metodă mai utilă.

Exportați rapid mai multe contacte într-un fișier vCard

1. Mai întâi, lansați aplicația Outlook.
2. Apoi, atingeți tastele „Alt + F11” pentru a accesa editorul VBA.
3. Apoi, în noua fereastră, introduceți codul VBA într-un 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. După aceea, adăugați această macrocomandă la Bara de instrumente Acces rapid cu referire la „Cum să rulați codul VBA în Outlook".
5. În cele din urmă, puteți încerca această macrocomandă chiar acum.

• Pentru început, selectați contactele pe care doriți să le exportați.
• Apoi, faceți clic pe butonul macro din Bara de instrumente Acces rapid.
• Mai târziu, veți vedea o fereastră de linie de comandă, care indică faptul că toate contactele sunt îmbinate într-una singură.
• Acum, puteți merge la folderul „E:\Temp Contacts” din Windows Explorer.
• În acest folder local, veți găsi un fișier vCard numit „MergedContact”, care este fișierul care conține toate contactele selectate.

Reparați datele Outlook după blocări

Deoarece Outlook este susceptibil de corupție, trebuie să aveți grijă de fișierul dvs. PST. De exemplu, trebuie să continuați să închideți Outlook în mod corespunzător. De asemenea, se recomandă să nu faceți niciodată clic pe linkuri necunoscute sau să descărcați atașamentele încorporate în e-mailuri. Mai mult, ar fi bine să prindeți un puternic reparație PST utilitate, cum ar fi DataNumen Outlook Repair. Cu el, chiar dacă fișierul dvs. Outlook devine corupt, îl puteți repara cu ușurință fără efort.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv corupt SQL Server și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com