Dim objArg
Dim OutLookApp 'Ссылка на MS Outlook
Dim OutLookItem 'Ссылка на сообщение
Dim MyAttachment
set objArg = WScript.Arguments 'Объект, содержит параметры, переданные скрипту.

On Error Resume Next
'Если Outlook закрыт - откроем, если уже открыт - то просто продолжаем работу.
Set OutLookApp = GetObject(, "Outlook.Application")
Set OutLookApp = CreateObject("Outlook.Application")

'Если не введен ни один параметр - выводим краткую справку
if objArg.count = 0 then
msgbox("Usage: " & vbCrLf & _
"./mailer.vbs [Subject] [Mail to. ; - separator] [Body text] [Path to attachment]" )
WScript.Quit
end if

'Создание сообщения
Set OutLookItem = OutLookApp.CreateItem(0)
With OutLookItem
if objArg.count > 0 then .Subject = objArg(0)   'тема
if objArg.count > 1 then .to = objArg(1)     'кому
if objArg.count > 2 then .Body = objArg(2)    'текст
.Display 'Отображение сообщения
.Send  'Отправка сообщения
End With