Outlook дээрх бүх гишүүдийг нэг холбоо барих бүлгээс нөгөө рүү хуулах 2 арга

Энэ нийтлэлд бүх гишүүдийг нэг холбоо барих бүлгээс нөгөө рүү хуулах 2 аргыг танилцуулах болно. Та өөрийн хэрэгцээнд нийцүүлэн аль нэгийг нь сонгож болно.

Олон хэрэглэгчид Outlook нь гишүүдийг нэг холбоо барих бүлгээс нөгөө рүү хуулах хурдан арга хэрэгсэл өгч чадна гэж найдаж байна. Энэ нь гишүүдийг нэг нэгээр нь гараар нэмэх бэрхшээлээс ангижрахад тусална. Одоо бид дараах 2 аргыг хуваалцах болно. Эхнийх нь Outlook-ийн үндсэн функцийг ашиглан шийдвэрлэх арга юм. Сүүлийнх нь VBA кодыг ашигладаг тул илүү ухаалаг байдаг.

Арга 1: Гишүүдийг гараар хуулж буулгана уу

1. Эхлээд Outlook програмаа эхлүүлнэ үү.
2. Дараа нь та тодорхой харилцагчийн бүлгийг олж, санал болгох шаардлагатай Харилцах хэсэгт хандах боломжтой.
3. Дараа нь та "Нүүр хуудас" хэсэгт байрлах "Харилцах" бүлгийн "И-мэйл" товчийг дарж болно.
4. Үүний дараа шинэ имэйл гарч ирэх бөгөөд та бүлгийг өргөжүүлэхийн тулд "To" талбар дахь бүлгийн урд байрлах "+" дүрс дээр дарах хэрэгтэй.
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. Дараа нь та энэ макрог ердийнхөөрөө Quick Access Toolbar-д нэмж болно.
4. Эцэст нь та хичээгээд үзээрэй.

• Эхлэхийн тулд эх сурвалжийн холбоо барих бүлгийг сонгох эсвэл нээнэ үү.
• Дараа нь Quick Access Toolbar дээрх макро товчийг дарна уу.
• Дараа нь танаас зорилтот холбоо барих бүлгийн нэрийг оруулахыг хүсэх болно.
• Үүний дараа "OK" товчийг дарна уу. Outlook нь зорилтот холбоо барих бүлгийг нэн даруй олж, эх сурвалжийн бүлгийн гишүүдийг түүн рүү хуулах болно.

Гэмтсэн Outlook файлуудыг аврах

Outlook нь цахилгаан тасрах, вирусын халдвар гэх мэт янз бүрийн хортой хүчин зүйлүүдэд өртөмтгий байдаг. Хүсээгүй авлигаас урьдчилан сэргийлэхийн тулд бид Outlook дээр тогтмол нөөцлөлт хийхээс өөр аргагүй болсон. Үүнээс гадна, PST гэх мэт хүчирхэг засварын хэрэгслийг суулгахыг зөвлөж байна DataNumen Outlook Repair. Энэ нь скан хийх боломжтой засварын газар файлыг сэргээх өндөр хурдтай.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql сэргээх програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com