Outlook 에서 이메일에 답장하거나 전달할 때 범주를 유지하려면 어떻게 해야 하나요？

일반적으로 내가 범주를 지정한 이메일에 답장하거나 전달하면， 발신된 이메일에서 해당 범주가 자동으로 제거됩니다。 답장 또는 전달 시 발신 이메일에 범주를 유지하고 싶다면， 이 글에서 이를 처리하는 방법을 소개합니다。

VBA 코드로 이메일 답장 또는 전달 시 범주 유지하기

---

VBA 코드로 이메일 답장 또는 전달 시 범주 유지하기

1.다음 키를 누른 채로ALT + F11을 눌러Microsoft Visual Basic for Applications창을 엽니다。

2.Microsoft Visual Basic for Applications창에서ThisOutlookSession을Project1(VbaProject.OTM)패널에서 두 번 클릭하여 모듈을 열고， 다음 코드를 빈 모듈에 복사하여 붙여넣습니다。

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 을 종료한 후 다시 시작하세요。 이제 범주가 지정된 이메일에 답장하거나 전달할 때， 발신 메시지에 범주가 유지됩니다。 스크린샷 참조：