Si të eksportoni shpejt kontakte të shumta në një skedar VCard me Outlook VBA

Nëse keni shumë kontakte në Outlook dhe dëshironi t'i eksportoni në një skedar të vetëm vCard, në vend të skedarëve të veçantë, mund të përdorni metodën inteligjente të prezantuar në këtë artikull.

Për shembull, ju duhet të dërgoni qindra kontakte te dikush tjetër. Në vend që t'i dërgoni si skedarë të veçantë vCard, mund të jeni të etur t'i kombinoni ato në një skedar të vetëm vCard dhe më pas t'i dërgoni. Në fakt, artikulli im i mëparshëm - "Si të eksportoni kontakte të shumta të Outlook si një skedar i vetëm VCard” ka prezantuar një metodë. Sidoqoftë, kjo qasje kërkon që të keni një llogari Gmail dhe të përdorni veçorinë "Import dhe Eksporto" të Gmail. Me pak fjalë, kjo është mjaft e rëndë. Prandaj, këtu do t'ju prezantojmë një metodë më të përshtatshme.

Eksporto shpejt kontakte të shumta në një skedar vCard

1. Fillimisht, hapni aplikacionin tuaj Outlook.
2. Pastaj, trokitni lehtë mbi butonat "Alt + F11" për të hyrë në redaktuesin VBA.
3. Më pas, në dritaren e re, vendosni kodin VBA në një 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. Pas kësaj, shtoni këtë makro në shiritin e veglave të aksesit të shpejtë duke iu referuar "Si të ekzekutoni kodin VBA në Outlook tuaj".
5. Përfundimisht, mund ta provoni këtë makro tani.

• Për të filluar, zgjidhni kontaktet që dëshironi të eksportoni.
• Pastaj, klikoni butonin makro në shiritin e veglave të aksesit të shpejtë.
• Më vonë do të shihni një dritare të vijës së komandës, e cila tregon se të gjitha kontaktet janë bashkuar në një.
• Tani, mund të shkoni te dosja "E:\Temp Contacts" në Windows Explorer tuaj.
• Në këtë dosje lokale, do të gjeni një skedar vCard të quajtur "MergedContact", i cili është skedari që përmban të gjitha kontaktet e zgjedhura.

Riparoni të dhënat tuaja të Outlook pas përplasjeve

Meqenëse Outlook është i ndjeshëm ndaj korrupsionit, duhet të kujdeseni mirë për skedarin tuaj PST. Për shembull, duhet të vazhdoni të mbyllni Outlook-in tuaj në mënyrën e duhur. Gjithashtu, sugjerohet që të mos klikoni kurrë lidhje të panjohura ose të shkarkoni bashkëngjitjet e ngulitura në email. Për më tepër, do të kishit më mirë të merrnit një të fuqishëm Riparimi i PST dobi, si p.sh DataNumen Outlook Repair. Me të, edhe nëse skedari juaj Outlook korruptohet, ju prapë mund ta riparoni me lehtësi.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë i korruptuar SQL Server dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com