วิธีเก็บหมวดหมู่ในขณะตอบกลับหรือส่งต่ออีเมลใน Outlook 

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

เก็บหมวดหมู่ในขณะที่ตอบกลับหรือส่งต่ออีเมลด้วยรหัส VBA

---

เก็บหมวดหมู่ในขณะที่ตอบกลับหรือส่งต่ออีเมลด้วยรหัส VBA

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

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

รหัส VBA: เก็บหมวดหมู่ขณะตอบกลับหรือส่งต่ออีเมล:

Private WithEvents GExplorer As Outlook.Explorer
Private WithEvents GInspectors As Outlook.Inspectors
Private WithEvents GMailItem As Outlook.MailItem
Private GCategories As String
Private Sub Application_Startup()
    Dim xApp As Outlook.Application
    Set xApp = Outlook.Application
    Set GExplorer = xApp.ActiveExplorer
    Set GInspectors = xApp.Inspectors
End Sub
Private Sub GExplorer_SelectionChange()
    On Error Resume Next
    If TypeName(GExplorer.Selection.Item(1)) <> "MailItem" Then Exit Sub
    Set GMailItem = GExplorer.Selection.Item(1)
    GCategories = GMailItem.Categories
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
    On Error Resume Next
    If TypeName(Inspector.CurrentItem) <> "MailItem" Then Exit Sub
   Set GMailItem = Inspector.CurrentItem
    GCategories = GMailItem.Categories
End Sub
Private Sub GMailItem_Forward(ByVal Forward As Object, Cancel As Boolean)
    Call GetCategories(Forward)
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
    Call GetCategories(Response)
End Sub
Private Sub GMailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Call GetCategories(Response)
End Sub
Private Sub GetCategories(ByVal NewMail As Object)
    If NewMail.Class <> olMail Then Exit Sub
    NewMail.Categories = GCategories
End Sub

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