作ってみた

VBScriptを使ってちょっとしたツールを作成してみました github.com

概要

Outlookから件名が設定項目記載の条件に一致するメールを対象に
本文を抽出してExcelに追記するツールになります

ダブルクリックで実行後、正常終了するとExcelに追記しましたと表示されます

設定は以下項目を設定可能です

正規表現については、条件に一致する括弧内の文字列が追記対象になります

以下のようなメールが受信トレイにあったとします。

f:id:hogehoge0604:20180414014040p:plain このメール本文の■以降を抽出します。
件名と本文の抽出条件は以下のようにします

' 抽出対象の件名。設定した文字列が含まれるメールを対象とする
config.Add "pickup_title", "お問い合わせ"
' 本文抽出条件
config.Add "body_grep_rule", "■(.+)$"

outlook-to-excel.vbsを実行すると以下のような警告が出る場合がありますので許可を押してください
警告内容に不安がある場合はoutlook-to-excel.vbsのソースコードを確認したうえで
問題ないと判断できたら許可を押下いただければと思います

f:id:hogehoge0604:20180414014042p:plain

許可いただければoutlook-to-excel.vbsが実行され
Excelを開くと以下のように追加されていることが確認できます

f:id:hogehoge0604:20180414014045p:plain

以下開発時に調べた内容になります

Set dict = CreateObject("Scripting.Dictionary")

Set reg = New RegExp
reg.Pattern = <抽出条件>
reg.Execute(<検索対象文字列>)

Set excel = CreateObject("Excel.Application")
excel.Application.Workbooks.Open(<Excelファイルまでのパス>)

Set Application = CreateObject("Outlook.Application")