Outlook에서 이메일을 회신하거나 전달하는 동안 카테고리를 유지하는 방법은 무엇입니까? 

일반적으로 내가 분류 한 이메일을 회신하거나 전달하면 발송 된 이메일에서 카테고리가 자동으로 제거됩니다. 답장이나 전달시 발신 이메일에 카테고리를 유지하고 싶다면이 기사에서는이를 처리하는 방법을 소개합니다.

VBA 코드로 이메일을 회신하거나 전달하는 동안 카테고리 유지

---

VBA 코드로 이메일을 회신하거나 전달하는 동안 카테고리 유지

1. 누르고있어. ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창, 더블 클릭 ThisOutlook세션 인사말 프로젝트 1 (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을 닫았다가 다시 시작하십시오. 이제 범주가있는 전자 메일에 회신하거나 전달할 때 범주가 보내는 메시지에 보관됩니다. 보낸 편지함, 스크린 샷 참조 :