Outlookのメール件名からtab文字を除去するマクロ

※受信時に自動で動作するバージョンはこちら
deck-no-bow.hatenablog.com

Outlook2007で、メールの件名（Subject）に含まれるtab文字を一括で除去するVBAマクロのサンプル。
選択されているフォルダ内のメール全てを対象に、件名に含まれるtab文字を削除する。

Sub 件名のTAB文字を除去()

    Dim WorkFolder As Outlook.MAPIFolder
    Dim i As Integer
    Dim strSubject As String

    Set WorkFolder = ActiveExplorer().CurrentFolder

    For i = 1 To WorkFolder.Items.Count
        strSubject = WorkFolder.Items(i).Subject
        If InStr(1, strSubject, vbTab) > 0 Then
            With WorkFolder.Items(i)
                .Subject = Replace(strSubject, vbTab, "")
                .Close olSave
            End With
        End If
    Next i

End Sub

選択されているフォルダでなく、受信トレイを対象とする場合は、7行目を以下のように書き換える。

    Set WorkFolder = ActiveExplorer().Session.GetDefaultFolder(olFolderInbox)

特定のフォルダを対象とする場合。以下は「個人用フォルダ」の「work」というフォルダを対象にした例。

    Set WorkFolder = ActiveExplorer().Session.Folders("個人用フォルダ").Folders("work")