Outlook VBA yordamida bir nechta kontaktlarni bitta VCard fayliga qanday tezda eksport qilish mumkin

Agar Outlook-da bir nechta kontaktlaringiz bo'lsa va ularni alohida fayllar o'rniga bitta vCard fayliga eksport qilmoqchi bo'lsangiz, ushbu maqolada keltirilgan aqlli usuldan foydalanishingiz mumkin.

Masalan, yuzlab kontaktlarni boshqasiga yuborishingiz kerak. Ularni alohida vCard fayllari sifatida yuborish o'rniga, ularni bitta vCard fayliga birlashtirib, keyin jo'natishni xohlashingiz mumkin. Aslida, mening oldingi maqolam - "Bir nechta Outlook kontaktlarini bitta VCard fayli sifatida qanday eksport qilish mumkin” usulini joriy qildi. Biroq, bu yondashuv sizdan Gmail hisobiga ega bo'lishingizni va Gmail-ning "Import va eksport" funksiyasidan foydalanishingizni talab qiladi. Bir so'z bilan aytganda, bu juda og'ir. Shuning uchun, bu erda biz sizga qulayroq usulni taqdim etamiz.

Bir nechta kontaktlarni bitta vCard fayliga tezda eksport qiling

1. Birinchidan, Outlook dasturini ishga tushiring.
2. Keyin VBA muharririga kirish uchun “Alt + F11” tugmachalarini bosing.
3. Keyin, yangi oynada VBA kodini modulga qo'ying.

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. Shundan so'ng, ushbu makrosni "Tez kirish asboblar paneli" ga havola bilan qo'shing.Outlook-da VBA kodini qanday ishlatish kerak".
5. Oxir-oqibat, siz hozir ushbu makroni sinab ko'rishingiz mumkin.

• Boshlash uchun, eksport qilmoqchi bo'lgan kontaktlarni tanlang.
• Keyin, Tez kirish asboblar panelidagi makros tugmasini bosing.
• Keyinchalik siz buyruq satri oynasini ko'rasiz, bu barcha kontaktlar bittaga birlashtirilganligini ko'rsatadi.
• Endi siz Windows Explorer-dagi “E:\Temp Contacts” jildiga o'tishingiz mumkin.
• Ushbu mahalliy papkada siz "MergedContact" deb nomlangan vCard faylini topasiz, bu barcha tanlangan kontaktlarni o'z ichiga olgan fayl.

Buzilishlardan keyin Outlook ma'lumotlaringizni tiklang

Outlook korruptsiyaga moyil bo'lgani uchun siz PST faylingizga yaxshi g'amxo'rlik qilishingiz kerak. Misol uchun, siz Outlook-ni to'g'ri tarzda yopishingiz kerak. Bundan tashqari, hech qachon noma'lum havolalarni bosmaslik yoki elektron pochtaga o'rnatilgan qo'shimchalarni yuklab olish tavsiya etiladi. Bundan tashqari, siz kuchliroqni qo'lga olganingiz ma'qul PST ta'mirlash kabi yordamchi dastur DataNumen Outlook Repair. Uning yordamida Outlook faylingiz buzilgan bo'lsa ham, uni osonlikcha tuzatishingiz mumkin.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan SQL Server va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com