บ่อยครั้งที่คุณต้องการตอบกลับทั้งหมดรวมถึงตัวคุณเองในฐานะผู้รับด้วยหรือไม่? มันจะยุ่งถ้าคุณเพิ่มที่อยู่อีเมลของคุณเองด้วยตนเอง บทความนี้จะสอนวิธีทำให้อัตโนมัติ
บางทีคุณอาจมีบัญชีอีเมลหลายบัญชีที่กำหนดค่าไว้ใน Outlook ของคุณ ดังนั้นเพื่อความสะดวกในการตรวจสอบในอนาคตเมื่อคุณตอบกลับอีเมลไปยังผู้รับทั้งหมดคุณอาจต้องการรวมที่อยู่อีเมลอื่นของคุณเป็นผู้รับด้วย สมมติว่าคุณมีข้อกำหนดนี้บ่อยครั้งอาจเป็นเรื่องที่น่าเบื่อหากคุณเพิ่มบัญชีอีเมลของคุณเองด้วยตนเองเสมอ ในการตอบสนองต่อปัญหานี้เราจะแนะนำวิธีแก้ปัญหาหนึ่งวิธีและวิธีการด่วนผ่าน Outlook VBA ให้กับคุณที่นี่
วิธีแก้ปัญหา: สร้างกฎ Outlook
- ขั้นแรก ให้เปิดแอปพลิเคชัน Outlook แล้วคลิกปุ่ม “กฎ” ในกลุ่ม “ย้าย” ใต้แท็บ “หน้าแรก” ของอีเมล จากนั้นเลือก “จัดการกฎและการแจ้งเตือน” จากรายการแบบเลื่อนลง
- จากนั้นในหน้าต่างป๊อปอัปให้กดปุ่ม "กฎใหม่"
- จากนั้นเลือก“ ใช้กฎกับข้อความที่ฉันส่ง” แล้วกด“ ถัดไป”
- หลังจากนั้นคุณควรเลือก "ด้วยคำที่เฉพาะเจาะจงในหัวเรื่อง" กดลิงก์ "คำเฉพาะ" จากนั้นเพิ่ม "RE"

- หลังจากเพิ่มแล้วคลิก“ ถัดไป” คุณควรระบุการดำเนินการ เลือก "ส่งข้อความถึงบุคคลหรือกลุ่มสาธารณะ" กดลิงก์ "บุคคลหรือกลุ่มสาธารณะ" แล้วพิมพ์ที่อยู่อีเมลของคุณเองในช่อง "ถึง"
- สุดท้ายคุณสามารถคลิก“ ถัดไป” และเสร็จสิ้นการตั้งค่ากฎตามปกติ
อย่างไรก็ตามวิธีแก้ปัญหานี้จะไม่เพิ่มที่อยู่อีเมลของคุณเองโดยอัตโนมัติเป็นผู้รับรายเดียวในอีเมลตอบกลับ มันจะสร้างอีเมลใหม่อีกฉบับและเพิ่มคุณในช่อง“ CC” แล้วส่งออกไป นอกจากนี้ยังไม่สามารถระบุจำนวนผู้รับและระบุได้ว่าเป็นอีเมลตอบกลับทั้งหมดหรือไม่ เพื่อแก้ไขจุดอ่อนของวิธีแก้ปัญหานี้นี่คือวิธีการจริงผ่าน Outlook VBA
ใช้ VBA เพื่อรวมตัวคุณเองโดยอัตโนมัติเมื่อตอบกลับทั้งหมด
- ขั้นแรก ให้เปิดโปรแกรม Outlook แล้วกดปุ่ม “Alt + F11” พร้อมกัน
- จากนั้นในหน้าต่างป๊อปอัป“ Visual Basic” ให้เปิดโครงการ“ ThisOutlookSession” แล้วคัดลอกและวางรหัส VBA ต่อไปนี้ลงในนั้น
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim Recip As Recipient
Dim MyAddr As String
'Replace with your own email address
MyAddr = "youremailaddress@datanumen.com"
If InStr(Item.Subject, "RE") > 0 Then
If Item.Recipients.Count > 1 Then
If MsgBox("Reply All Including Yourself?", vbYesNo + vbQuestion) = vbYes Then
Set Recip = Item.Recipients.Add(MyAddr)
'To CC, replace "olTo" with "olCC"
'To BCC, replace "olTo" with "olBCC"
Recip.Type = olTo
Recip.Resolve
End If
End If
End If
End Sub
- หลังจากนั้นคุณควรเซ็นรหัสนี้และเปลี่ยนการตั้งค่ามาโครเพื่ออนุญาตให้ใช้มาโครที่เซ็นชื่อแบบดิจิทัลเท่านั้น
- สุดท้ายคุณสามารถลอง เมื่อคุณตอบกลับผู้รับทั้งหมดและคลิกที่ปุ่ม "ส่ง" คุณจะได้รับข้อความแจ้งของ Outlook เช่นภาพหน้าจอต่อไปนี้ หากคุณกด“ ใช่” Outlook จะเพิ่มที่อยู่อีเมลของคุณเองโดยอัตโนมัติ
ดูแลไฟล์ Outlook PST ของคุณ
เนื่องจากช่องโหว่ของไฟล์ Outlook PST คุณควรระวังความเสี่ยงที่อาจเกิดขึ้นรอบ ๆ ตัวอย่างเช่นคุณควรเก็บไฟล์ให้มีขนาดเล็กเนื่องจากไฟล์ PST ที่มีขนาดใหญ่เกินไปนั้นมีแนวโน้มที่จะเกิดความเสียหายได้ง่ายกว่ามาก นอกจากนี้คุณควรได้รับความเป็นตัวเอก เครื่องมือซ่อมแซมไฟล์ PST ที่เสียหายซึ่งจะช่วยคุณได้เมื่อคุณได้รับความเสียหายจากไฟล์ PST โดยไม่คาดคิด
บทนำผู้เขียน:
Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อมแซมความเสียหาย SQL Server db และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.


