Ինչպես արագ արտահանել բազմաթիվ կապեր մեկ VCard ֆայլի հետ Outlook VBA- ով

Եթե ​​ձեր Outlook- ում ունեք մի քանի կոնտակտ և ցանկանում եք դրանք արտահանել մեկ vCard ֆայլ, առանձին ֆայլերի փոխարեն, կարող եք օգտագործել սույն հոդվածում ներկայացված խելացի մեթոդը:

Օրինակ, դուք պետք է հարյուրավոր կապեր ուղարկեք մեկ ուրիշի: Փոխանակ դրանք որպես առանձին vCard ֆայլեր ուղարկելու, դուք միգուցե ցանկանաք դրանք համատեղել մեկ vCard ֆայլի մեջ, ապա ուղարկել այն: Իրականում, իմ նախորդ հոդվածը ՝ «Ինչպես արտահանել բազմաթիվ Outlook կոնտակտներ `որպես մեկ VCard ֆայլ”Մեթոդ է ներկայացրել: Այնուամենայնիվ, այդ մոտեցումը պահանջում է, որ դուք ունենաք Gmail հաշիվ և օգտագործեք Gmail- ի «Ներմուծում և արտահանում» հատկությունը: Մի խոսքով, դա բավականին բարդ է: Հետեւաբար, այստեղ մենք ձեզ կներկայացնենք ավելի հարմար մեթոդ:

Արագորեն արտահանեք բազմաթիվ կապեր մեկ vCard ֆայլ

1. Նախ, գործարկեք ձեր Outlook ծրագիրը:
2. Դրանից հետո հպեք «Alt + F11» ստեղներին ՝ VBA խմբագիր մուտք գործելու համար:
3. Հաջորդը, նոր պատուհանում, VBA կոդը տեղադրեք մոդուլի մեջ:

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. Դրանից հետո այս մակրոը ավելացրեք Արագ մուտքի գործիքագոտում ՝ հղում կատարելով «Ինչպես գործարկել VBA կոդը ձեր Outlook- ում".
5. Ի վերջո, հիմա կարող եք փորձել այս մակրոը:

• Սկսելու համար ընտրեք այն կոնտակտները, որոնք ցանկանում եք արտահանել։
• Դրանից հետո կտտացրեք մակրո կոճակին Արագ մուտքի Գործիքադարակում:
• Ավելի ուշ կտեսնեք հրամանի տողի պատուհան, որը ցույց է տալիս, որ բոլոր կոնտակտները միավորվել են մեկում:
• Այժմ կարող եք անցնել ձեր Windows Explorer- ի «E: \ Temp Contact» պանակ:
• Այս տեղական թղթապանակում դուք կգտնեք vCard ֆայլ, որը կոչվում է «MergedContact», որն այն ֆայլն է, որը պարունակում է բոլոր ընտրված կոնտակտները:

Վերականգնեք ձեր Outlook- ի տվյալները վթարներից հետո

Քանի որ Outlook- ը ենթակա է կոռուպցիայի, դուք պետք է լավ հոգ տանեք ձեր PST ֆայլը: Օրինակ, դուք պետք է շարունակեք պատշաճ կերպով փակել ձեր Outlook- ը: Նաև առաջարկվում է երբեք չկտտացնել անհայտ հղումները կամ ներբեռնել էլ. Փոստով ներկառուցված հավելվածները: Ավելին, ավելի լավ է գրավել մի հզորի PST- ի նորոգում օգտակար, ինչպիսիք են DataNumen Outlook Repair, Դրանով, նույնիսկ եթե ձեր Outlook ֆայլը փչանա, միևնույն է, այն կարող եք հեշտությամբ վերականգնել:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում կոռումպացված SQL Server և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com