Ko'pgina foydalanuvchilar Outlook elektron pochtasini yozishda "Kimga" maydonidagi barcha kontakt guruhlarini ommaviy ravishda kengaytirish imkonini beruvchi usulni orzu qiladilar. Shuning uchun, ushbu postda biz siz bilan bunday yondashuvni baham ko'ramiz.
Odatda, "Kimga" maydonida kontakt guruhini kengaytirish uchun siz guruh nomi oldidagi "+" belgisini bosishingiz mumkin. Biroq, bu orqali, agar "To" maydonida ko'plab kontakt guruhlari mavjud bo'lsa va ularning barchasini kengaytirmoqchi bo'lsangiz, bu biroz zerikarli. Shunday qilib, bu erda biz sizga bir marta bosish orqali "Kimga" maydonidagi barcha guruhlarni tezda kengaytirish usulini aytib beramiz.
To'plam "Kimga" maydonidagi barcha kontakt guruhlarini kengaytiring
- Birinchidan, Outlook dasturini ishga tushiring.
- Keyin asosiy Outlook oynasida "Alt + F11" tugmachalarini bosing.
- Keyinchalik siz VBA muharriri ekraniga kirasiz, unda siz foydalanilmagan modulga kirishingiz yoki shunchaki yangisini kiritishingiz kerak bo'ladi.
- Keyinchalik, ushbu modulga quyidagi VBA kodini nusxalang.
Sub ExpandAllContactGroupsInToField()
Dim objMail As Outlook.MailItem
Dim objRecipients As Outlook.Recipients
Dim bContactGroupFound As Boolean
Dim i As Long
'Get the current mail
Set objMail = ActiveInspector.CurrentItem
bContactGroupFound = True
Do While bContactGroupFound = True
Set objRecipients = objMail.Recipients
bContactGroupFound = False
'Expand all contact groups in "To" field
For i = objRecipients.Count To 1 Step -1
If objRecipients(i).Type = olTo Then
If objRecipients(i).AddressEntry.DisplayType <> olUser Then
For n = 1 To objRecipients(i).AddressEntry.Members.Count
If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
Else
objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
bContactGroupFound = True
End If
Next
objRecipients(i).Delete
End If
End If
Next i
objRecipients.ResolveAll
Loop
End Sub
- Shundan so'ng, siz yuqori o'ng burchakdagi xoch belgisini bosish orqali joriy oynadan chiqishingiz mumkin.
- Keyinchalik siz ushbu VBA loyihasini Xabarlar oynasiga Tez kirish asboblar paneliga qo'shishingiz kerak.
- Birinchidan, yangi pochta yarating.
- Keyin yuqori chap burchakdagi pastga o'qni bosing.
- Keyin "Qo'shimcha buyruqlar" ni tanlang.
- Yangi muloqot oynasida siz Tezkor kirish asboblar paneliga makro qo'shishni yakunlash uchun quyidagi rasmda ko'rsatilgan amallarni bajarishingiz mumkin.
- Nihoyat, siz suratga olishingiz mumkin:
- Boshlash uchun odatdagidek yangi elektron pochta xabarini yarating va yozing.
- Keyin "Kimga" maydoniga bir nechta kontakt guruhlarini qo'shing.
- Shundan so'ng siz Tez kirish asboblar panelidagi so'l tugmani bosishingiz mumkin.
- Birdaniga barcha kontakt guruhlari quyidagi rasmdagi kabi kengaytiriladi:
Outlook ma'lumotlaringizni o'z vaqtida qutqaring
Umuman olganda, Outlook-da har qanday muammoga duch kelganingizdan so'ng, birinchi navbatda sizning e'tiboringizga kirish qutisini tuzatish vositasi paydo bo'ladi. Biroq, ko'pincha, bu hech qanday ta'sir ko'rsatmaydi. Bunday paytlarda yana kuchli va ishonchli yordamchi dasturga murojaat qilish tavsiya etiladi, masalan DataNumen Outlook Repair. U qila oladi PST ni tuzatish PST faylingiz qanchalik shikastlanganidan qat'i nazar, faylni bir zumda o'chiring.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql-ni tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com