ありがちなRe: Re: Re:なサブジェクトを何とかする方法。 「Re: Re:」や「RE:Re: Re:」などのサブジェクトを「Re: 」にします。 組み込み方は前のエントリを参照
Dim reSubjectRe As New RegExp
reSubjectRe.Global = True
reSubjectRe.IgnoreCase = True
reSubjectRe.Pattern = "(?:re\d*\:\s*)+"
oMailItem.Subject = reSubjectRe.Replace(oMailItem.Subject, "Re: ")
あと知らなかったんですがOfficeには簡単にオレオレコード署名を作る方法があるんですね。これを使えばデフォルトのセキュリティ設定でThisOutlookSessionが動きます。導入の仕方はこちらを参考に。makecert.exeとか使わなくてもいいんだーへぇー
12/23追記。Re2:とかにも対応