ファイルの項目を利用してメール送信時のエラー

Question

VBSにてファイルの項目を利用してメール送信

VBSにてファイルを読込、項目を利用してメール送信をしようとすると、

Set objMail = wscript.CreateObject("CDO.Message") で
Err.Numberに13(型が一致しません。)で以降の処理がバイパスされる。

VBS

ファイル読込をなくし、メール送信のみならば正常に動作