จะตอบกลับอัตโนมัติด้วยข้อความอีเมลต้นฉบับใน Outlook ได้อย่างไร

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

ตอบกลับอีเมลอัตโนมัติพร้อมข้อความต้นฉบับใน Outlook พร้อมรหัส VBA

ตอบกลับอีเมลอัตโนมัติพร้อมข้อความต้นฉบับใน Outlook พร้อมรหัส VBA

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

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน ดับเบิลคลิก ThisOutlookSession จาก โครงการ 1 (VbaProject.O ™) บานหน้าต่างเพื่อเปิดโหมดจากนั้นคัดลอกและวางรหัสต่อไปนี้ลงในโมดูลเปล่า

รหัส VBA: ตอบกลับอีเมลอัตโนมัติพร้อมข้อความต้นฉบับ:

Public WithEvents xlItems As Outlook.Items
Private Sub Application_Startup()
    Set xlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub xlItems_ItemAdd(ByVal objItem As Object)
Dim xlReply As MailItem
Dim xStr As String
If objItem.Class <> olMail Then Exit Sub
Set xlReply = objItem.Reply
With xlReply
     xStr = "<p>" & "Hi, Your email has been received. Thank you!" & "</p>"
     .HTMLBody = xStr & .HTMLBody
     .Send
End With
End Sub 

3. จากนั้นบันทึกและปิดหน้าต่างรหัสปิดหรือรีสตาร์ท Outlook เพื่อให้รหัส VBA มีผล ตอนนี้เมื่อคุณได้รับอีเมล Outlook จะส่งการตอบกลับอัตโนมัติพร้อมข้อความต้นฉบับดังภาพหน้าจอต่อไปนี้:

Kutools สำหรับ Outlook - นำคุณลักษณะขั้นสูง 100 รายการมาสู่ Outlook และทำให้การทำงานง่ายขึ้นมาก

• CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับโดยกำหนดเอง ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
• คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมด หากที่อยู่อีเมลของคุณอยู่ในรายการ BCC; เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
• ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมดในการสนทนาทางไปรษณีย์; ตอบกลับอีเมลจำนวนมาก ในไม่กี่วินาที เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่ในหัวเรื่อง ...
• เครื่องมือแนบ: จัดการไฟล์แนบทั้งหมดในอีเมลทั้งหมด ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกทั้งหมด ... รายงานด่วน, นับอีเมลที่เลือก...
• อีเมลขยะที่มีประสิทธิภาพ ตามธรรมเนียม; ลบอีเมลและผู้ติดต่อที่ซ้ำกัน... ช่วยให้คุณทำงานได้อย่างชาญฉลาดขึ้นเร็วขึ้นและดีขึ้นใน Outlook

อ่านเพิ่มเติม ... ดาวน์โหลดเดี๋ยวนี้...