VBS Outolookを操作する①（ファイルを添付してメール送信）

'変数の宣言を強制
Option Explicit

dim objOutlook
'objXlsにOutlookアプリケーションのオブジェクトをセットする
set objOutlook = WScript.CreateObject("Outlook.Application")

Dim objFOlder
'受信トレイのオブジェクトとしてobjItemにセット
set objItem = objOutlook.CreateItem(0)

'宛先を指定
objItem.To = "Yamada-t@gmail.com"
'件名を指定
objItem.Subject = "テストメール"
'本文を指定
objItem.Body = "これはテストです"
'1つ目の添付ファイルを指定します。
objItem.Attachments.Add "C:\Users\デスクトップ\WHSプロジェクト\添付1.txt"
'2つ目の添付ファイルを指定します。
objItem.Attachments.Add "C:\Users\デスクトップ\WHSプロジェクト\添付2.txt"
'メールを送信
objItem.Send