2 Kaedah untuk Menyalin Semua Anggota dari Satu Kumpulan Kenalan ke Yang Lain di Outlook

Artikel ini akan memperkenalkan 2 pendekatan untuk menyalin semua ahli dari satu kumpulan kenalan ke yang lain. Anda boleh memilih sama ada mengikut keperluan anda.

Ramai pengguna berharap Outlook dapat menyediakan cara cepat untuk menyalin anggota dari satu kumpulan kenalan ke kumpulan yang lain. Ini dapat membantu mereka melepaskan diri dari masalah menambahkan ahli satu persatu secara manual. Berikut ini, kami akan berkongsi 2 cara. Yang pertama adalah penyelesaian, menggunakan ciri asli Outlook. Dan yang terakhir jauh lebih pintar kerana penggunaan kod VBA.

Kaedah 1: Salin & Tampal Anggota Secara Manual

1. Pertama sekali, mulakan program Outlook anda.
2. Kemudian, anda boleh mengakses kawasan Kenalan, di mana anda perlu mencari dan melayari kumpulan kenalan tertentu.
3. Seterusnya, anda boleh mengklik butang "E-mail" dalam kumpulan "Berkomunikasi" di bawah tab "Laman Utama".
4. Selepas itu, e-mel baru akan dipaparkan, di mana anda perlu mengklik ikon "+" di hadapan kumpulan di medan "Ke" untuk mengembangkan kumpulan.
5. Kemudian, salin alamat e-mel semua ahli setelah meluaskan bidang "Ke".
6. Selepas itu, kembali ke folder Kenalan dan cari dan buka kumpulan kenalan, yang ingin anda salin ahli.
7. Dalam tetingkap Kumpulan Kenalan sasaran, klik “Tambah Ahli” > “Daripada Buku Alamat”.
8. Kemudian, dalam kotak dialog pop timbul, tekan "Ctrl + V" untuk menampal anggota yang disalin di medan "Members->".
9. Terakhir, klik "OK" dan "Simpan & Tutup" untuk menyimpan perubahan.

Kaedah 2: Salin Anggota dari Satu Kumpulan Kenalan ke Yang Lain melalui VBA

1. Pertama, di tetingkap Outlook utama, tekan butang kekunci "Alt + F11".
2. Di tetingkap "Microsoft Visual Basic for Applications" berikutnya, salin kod VBA berikut ke dalam modul yang tidak digunakan.

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. Kemudian, anda boleh menambahkan makro ini ke Bar Alat Akses Pantas seperti biasa.
4. Akhirnya, anda boleh mencuba.

• Sebagai permulaan, pilih atau buka kumpulan kenalan sumber.
• Kemudian klik butang makro di Bar Alat Akses Pantas.
• Kemudian, anda akan diminta untuk memasukkan nama kumpulan kenalan sasaran.
• Selepas itu, tekan “OK”. Outlook akan segera mencari kumpulan kenalan sasaran dan menyalin ahli kumpulan sumber kepadanya.

Menyelamatkan Fail Outlook yang Rosak

Outlook terdedah kepada pelbagai faktor berbahaya, termasuk gangguan bekalan elektrik, jangkitan virus dan sebagainya. Untuk melindungi dari kerosakan yang tidak diingini, kami tidak mempunyai pilihan selain membuat cadangan Outlook biasa. Selain itu, disarankan untuk memasang alat pembaikan PST yang kuat, seperti DataNumen Outlook Repair. Ia boleh mengimbas dan membaiki PST fail dalam kadar pemulihan yang tinggi.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com