転送時に分類項目を件名に付与するマクロ


コメントにて以下のご要望をいただきました。


分類項目を付けたメールを、転送する時にメールの件名に分類項目名を付加して送信するマクロをお願いいたします。
outlook2010です。



以下のようなマクロで実現できます。

' ここをトリプルクリックでマクロ全体を選択できます。
Public Sub ForwardWithCategories()
    Dim objItem As MailItem
    Dim fwdItem As MailItem
    If TypeName(ActiveWindow) = "Inspector" Then
        Set objItem = ActiveInspector.CurrentItem
    Else
        Set objItem = ActiveExplorer.Selection(1)
    End If
    '
    Set fwdItem = objItem.Forward
    fwdItem.Subject = "FW: [" & objItem.Categories & "] " & fwdItem.ConversationTopic
    ' 分類項目を FW: より前に追加する場合は以下の記述を使用
    'fwdItem.Subject = "[" & objItem.Categories & "] " & fwdItem.Subject
    fwdItem.Display
End Sub

マクロの登録方法やメニューへの追加について

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中