2 метода за копиране на всички членове от една група контакти в друга в Outlook

Тази статия ще представи 2 подхода за копиране на всички членове от една група за контакти в друга. Можете да изберете или според вашите нужди.

Много потребители се надяват, че 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 for Applications“ копирайте следния 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 е податлив на различни зловредни фактори, включително прекъсване на електрозахранването, вирусна инфекция и т.н. За да се предпазим от нежелани корупции, нямаме друг избор освен да направим редовно архивиране на Outlook. Освен това е препоръчително да инсталирате мощен инструмент за ремонт на PST, като например DataNumen Outlook Repair. Той може да сканира и ремонт PST файл с висока скорост на възстановяване.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql възстановяване и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com