【VBScript】Outlookのリンク切れに負けない！

プロジェクト案件に身をおいていると、使えるツールというのも限られてきます。

メールだと大体、僕がよく使うのは『Microsoft Outlook』

正直なこと言うと、メールソフトに全然こだわりなくて、何でもいいと思ってます。

プロジェクト案件だと、共有サーバ上のパスをメールでやり取りってよくある。

この資料どこにあるのー？？

とか、

それはココに置いておいてねー！

とかね。

その中で、僕が唯一許せないのがこれ！

＞ <D:\Shortcut\01_befor
＞ e\HelloWorl
＞ d.txt>

メールの引用符でリンクに飛べないじゃん…

これはOutlookだけの話ではないけどね。

イライラが爆発した結果、VBScriptで少し作りました。

Contents

コード
使い方
最後に

コード

Dim ClipboardText
Dim DirPath
Const ReplacePattern = "<|>|＜|＞| |　|\r\n"  '置換対象の文字

Call GetClipboardText
Call ReplaceText
Call OpenPath

'クリップボードから情報取得
Sub GetClipboardText()
    Dim objHtml
    Set objHtml = CreateObject("htmlfile")

    ClipboardText = Trim(objHtml.ParentWindow.ClipboardData.GetData("text"))
    Set objHtml = Nothing
End Sub

'正規表現で置換
Sub ReplaceText()
    Dim objRegExp
    Set objRegExp = CreateObject("VBScript.RegExp")
    With objRegExp
        .Pattern = ReplacePattern
        .IgnoreCase = True
        .Global = True
    End With

    'クリップボードの値から余分な文字を削除
    DirPath = objRegExp.Replace(ClipboardText , "")
    Set objRegExp = Nothing
End Sub

'既定のアプリケーションで開く
Sub OpenPath()
    CreateObject("Shell.Application").ShellExecute DirPath
End Sub

コピペして適当なVBScriptのファイル作ってください。
VBScriptの作り方は、この記事に詳しく書いてあるので、わからなかったら参照して！