Outlook VBA yordamida elektron pochtani qabul qiluvchilar ro'yxatidan qanday qilib tezda kontakt guruhini yaratish mumkin

Ba'zida siz ko'p qabul qiluvchilar bilan elektron pochta xabarini yuborganingizda yoki olganingizda, siz ushbu qabul qiluvchilar uchun aloqa guruhini yaratishni xohlashingiz mumkin. Ushbu maqola Outlook VBA bilan buni amalga oshirishning tezkor usulini taqdim etadi.

Oldingi maqolamizda "Qabul qiluvchilar ro'yxatidan qanday qilib kontakt guruhini yaratish kerak”, biz elektron pochta qabul qiluvchilari uchun aloqa guruhini yaratishning umumiy usulini o'rgandik. Ya'ni, birinchi navbatda, elektron pochta xabarlaridan qabul qiluvchilarni tanlang va nusxa oling, so'ngra qo'lda kontakt guruhini yarating va qabul qiluvchilarni "A'zolar ->" maydoniga qo'ying. Shubhasiz, bu vosita juda og'ir. Shuning uchun, bu erda biz yangi kontakt guruhiga tezda erishish uchun Outlook VBA-dan foydalanadigan yana bir yondashuvni taqdim etamiz. Siz takroriy nusxa ko'chirish va joylashtirishni talab qilmasdan shunchaki tugmani bosishingiz mumkin. Murakkab qadamlar va VBA kodlarini olish uchun o'qing.

Elektron pochtani qabul qiluvchilar ro'yxatidan kontakt guruhini yarating

1. Boshlash uchun Outlook-da "Dasturchi" yorlig'iga o'tishingiz kerak.
2. Keyin ushbu yorliq ostida siz "Visual Basic" tugmachasini topishingiz va bosishingiz mumkin.
3. Shundan so'ng, yangi "Microsoft Visual Basic for Applications" oynasi ochiladi. Endi siz "Qo'shish" > "Modul" tugmasini bosish orqali yangi modulni ochishingiz kerak.
4. Yangi modul oynasida siz quyidagi kodlarni nusxalashingiz va unga joylashtirishingiz mumkin.

Sub createcontactgroupforrecipients()
    Dim obApp As Application
    Dim olSel As Selection
    Dim obj As Object
    Dim oMail As MailItem
    Dim tempMail As MailItem
    Dim Recips As Recipients
    Dim ConGroup As DistListItem
    Dim strName As String
 
    Set obApp = Outlook.Application
    Set olSel = obApp.ActiveExplorer.Selection
 
    For Each obj In olSel
        If obj.Class = olMail Then
           Set oMail = obj
           Set tempMail = oMail.ReplyAll
           Set Recips = tempMail.Recipients
           Set ConGroup = obApp.CreateItem(olDistributionListItem)
           strName = InputBox("Specify a name for the new contact group:")
           With ConGroup
                .AddMembers Recips
                .DLName = strName
                'Use ".Save" to directly save the new contact group
                .Display
           End With
           tempMail.Close olDiscard
        End If
     Next
End Sub

5. Keyinchalik siz joriy "Visual Basic" oynasidan chiqishingiz va tez kirish asboblar paneliga yangi makrosni qo'shishni davom ettirishingiz mumkin. Tez kirish asboblar panelidagi pastga o'qni bosing va uning ochiladigan ro'yxatidan "Qo'shimcha buyruqlar" ni tanlang.
6. Keyinchalik, siz "Outlook Options" oynasiga kirasiz. Ushbu bosqichda siz quyidagi amallarni bajarishingiz kerak:

• Birinchidan, "Buyruqlarni tanlang" ni "Makrolar" ga o'rnating.
• Keyin avval qo'shilgan makroni qidirib toping.
• Keyin markazdagi "Qo'shish" tugmasini bosing.
• Oxirida "OK" tugmasini bosing.

7. Shundan so'ng, siz Outlook pochta paneliga qaytishingiz va sinab ko'rishingiz mumkin.

• Avvaliga istalgan pochta papkasida bitta xatni yozishingiz mumkin.
• Keyin quyidagi rasmdagi kabi Tezkor kirish asboblar panelidagi tugmani bosing:
• Va keyin siz yangi kontakt guruhi uchun nom ko'rsatishingizni talab qiladigan xabar oynasini olasiz.
• Keyinchalik "OK" tugmasini bosing. Bir vaqtning o'zida barcha tanlangan elektron pochta qabul qiluvchilarini o'z ichiga olgan yangi kontaktlar guruhi ochiladi. Uni saqlash uchun "Saqlash va yopish" tugmasini bosishingiz mumkin.

Outlook ma'lumotlarini himoya qilishda bo'lishi kerak

Outlook zaif bo'lganligi sababli, ularning Outlook ma'lumotlarini himoya qilish uchun etarlicha ehtiyot choralarini ko'rishingiz kerak. Birinchidan, siz muntazam Outlook ma'lumotlarining zaxira nusxasini yaratishingiz kerak. Bundan tashqari, o'rnatilgan ta'mirlash vositasi Scanpst.exe faylini qanday topish va ishga tushirishni bilishingiz kerak. Oxirgi, ammo muhim bo'lmagan zarurat - bu yulduz tashqi buzilgan Outlook ma'lumotlarini tiklash vositasi, kabi DataNumen Outlook Repair, agar zaxira va Scanpst.exe ikkalasi ham muvaffaqiyatsiz bo'lsa, sizga yordam beradi.

Muallif kirish:

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