2 metodes visu dalībnieku kopēšanai no vienas kontaktpersonu grupas uz citu programmā Outlook

Šajā rakstā tiks iepazīstinātas ar 2 pieejām, kā kopēt visus dalībniekus no vienas kontaktpersonu grupas uz citu. Jūs varat izvēlēties jebkuru atbilstoši savām vajadzībām.

Daudzi lietotāji cer, ka programma Outlook var nodrošināt ātru iespēju kopēt dalībniekus no vienas kontaktpersonu grupas uz citu. Tas var palīdzēt viņiem izvairīties no grūtībām, kas saistītas ar dalībnieku pievienošanu pa vienam manuāli. Tālāk mēs pastāstīsim par diviem veidiem. Pirmais ir risinājums, izmantojot Outlook vietējo līdzekli. Un pēdējais ir daudz gudrāks, jo tiek izmantots VBA kods.

1. metode: kopējiet un ielīmējiet dalībniekus manuāli

1. Pirmkārt, startējiet savu Outlook programmu.
2. Pēc tam varat piekļūt apgabalam Kontaktpersonas, kurā jums ir jāatrod konkrēta kontaktpersonu grupa un jānorāda tai.
3. Pēc tam varat noklikšķināt uz pogas “E-pasts” cilnes “Sākums” grupā “Sazināties”.
4. Pēc tam tiks parādīts jauns e-pasts, kurā jums jānoklikšķina uz ikonas “+” grupas priekšā laukā “Kam”, lai paplašinātu grupu.
5. Vēlāk kopējiet visu dalībnieku e-pasta adreses pēc izvēršanas laukā "Kam".
6. Pēc tam atgriezieties mapē Kontakti un atrodiet un atveriet kontaktu grupu, kurā vēlaties kopēt dalībniekus.
7. Mērķa kontaktgrupas logā noklikšķiniet uz “Pievienot dalībniekus” > “No adrešu grāmatas”.
8. Pēc tam uznirstošajā dialoglodziņā nospiediet "Ctrl + V", lai ielīmētu kopētos dalībniekus laukā "Biedri->".
9. Visbeidzot, noklikšķiniet uz pogas “OK” un “Saglabāt un aizvērt”, lai saglabātu izmaiņas.

2. metode: kopējiet dalībniekus no vienas kontaktpersonu grupas uz citu, izmantojot VBA

1. Vispirms galvenajā Outlook logā nospiediet taustiņu Alt + F11.
2. Nākamajā logā “Microsoft Visual Basic for Applications” kopējiet šo VBA kodu neizmantotā modulī.

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. Pēc tam varat pievienot šo makro ātrās piekļuves rīkjoslai kā parasti.
4. Visbeidzot, jūs varat izmēģināt.

• Lai sāktu, atlasiet vai atveriet avota kontaktpersonu grupu.
• Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz makro pogas.
• Vēlāk jums tiks lūgts ievadīt mērķa kontaktu grupas nosaukumu.
• Pēc tam nospiediet “Labi”. Outlook nekavējoties atradīs mērķa kontaktu grupu un kopēs uz to avota grupas dalībniekus.

Glābiet bojātos Outlook failus

Outlook ir jutīga pret dažādiem ļaunprātīgiem faktoriem, tostarp strāvas padeves pārtraukumiem, vīrusu infekciju un tā tālāk. Lai aizsargātos pret nevēlamiem bojājumiem, mums nav citas izvēles, kā vien izveidot regulāru Outlook dublējumu. Turklāt ir ieteicams uzstādīt spēcīgu PST remonta rīku, piemēram, DataNumen Outlook Repair. Tas var skenēt un remonts PST failu ar augstu atkopšanas ātrumu.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql atgūšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar