Outlook-ში ყველა წევრის ერთი საკონტაქტო ჯგუფიდან მეორეში კოპირების 2 მეთოდი

Outlook Solutions სექტემბერი 29, 2025

ეს სტატია შემოგთავაზებთ 2 მიდგომას, რათა დააკოპიროთ ყველა წევრი ერთი საკონტაქტო ჯგუფიდან მეორეში. თქვენ შეგიძლიათ აირჩიოთ რომელიმე თქვენი საჭიროების მიხედვით.

ბევრი მომხმარებელი იმედოვნებს, რომ Outlook-ს შეუძლია უზრუნველყოს წევრების ერთი საკონტაქტო ჯგუფიდან მეორეში კოპირების სწრაფი საშუალება. მას შეუძლია დაეხმაროს მათ თავი დააღწიონ წევრების ხელით სათითაოდ დამატების პრობლემას. ახლა, შემდეგში, ჩვენ გაგიზიარებთ 2 გზას. პირველი არის გამოსავალი, Outlook-ის მშობლიური ფუნქციის გამოყენებით. და ეს უკანასკნელი ბევრად უფრო ჭკვიანია VBA კოდის გამოყენების გამო.

მეთოდი 1: დააკოპირეთ და ჩასვით წევრები ხელით

პირველ რიგში, გაუშვით თქვენი Outlook პროგრამა.
შემდეგ, თქვენ შეგიძლიათ შეხვიდეთ კონტაქტების ზონაში, რომელშიც უნდა იპოვოთ და დააყენოთ კონკრეტული საკონტაქტო ჯგუფი.
შემდეგი, შეგიძლიათ დააჭიროთ ღილაკს "ელ.ფოსტა" ჯგუფში "კომუნიკაცია" ჩანართში "მთავარი".
ამის შემდეგ გამოჩნდება ახალი ელფოსტა, რომელშიც უნდა დააჭიროთ „+“ ხატულას ჯგუფის წინ ველში „To“ ჯგუფის გასაფართოებლად.
მოგვიანებით, დააკოპირეთ ყველა წევრის ელ. ფოსტის მისამართი „To“ ველის გაფართოების შემდეგ.
ამის შემდეგ, დაბრუნდით კონტაქტების საქაღალდეში და იპოვნეთ და გახსენით საკონტაქტო ჯგუფი, რომელშიც გსურთ წევრების კოპირება.
სამიზნე საკონტაქტო ჯგუფის ფანჯარაში დააჭირეთ ღილაკს „წევრების დამატება“ > „მისამართების წიგნიდან“.
შემდეგ, ამომხტარ დიალოგურ ფანჯარაში, დააჭირეთ "Ctrl + V", რათა ჩასვათ კოპირებული წევრები ველში "Members->".
და ბოლოს, დააჭირეთ ღილაკს "OK" და "შენახვა და დახურვა" ცვლილებების შესანახად.

მეთოდი 2: დააკოპირეთ წევრები ერთი საკონტაქტო ჯგუფიდან მეორეში VBA-ს საშუალებით

პირველ რიგში, Outlook-ის მთავარ ფანჯარაში დააჭირეთ ღილაკს "Alt + F11".
მომდევნო "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

შემდეგ, თქვენ შეგიძლიათ დაამატოთ ეს მაკრო სწრაფი წვდომის ინსტრუმენტთა პანელში, როგორც ყოველთვის.
საბოლოოდ, შეგიძლიათ სცადოთ.

დასაწყისისთვის აირჩიეთ ან გახსენით წყაროს საკონტაქტო ჯგუფი.
შემდეგ დააჭირეთ მაკრო ღილაკს სწრაფი წვდომის ხელსაწყოთა ზოლში.
მოგვიანებით, თქვენ მოგეთხოვებათ სამიზნე საკონტაქტო ჯგუფის სახელის შეყვანა.
ამის შემდეგ, დააჭირეთ ღილაკს „OK“. Outlook მყისიერად იპოვის სამიზნე კონტაქტების ჯგუფს და დააკოპირებს წყაროს ჯგუფის წევრებს მასში.

დაზიანებული Outlook ფაილების გადარჩენა

Outlook მგრძნობიარეა სხვადასხვა მავნე ფაქტორების მიმართ, მათ შორის ელექტროენერგიის გათიშვა, ვირუსული ინფექცია და ა.შ. არასასურველი კორუფციისგან თავის დასაცავად, ჩვენ სხვა არჩევანი არ გვაქვს გარდა იმისა, რომ გავაკეთოთ რეგულარული Outlook-ის სარეზერვო ასლი. გარდა ამისა, მიზანშეწონილია დააინსტალიროთ ძლიერი PST სარემონტო ხელსაწყო, როგორიცაა DataNumen Outlook Repair. მას შეუძლია სკანირება და PST შეკეთება ფაილი აღდგენის მაღალი სიჩქარით.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის sql აღდგენა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად