วิธีตอบกลับอัตโนมัติด้วยอีเมลต้นฉบับและข้อความที่กำหนดไว้ล่วงหน้าผ่าน Outlook VBA

โซลูชัน Outlook September 29, 2025

หากคุณใช้กฎ Outlook เพื่อตอบกลับอัตโนมัติคุณจะพบว่าการตอบกลับอัตโนมัติไม่สามารถรวมข้อความต้นฉบับไว้ในเนื้อหาได้ บทความนี้จะแนะนำวิธีการง่ายๆซึ่งสามารถแทรกอีเมลต้นฉบับและข้อความที่กำหนดไว้ล่วงหน้าลงในเนื้อหาของการตอบกลับอัตโนมัติผ่าน Outlook VBA

ใน Outlook บัญชี Exchange อนุญาตให้ผู้ใช้ตั้งค่าการตอบกลับอัตโนมัติโดยตรงผ่านปุ่ม "การตอบกลับอัตโนมัติ" ใต้แท็บ "ข้อมูล" ในเมนู "ไฟล์" เช่นภาพหน้าจอต่อไปนี้:

แต่ถ้าคุณใช้บัญชีอีเมลอินเทอร์เน็ตไม่ว่า IMAP หรือ POP3 จะไม่มีปุ่ม“ ตอบกลับอัตโนมัติ” วิธีเดียวในการเปิดใช้งานการตอบกลับอัตโนมัติคือการสร้างกฎการตอบกลับอัตโนมัติดังภาพต่อไปนี้:

อย่างไรก็ตาม การตอบกลับอัตโนมัติแบบนี้โดยใช้กฎของ Outlook ไม่สามารถรวมข้อความต้นฉบับได้โดยอัตโนมัติ ในความเป็นจริงแล้ว คนส่วนใหญ่ต้องการแนบอีเมลต้นฉบับในเนื้อหาของข้อความตอบกลับอัตโนมัติ ในกรณีเช่นนี้ กฎการตอบกลับอัตโนมัติไม่สามารถทำได้อย่างแน่นอน ดังนั้นเราจึงควรใช้โค้ด VBA ของ Outlook หากคุณสนใจ โปรดอ่านต่อเพื่อดูขั้นตอนโดยละเอียดและโค้ด VBA

ตอบกลับอัตโนมัติด้วยอีเมลต้นฉบับและข้อความที่กำหนดไว้ล่วงหน้า

ในตอนแรกคุณควรเปิดแท็บ "นักพัฒนา" แล้วคลิกที่ปุ่ม "Visual Basic"
จากนั้นในหน้าต่าง“ Microsoft Visual Basic for Applications” ใหม่คุณต้องดับเบิลคลิกที่โครงการ“ ThisOutlookSession” ทางด้านซ้าย
หลังจากนั้นโครงการ“ ThisOutlookSession” จะเปิดขึ้น ตอนนี้คุณควรคัดลอกและวางรหัส VBA ต่อไปนี้ลงไป

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim olReply As MailItem
 
    If Item.Class = olMail Then
       Set olReply = Item.Reply
    Else
       Exit Sub
    End If
 
    With olReply
         'Type Your Own Auto Reply
         'Change "John Smith" to Your Own Name
         .Body = "This is a test auto reply." & vbCrLf & vbCrLf & "-------Original Message-------" & vbCrLf & "From: " & Item.Sender & "[mailto: " & Item.SenderEmailAddress & "]" & vbCrLf & "Sent: " & Item.ReceivedTime & vbCrLf & "To: YourName" & vbCrLf & "Subject: " & Item.Subject & vbCrLf & Item.Body
         .Send
    End With
End Sub

ถัดไปคุณควรเซ็นรหัสนี้ตามปกติและดำเนินการต่อเพื่อเปลี่ยนการตั้งค่ามาโครเพื่ออนุญาตเฉพาะมาโครที่เซ็นชื่อแบบดิจิทัลเท่านั้น
สุดท้ายหลังจากเสร็จสิ้นขั้นตอนข้างต้น Outlook จะส่งคำตอบพร้อมข้อมูลข้อความต้นฉบับในเนื้อหาโดยอัตโนมัติ ดูเหมือนภาพด้านล่าง:

หมายเหตุ: ไม่ว่าการตอบกลับอัตโนมัติโดยใช้กฎหรือการตอบกลับอัตโนมัติโดยใช้รหัส VBA ทั้งสองจะสามารถสร้างเอฟเฟกต์เมื่อ Outlook กำลังทำงานอยู่เท่านั้น

ระบุข้อผิดพลาดของข้อมูล Outlook

โดยไม่ต้องสงสัยใด ๆ Outlook จะไม่สามารถป้องกันข้อผิดพลาดได้ ดังนั้นจึงเป็นสิ่งสำคัญสำหรับผู้ใช้ Outlook ทั่วไปที่จะได้รับเทคนิคบางอย่างเพื่อจัดการกับพวกเขา แน่นอนว่าวิธีที่ดีที่สุดในการรับมือ ข้อมูล Outlook เสียหาย กำลังทำการสำรองข้อมูลตามปกติ ตราบเท่าที่คุณได้รับการสำรองข้อมูลที่มีประสิทธิภาพคุณจะพักผ่อนได้อย่างง่ายดายแม้ว่า Outlook จะขัดข้อง แน่นอนว่าหากหมดประกันแล้วคุณควรมีเครื่องมือซ่อมแซมที่มีศักยภาพไว้ใช้งานด้วยเช่นกัน

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อมแซมความเสียหายของไฟล์ SQL mdf และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.