Outlookの新規メールをExcelマクロ（またはVBScript）で作る #Excel

これは何かというと

Excelマクロの実行結果を、Outlookの新規メールの形で出力したい、
ある日、そんな思いに駆られる出来事がありまして、
その時に作ったExcelVBAのコードの一部分です。

その後、よく考えたら、
そもそもExcelマクロである必要もなくVBScriptで充分、ということになりまして、
Excel/VBScript兼用に仕立て直しました。

あれこれ調べながら悩みながら作っていって、出来上がったら意外とシンプルでした。
なぁんだ、という感じ。でもせっかくなので共有します。

コード

Function NewMail(pSubject, pTo, pBody) 'As Outlook.MailItem
    Set NewMail = CreateObject("Outlook.Application").CreateItem(0) '  olMailItem: 0
    With NewMail
        .BodyFormat = 1  '  olFormatPlain: 1
        .Subject = pSubject
        .To = pTo
        .Body = pBody
        .Display
    End With
End Function

VBScriptでの利用イメージ

NewMail.vbs

'使い方その１： NewMail.vbs をダブルクリック
'使い方その２： honbun.txt のアイコンをつまんで NewMail.vbs の上にドロップ

Option Explicit
Const KENMEI = "todo", ATESAKI = "ashika@example.com"

NewMail KENMEI, ATESAKI, yomikomi(WScript.Arguments)


Function yomikomi(args)
    If args.Count > 0 Then yomikomi = GetText(args.Item(0))
End Function

Function GetText(f)
    With CreateObject("ADODB.Stream")
        .Charset = "UTF-8"
        .Open
        .LoadFromFile f
        GetText = .ReadText
        .Close
    End With
End Function