Outlook-da bütün üzvləri bir əlaqə qrupundan digərinə köçürmək üçün 2 üsul

Bu məqalə bütün üzvləri bir əlaqə qrupundan digərinə köçürmək üçün 2 yanaşma təqdim edəcək. İstəyinizə uyğun olaraq seçim edə bilərsiniz.

Bir çox istifadəçi ümid edir ki, Outlook üzvləri bir əlaqə qrupundan digərinə köçürmək üçün sürətli vasitələr təqdim edə bilər. Üzvləri bir-bir əl ilə əlavə etmək problemindən xilas olmaq üçün onlara kömək edə bilər. İndi, aşağıda, 2 yolu paylaşacağıq. Birincisi, Outlook yerli xüsusiyyətindən istifadə edərək həll yoludur. Və sonuncusu VBA kodundan istifadə etdiyinə görə daha ağıllıdır.

Metod 1: Üzvləri əl ilə kopyalayın və yapışdırın

1. Əvvəlcə Outlook proqramınızı başladın.
2. Bundan sonra, siz müəyyən bir əlaqə qrupunu tapmalı və yerləşdirməli olduğunuz Kontaktlar sahəsinə daxil ola bilərsiniz.
3. Sonra, "Ev" sekmesinin altındakı "Ünsiyyət" qrupunda "E-poçt" düyməsini klikləyə bilərsiniz.
4. Bundan sonra, qrupu genişləndirmək üçün "Kimə" sahəsində qrupun qarşısındakı "+" işarəsini vurmalı olduğunuz yeni e-poçt görünəcək.
5. Daha sonra “Kimə” sahəsində genişləndikdən sonra bütün üzvlərin e-poçt ünvanlarını kopyalayın.
6. Sonra, Kontaktlar qovluğuna qayıdın və üzvləri kopyalamaq istədiyiniz əlaqə qrupunu tapın və açın.
7. Hədəf Əlaqə Qrupu pəncərəsində "Üzvlər əlavə et" > "Ünvan Kitabından" düyməsini basın.
8. Sonra, açılan informasiya qutusunda “Ctrl + V” düymələrini sıxaraq kopyalanan üzvləri “Üzvlər->” sahəsinə yapışdırın.
9. Nəhayət, dəyişiklikləri saxlamaq üçün "OK" və "Saxla və Bağla" düyməsini basın.

Metod 2: Üzvləri VBA vasitəsilə bir əlaqə qrupundan digərinə köçürün

1. Əvvəlcə əsas Outlook pəncərəsində "Alt + F11" düymələrini basın.
2. Sonrakı “Proqramlar üçün Microsoft Visual Basic” pəncərəsində aşağıdakı VBA kodunu istifadə olunmamış modula köçürün.

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. Sonra, bu makronu həmişəki kimi Tez Giriş Alətlər Panelinə əlavə edə bilərsiniz.
4. Nəhayət, cəhd edə bilərsiniz.

• Başlamaq üçün mənbə əlaqə qrupunu seçin və ya açın.
• Sonra Tez Giriş Alətlər Panelində makro düyməsini basın.
• Daha sonra, hədəf əlaqə qrupunun adını daxil etməyiniz istənəcək.
• Bundan sonra "OK" düyməsini basın. Outlook dərhal hədəf əlaqə qrupunu tapacaq və mənbə qrupunun üzvlərini ona kopyalayacaq.

Zədələnmiş Outlook fayllarını xilas edin

Outlook müxtəlif zərərli amillərə, o cümlədən elektrik kəsilməsi, virus infeksiyası və s. Arzuolunmaz korrupsiyalardan qorunmaq üçün adi Outlook ehtiyat nüsxəsini çıxarmaqdan başqa seçimimiz yoxdur. Bundan əlavə, güclü PST təmir alətini quraşdırmaq məsləhətdir, məsələn DataNumen Outlook Repair. Bu skan edə bilər və təmir PST faylı yüksək bərpa sürətində.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql bərpa və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com