Барлық мүшелерді Outlook бағдарламасында бір контакт тобынан екіншісіне көшіру әдістері

Бұл мақалада барлық мүшелерді бір байланыс тобынан екіншісіне көшірудің екі тәсілі ұсынылады. Сіз өзіңіздің қажеттіліктеріңізге сәйкес таңдай аласыз.

Көптеген пайдаланушылар Outlook мүшелерді бір байланыс тобынан екіншісіне көшірудің жылдам құралы бола алады деп үміттенеді. Бұл оларға мүшелерді бір-бірлеп қосу қиындықтарынан құтылуға көмектеседі. Енді, төменде біз 2 тәсілмен бөлісетін боламыз. Біріншісі - бұл Outlook-тың жергілікті мүмкіндігінің көмегімен уақытша шешім. Соңғысы VBA кодын қолданудың арқасында әлдеқайда ақылды.

1-әдіс: Мүшелерді қолмен көшіру және қою

1. Ең алдымен, Outlook бағдарламаңызды іске қосыңыз.
2. Содан кейін сіз белгілі бір байланыс тобын табуыңыз керек және контактілер аймағына кіре аласыз.
3. Әрі қарай, «Үй» қойындысының астындағы «Хабарласу» тобындағы «Электрондық пошта» батырмасын басуға болады.
4. Осыдан кейін жаңа электрондық пошта пайда болады, онда топты кеңейту үшін «Кімге» өрісінде топтың алдындағы «+» белгішесін басу керек.
5. Кейін, «Кімге» өрісіне шыққаннан кейін барлық мүшелердің электрондық пошта мекен-жайларын көшіріңіз.
6. Содан кейін, «Байланыс» қалтасына оралыңыз және мүшелерді көшіргіңіз келетін байланыс тобын тауып ашыңыз.
7. Мақсатты байланыс тобы терезесінде «Мүшелерді қосу» > «Мекенжай кітабынан» түймесін басыңыз.
8. Содан кейін, қалқымалы диалог терезесінде «Мүшелер->» өрісіне көшірілген мүшелерді қою үшін «Ctrl + V» пернелерін басыңыз.
9. Соңында, өзгертулерді сақтау үшін «OK» және «Save & Close» батырмасын басыңыз.

2-әдіс: мүшелерді бір контакт тобынан екіншісіне VBA арқылы көшіру

1. Алдымен, негізгі Outlook терезесінде «Alt + F11» батырмаларын басыңыз.
2. Келесі «Бағдарламаларға арналған Microsoft Visual Basic» терезесінде келесі VBA кодын пайдаланылмаған модульге көшіріңіз.

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. Содан кейін, бұл макросты әдеттегідей Жылдам қатынау құралдар тақтасына қосуға болады.
4. Соңында, сіз көріңіз.

• Бастау үшін контактілер тобын таңдаңыз немесе ашыңыз.
• Содан кейін жылдам қол жеткізу құралдар тақтасындағы макро батырманы басыңыз.
• Кейінірек сізден мақсатты байланыс тобының атын енгізу сұралады.
• Осыдан кейін «OK» түймесін басыңыз. Outlook бірден мақсатты контактілер тобын тауып, бастапқы топ мүшелерін оған көшіреді.

Зақымдалған Outlook файлдарын құтқару

Перспектива әртүрлі зиянды факторларға, соның ішінде электр қуатының өшуіне, вирус жұқтыруға және т.б. Қажет емес сыбайлас жемқорлықтан сақтану үшін бізде әдеттегі Outlook сақтық көшірмесін жасаудан басқа таңдау жоқ. Сонымен қатар, қуатты PST жөндеу құралын орнатқан жөн, мысалы DataNumen Outlook Repair. Ол сканерлей алады және жөндеу PST қалпына келтіру жылдамдығы жоғары файл.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. SQL қалпына келтіру және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com