Outlook-da barcha a'zolarni bitta kontakt guruhidan boshqasiga nusxalashning 2 usuli

Ushbu maqola barcha a'zolarni bitta kontakt guruhidan boshqasiga ko'chirishning 2 ta yondashuvini taqdim etadi. Siz o'zingizning ehtiyojlaringizga qarab tanlashingiz mumkin.

Ko'pgina foydalanuvchilar Outlook a'zolarni bir kontakt guruhidan boshqasiga ko'chirish uchun tezkor vositalarni taqdim etishiga umid qilishadi. Bu ularga a'zolarni qo'lda birma-bir qo'shish muammosidan xalos bo'lishga yordam beradi. Endi biz quyidagi ikkita usulni baham ko'ramiz. Birinchisi, Outlook mahalliy xususiyatidan foydalangan holda vaqtinchalik hal qilishdir. Va ikkinchisi VBA kodidan foydalanganligi sababli ancha aqlli.

1-usul: A'zolarni qo'lda nusxalash va joylashtirish

1. Avvalo, Outlook dasturingizni ishga tushiring.
2. Shundan so'ng, siz ma'lum bir kontakt guruhini aniqlashingiz va o'rnatishingiz kerak bo'lgan "Kontaktlar" maydoniga kirishingiz mumkin.
3. Keyinchalik, "Uy" yorlig'i ostidagi "Muloqot" guruhidagi "E-mail" tugmasini bosishingiz mumkin.
4. Shundan so'ng, yangi elektron pochta xabari ko'rsatiladi, unda siz guruhni kengaytirish uchun "Kimga" maydonidagi guruh oldidagi "+" belgisini bosishingiz kerak.
5. Keyinchalik, "Kimga" maydonini kengaytirgandan so'ng, barcha a'zolarning elektron pochta manzillarini ko'chiring.
6. Keyinchalik, "Kontaktlar" jildiga qayting va a'zolarni ko'chirmoqchi bo'lgan kontakt guruhini toping va oching.
7. Maqsadli Kontaktlar Guruhi oynasida “A'zolarni Qo'shish” > “Manzillar Kitobidan” tugmasini bosing.
8. Keyin, ochilgan dialog oynasida, nusxalangan a'zolarni "A'zolar->" maydoniga joylashtirish uchun "Ctrl + V" tugmalarini bosing.
9. Nihoyat, o'zgarishlarni saqlash uchun "OK" va "Saqlash va yopish" tugmasini bosing.

2-usul: A'zolarni bir kontakt guruhidan boshqasiga VBA orqali nusxalash

1. Birinchidan, asosiy Outlook oynasida "Alt + F11" tugmachalarini bosing.
2. Keyingi "Microsoft Visual Basic for Applications" oynasida quyidagi VBA kodini foydalanilmagan modulga nusxalang.

Sub CopyMembersFromOneContactGroupToAnother()
    Dim objSourceGroup As DistListItem
    Dim strTargetGroupName As String
    Dim objCurrentContactsFolder, objDefaultContactsFolder As Folder
    Dim objTargetGroup As DistListItem
    Dim objGroupMember As recipient
 
    Select Case Application.ActiveWindow.Class
           Case olInspector
                Set objSourceGroup = ActiveInspector.CurrentItem
           Case olExplorer
                Set objSourceGroup = ActiveExplorer.Selection.Item(1)
    End Select
 
    If objSourceGroup.MemberCount > 0 Then
 
       strTargetGroupName = InputBox("Enter the target contact group name:", "Specify Target Contact Group")
 
       Set objCurrentContactsFolder = objSourceGroup.parent
       Set objTargetGroup = objCurrentContactsFolder.Items.Find("[Subject]= " & Chr(34) & strTargetGroupName & Chr(34))
 
       If Not objTargetGroup Is Nothing Then
          For i = objSourceGroup.MemberCount To 1 Step -1
              Set objGroupMember = objSourceGroup.GetMember(i)
              objTargetGroup.AddMember objGroupMember
          Next i
          objTargetGroup.Save
          MsgBox "Copy Successfully!", vbInformation
      Else
          Set objDefaultContactsFolder = Application.Session.GetDefaultFolder(olFolderContacts)
          Set objTargetGroup = objDefaultContactsFolder.Items.Find("[Subject]= " & Chr(34) & strTargetGroupName & Chr(34))
 
          If Not objTargetGroup Is Nothing Then
             For i = objSourceGroup.MemberCount To 1 Step -1
                 Set objGroupMember = objSourceGroup.GetMember(i)
                 objTargetGroup.AddMember objGroupMember
             Next i
             objTargetGroup.Save
             MsgBox "Copy Successfully!", vbInformation
         Else
             MsgBox "There is not a contact group named as" & Chr(34) & strTargetGroupName & Chr(34) & "!", vbExclamation
         End If
      End If
    End If
End Sub

3. Keyin, odatdagidek, ushbu makrosni Tez kirish asboblar paneliga qo'shishingiz mumkin.
4. Nihoyat, siz sinab ko'rishingiz mumkin.

• Boshlash uchun manba kontaktlar guruhini tanlang yoki oching.
• Keyin Tez kirish asboblar panelidagi makros tugmasini bosing.
• Keyinchalik, sizdan maqsadli aloqa guruhining nomini kiritishingiz so'raladi.
• Shundan so'ng, "OK" tugmasini bosing. Outlook darhol maqsadli kontakt guruhini topadi va manba guruhi a'zolarini unga ko'chiradi.

Buzilgan Outlook fayllarini qutqaring

Outlook turli xil zararli omillarga, jumladan, elektr uzilishi, virus infektsiyasi va boshqalarga sezgir. Keraksiz korruptsiyalardan himoya qilish uchun bizda Outlookning muntazam zahira nusxasini yaratishdan boshqa ilojimiz yo'q. Bundan tashqari, kuchli PST ta'mirlash vositasini o'rnatish tavsiya etiladi, masalan DataNumen Outlook Repair. U skanerlashi mumkin va PST-ni ta'mirlash faylni qayta tiklash tezligi yuqori.

Muallif kirish:

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