Agar siz bir nechta Outlook kontaktlarini vCard fayllari sifatida ommaviy ravishda eksport qilmoqchi bo'lsangiz, ushbu maqolada keltirilgan ikkita vositadan foydalanishingiz mumkin.
Hech shubha yo'qki, Outlook kontaktini vCard fayli sifatida eksport qilish juda oson. Siz shunchaki kontaktni tanlashingiz va keyin "Fayl" menyusiga o'tishingiz va "Boshqa saqlash" tugmasini bosishingiz mumkin. Qalqib chiquvchi "Boshqa saqlash" dialog oynasida sukut bo'yicha "vCard File" turi opsiyasi mavjud. Ammo, agar siz bir nechta kontaktlarni tanlasangiz va "Boshqa saqlash" dan foydalansangiz, faqat "Matn fayli" opsiyasi mavjud. Shunday qilib, agar siz ko'plab kontaktlarni alohida vCard fayllari sifatida ommaviy eksport qilishni xohlasangiz, boshqa vositalarni izlashingiz kerak. Bu erda biz sizni ikkita usul bilan tanishtiramiz.

1-usul: Kontaktlarni tashrif qog'ozi sifatida yo'naltirish
- Boshlash uchun Outlook ilovangizni ishga tushiring.
- Keyin "Kontaktlar" paneliga o'ting va to'g'ri Kontaktlar jildini oching.
- Keyin vCard fayllari sifatida eksport qilmoqchi bo'lgan kontaktlarni tanlang.
- Keyinchalik, "Kontaktni yo'naltirish"> "Vizitka sifatida" ni tanlang.
- Shundan so'ng, barcha tanlangan kontaktlar biriktirilgan yangi xabar paydo bo'ladi.
- Endi siz "Birikish" qatorida barcha biriktirilgan tashrif qog'ozlarini tanlashingiz kerak.
- Keyinchalik siz ularni quyidagi rasmdagi kabi mahalliy diskka sudrab tashlashingiz mumkin:
- Bir vaqtning o'zida siz mahalliy diskda alohida vCard fayllarini olasiz.
2-usul: Outlook VBA bilan vCard sifatida ommaviy eksport qilish
- Birinchidan, asosiy Outlook oynasida "Alt + F11" tugmachalarini bosing.
- Keyin siz Outlook VBA muharririga kirish huquqiga ega bo'lasiz.
- Keyin quyidagi VBA kodlarini ishlatilmaydigan modulga nusxalashingiz kerak.
Sub ExportMultipleContactsAsVCards()
Dim objSelection As Outlook.Selection
Dim objContact As Outlook.ContactItem
Dim objItem As Object
Set objSelection = Outlook.Application.ActiveExplorer.Selection
'If want to export all contacts, use the following lines instead
'Dim olContacts as Outlook.Items
'Set olContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
'For Each objItem In olContacts
For Each objItem In objSelection
If TypeOf objItem Is ContactItem Then
Set objContact = objItem
'Change the predefined local folder for saving the vCards
objContact.SaveAs "E:\" & objContact.FullName & ".vcf", olVCard
End If
Next
End Sub
- Keyinchalik, qulaylik uchun siz tez kirish asboblar paneliga yangi VBA loyihasini qo'shishingiz mumkin.
- Bundan tashqari, Outlook makroslarga ruxsat berishiga ishonch hosil qilishingiz kerak.
- Nihoyat, siz sinab ko'rishingiz mumkin.
- Birinchidan, manba kontaktlarini tanlang.
- Keyin Tez kirish asboblar panelidagi makros tugmasini bosing.
- Makros ishga tushirilgandan so'ng, siz oldindan belgilangan mahalliy papkada tegishli vCard fayllarini topishingiz mumkin bo'ladi.
Vaxing PST muammolarini yo'q qiling
Agar siz Outlook-dan o'nlab yillar davomida foydalansangiz, PST bilan bog'liq muammolar kabi turli xil muammolarga duch kelgan bo'lishingiz kerak. Bunday holda, odatdagidek, siz birinchi navbatda takrorlashingiz mumkin pochta qutisini tuzatish vositasi. Agar u muvaffaqiyatsiz bo'lsa, siz tajribaliroq vositaga murojaat qilishingiz mumkin, masalan DataNumen Outlook Repair.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf ni tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com


