Office関連

Outlookで返信作成時に件名に自動的に付加される「RE:」を「Re:」にするOutlookマクロ

Answersにあった質問「Outlook2003で、返信する際にタイトルに自動付加される”RE:”を”Re:”にするには?」への回答として書いたコードです。

※ ThisOutlookSessionに下記コードを貼り付けます。
※ Inspectorsオブジェクトの取得はApplicationオブジェクトのStartupイベント(Outlook起動時に実行されるイベント)で行っているので、下記コードを貼り付けた後はOutlookを起動し直す必要があります。

Option Explicit

Private WithEvents myInspectors As Outlook.Inspectors

Private Sub Application_Startup()
  Set myInspectors = Application.Inspectors
End Sub

Private Sub myInspectors_NewInspector(ByVal Inspector As Inspector)
  Dim s As String
 
  If TypeName(Inspector.CurrentItem) = "MailItem" Then
    If Left$(Inspector.CurrentItem.Subject, 3) = "RE:" Then
      s = "Re" & Mid$(Inspector.CurrentItem.Subject, 3)
      Inspector.CurrentItem.Subject = s
    End If
  End If
End Sub

InspectorsオブジェクトのNewInspectorイベントを使って、メールの返信を作成しようとしたときにマクロで件名を変更します。
上記マクロを一部変更すれば「RE:」を削除することもできるし、下記のようにすれば特定の送信者に対する返信のみ件名やCC等を変更することも可能です。
アイデア次第で何かに使えそうですね。

Private Sub myInspectors_NewInspector(ByVal Inspector As Inspector)
  If TypeName(Inspector.CurrentItem) = "MailItem" Then
    If Inspector.CurrentItem.Recipients.Count > 0 Then
      If InStr(Inspector.CurrentItem.Recipients(1).Address, "@hoge.jp") Then
        Inspector.CurrentItem.Subject = "【株式会社hoge宛】" & Inspector.CurrentItem.Subject
        Inspector.CurrentItem.CC = "hogehoge@hoge.jp"
      End If
    End If
  End If
End Sub

Office XP Developer Toolsでリボン対応のCOMアドインを作成する。前のページ

esp@cenetが公開しているPDF公報をダウンロードするVBAマクロ次のページ

関連記事

  1. Office関連

    「文書のスタイル」を設定するWordマクロ

    Wordのオプション画面 → 文章校正 → Word のスペル チェッ…

  2. Office関連

    [Excel Services ECMAScript]選択範囲が変更されたときのイベントを利用する。…

    埋め込んだExcelワークブックの、選択範囲が変更されたときのイベント…

  3. Office関連

    [Word]隠し文字をクイックアクセスツールバーから設定する。

    Wordで、部分的に印刷したくない文字列がある場合には「隠し文字」がよ…

  4. Office関連

    アドインやテンプレートのバージョンチェックを行うVBAマクロ

    色々なアプリケーションに実装されている、「最新バージョンの確認」機能、…

  5. Office関連

    Office 365 Soloをインストールしてみました。

    2014年10月17日、Microsoftの新しいOffice製品「O…

コメント

  1. この記事へのコメントはありません。

  1. この記事へのトラックバックはありません。

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP