VBA Outlook 2010에서 회신/회신의 범주를 복사하려면 regedit없이

Question

나는 VBA의 초보자입니다. 이것은 Outlook 2010과 관련이 있습니다. 인터넷의 일반적인 솔루션은 모든 범주가 ​​들어오는 메시지에서 회신/회신 전체 및 전달 메시지로 전송되도록 간단한 레지스트리 편집을 만드는 것입니다. 우리 사무실은 레지스트리 변경을 허용하지 않을 것입니다. 사무실을 존중하여 모든 할당 된 카테고리를 복사하고 붙여 넣을 수있는 작업을 수행하는 VBA 코드가 있습니까?

고맙습니다.

Answer 1

보내는 메일을 분류하는 것은 일반적이지 않습니다. 나는 대부분 (아마 모든 것)이 범주가 보내는 즉시 제거된다는 것을 알 것이다.

Private Sub Categories_reply() 

Dim currItem As mailItem 
Dim repItem As mailItem 

Set currItem = ActiveInspector.currentItem 

Set repItem = currItem.reply 
repItem.Categories = currItem.Categories 
repItem.Display 

repItem.Save 

If repItem.Categories <> "" Then 

    MsgBox " Viewed in Drafts folder, with a categories column, you should see: " & _ 
     vbCr & repItem.Categories & vbCr & vbCr & _ 
     "The categories will likely be removed upon sending." 

End If 

End Sub