[メールを送信する]

メールを送信します。（下の例では、メールの画面を開いているだけです）
Send イベントを使用すれば、受信トレイに入れることもできますが・・・

【ソースコード】

[tips0176.vbs]
Option Explicit
On Error Resume Next

Dim objOlApp        ' outlook オブジェクト
Dim objMail         ' Mail オブジェクト
Dim strBody         ' メッセージ本文

' 改行は vbCrLf で。
strBody = _
    "メッセージ本文です。" & vbCrLf & _
    "これは２行目です。"

Set objOlApp = WScript.CreateObject("Outlook.Application")
If Err.Number = 0 Then
    Set objMail = objOlApp.CreateItem(0)
    If Err.Number = 0 Then
        objMail.To = "mailtest@whitire.com"
        objMail.Subject = "件名はここ"
        objMail.Body = strBody

        objMail.Display     ' objMail.Send で送信トレイへ
    Else
        WScript.Echo "エラー：" & Err.Description
    End If
Else
    WScript.Echo "エラー：" & Err.Description
End If

Set objOlApp = Nothing