メールの本文にlogファイルの文章を読み込ませたい

Question

メールの本文にlogファイルの文章を読み込ませたいです。

下記の内容でGmailを送るとしたら、ml.TextBodyにlogファイルの内容を読み込ませるとしたらどのようにコードを打てば可能になるでしょうか？

教えてください、お願いします。

Option Explicit
On Error Resume Next
Dim ml,strConfigurationField
Set ml = CreateObject("CDO.Message")
ml.From = "[e-mail]"
ml.To = "[e-mail]"
ml.Subject = "件名：メール送信テスト"
ml.TextBody = ""
strConfigurationField ="http://schemas.microsoft.com/cdo/configuration/"
With ml.Configuration.Fields
.Item(strConfigurationField & "sendusing") = 2
.Item(strConfigurationField & "smtpserver") = "smtp.googlemail.com"
.Item(strConfigurationField & "smtpserverport") = 465
.Item(strConfigurationField & "smtpusessl") = true
.Item(strConfigurationField & "smtpauthenticate") = 1
.Item(strConfigurationField & "sendusername") = "[e-mail]"
.Item(strConfigurationField & "sendpassword") = "XX"
.Item(strConfigurationField & "smtpconnectiontimeout") = 60
.Update
End With
ml.TextBodyPart.Charset = "ISO-2022-JP"
ml.Send

Answer 1

ログの量にもよりますが、手っ取り早いのは丸ごと読み込んでTextBodyに突っ込めばよろしいかと。
もしこれでリソースが足りないとかなったら、一行ずつ読み込むという処理に変える必要がありますが、所詮メールの本文を想定しているようなので、そこまでは必要ないかと思います。

Dim f
Dim fpath
Dim fso

fpath = "hoge.log"

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(fpath).OpenAsTextStream

ml.TextBody = f.ReadAll

f.close
Set fso = Nothing

Answer 2

・ログファイルを開く
・ログファイルから読み込む
・ログファイルから読み込んだ内容を使って、ml.TextBodyを設定する
という作業をしてください。

通常、ログファイルには大量のデータが書き込まれていますから、その中からml.TextBodyに入れる内容を抽出することが必要だと思います（例えば、ログファイルから昨日の分だけを取り出してml.TextBodyに入れる等）。

VBScriptでファイルの読み書きをするコードは、
VBScript でテキストファイルを読み込む・書き出す
などの記事を参考にしてください。