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