บทความนี้จะแนะนำ 2 วิธีในการคัดลอกสมาชิกทั้งหมดจากกลุ่มที่ติดต่อหนึ่งไปยังอีกกลุ่มหนึ่ง คุณสามารถเลือกตามความต้องการของคุณ
ผู้ใช้หลายคนหวังว่า Outlook สามารถให้วิธีการที่รวดเร็วในการคัดลอกสมาชิกจากกลุ่มที่ติดต่อหนึ่งไปยังอีกกลุ่มหนึ่ง ช่วยให้พวกเขาหลุดพ้นจากปัญหาในการเพิ่มสมาชิกทีละคนด้วยตนเอง ต่อไปนี้เราจะแบ่งปัน 2 วิธี วิธีแรกคือวิธีแก้ปัญหาโดยใช้คุณลักษณะดั้งเดิมของ Outlook และอันหลังนั้นฉลาดกว่ามากเนื่องจากการใช้รหัส VBA
วิธีที่ 1: คัดลอกและวางสมาชิกด้วยตนเอง
- อันดับแรก ให้เปิดโปรแกรม Outlook ของคุณ
- จากนั้น คุณจะสามารถเข้าถึงพื้นที่ติดต่อ ซึ่งคุณต้องค้นหาและเสนอขายกลุ่มผู้ติดต่อเฉพาะ
- ถัดไป คุณสามารถคลิกที่ปุ่ม "อีเมล" ในกลุ่ม "สื่อสาร" ภายใต้แท็บ "หน้าแรก"
- หลังจากนั้น อีเมลใหม่จะปรากฏขึ้น ซึ่งคุณต้องคลิกไอคอน "+" หน้ากลุ่มในช่อง "ถึง" เพื่อขยายกลุ่ม
- หลังจากนั้น ให้คัดลอกที่อยู่อีเมลของสมาชิกทั้งหมดหลังจากขยายในช่อง "ถึง"
- ต่อจากนั้น ให้กลับไปที่โฟลเดอร์ที่ติดต่อและค้นหาและเปิดกลุ่มที่ติดต่อซึ่งคุณต้องการคัดลอกสมาชิกไป
- ในหน้าต่างกลุ่มรายชื่อเป้าหมาย ให้คลิก “เพิ่มสมาชิก” > “จากสมุดที่อยู่”
- จากนั้นในกล่องโต้ตอบป๊อปอัป ให้กด “Ctrl + V” เพื่อวางสมาชิกที่คัดลอกในฟิลด์ “สมาชิก->”
- สุดท้าย คลิกปุ่ม “ตกลง” และ “บันทึกและปิด” เพื่อบันทึกการเปลี่ยนแปลง
วิธีที่ 2: คัดลอกสมาชิกจากกลุ่มที่ติดต่อหนึ่งไปยังอีกกลุ่มหนึ่งผ่าน VBA
- ก่อนอื่น ในหน้าต่าง Outlook หลัก ให้กดปุ่ม “Alt + F11”
- ในหน้าต่าง "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
- จากนั้น คุณสามารถเพิ่มแมโครนี้ไปยัง Quick Access Toolbar ได้ตามปกติ
- สุดท้ายคุณสามารถลอง
- ในการเริ่มต้น ให้เลือกหรือเปิดกลุ่มผู้ติดต่อต้นทาง
- จากนั้นคลิกปุ่มมาโครในแถบเครื่องมือด่วน
- ต่อมา คุณจะถูกขอให้ป้อนชื่อของกลุ่มเป้าหมาย
- หลังจากนั้น ให้กด “ตกลง” Outlook จะค้นหากลุ่มผู้ติดต่อเป้าหมายและคัดลอกสมาชิกจากกลุ่มต้นทางไปยังกลุ่มนั้นทันที
ช่วยเหลือไฟล์ Outlook ที่เสียหาย
Outlook ไวต่อปัจจัยที่เป็นอันตรายต่างๆ รวมถึงไฟดับ การติดไวรัส และอื่นๆ เพื่อป้องกันความเสียหายที่ไม่พึงประสงค์ เราไม่มีทางเลือกอื่นนอกจากทำการสำรองข้อมูล Outlook เป็นประจำ นอกจากนี้ ขอแนะนำให้ติดตั้งเครื่องมือซ่อมแซม PST ที่มีศักยภาพ เช่น DataNumen Outlook Repair. สามารถสแกนและ ซ่อม PST ไฟล์ในอัตราการกู้คืนสูง
บทนำผู้เขียน:
Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ การกู้คืน sql และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.