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関連

    「VBA質問箱」にアクセスできない。

    2013/03/19 追記:ドメインが更新されVBA質問箱が閲覧で…

  2. Office関連

    64ビット版OfficeでURLエンコード処理ができない?

    2011/12/28 追記:関連記事として「文字コードを指定してU…

  3. Office関連

    メモ帳だけでOutlook用アドインを作ってみる。

    「SharpDevelopでExcel用COMアドインを作成する方法」…

  4. Office アドイン

    [Office用アプリ]日経ソフトウエア主催アプリ開発コンテストの案内

    2014/06/24 追記:コンテスト結果がWebで公開されました…

  5. Office関連

    [リボン・カスタマイズ]dropDown要素の初期項目を指定する。

    MSDN フォーラムに「リボン:ドロップダウンリストにlabel初期値…

  6. Office関連

    Word 2013では簡単にウィンドウ ハンドルを取得できるようになりました。

    ※ この情報はOffice 2013 カスタマー プレビュー版を元にし…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

Translate

Chinese (Simplified)Chinese (Traditional)EnglishFrenchGermanJapaneseKoreanRussianSpanish

最近の記事

アーカイブ

PAGE TOP