sBody = Wscript.Arguments.Named.Item("text") 'для передачи параметра text необходимо вызвать так *.vbs /text: "Текст письма"
    sTo = "babacov_babac@mail.ru"    'Кому(можно заменить значением из ячейки - sTo = Range("A1").Value)
    sSubject = "<Уведомление с рабочего компьютера>"    'Тема письма(можно заменить значением из ячейки - sSubject = Range("A2").Value)
	'Текст письма(можно заменить значением из ячейки - sBody = Range("A3").Value)
'	If sBody="" then set sBody = "Расчет моделей успешно выполнен":
'    sAttachment = "C:/Temp/Книга1.xls"    'Вложение(полный путь к файлу. Можно заменить значением из ячейки - sAttachment = Range("A4").Value)

    On Error Resume Next
    Set objOutlookApp = CreateObject("Outlook.Application")
    objOutlookApp.Session.Logon("Outlook")
    Set objMail = objOutlookApp.CreateItem(0)   'создаем новое сообщение
    'если не получилось создать приложение или экземпляр сообщения - выходим
    If Err.Number <> 0 Then Set objOutlookApp = Nothing: Set objMail = Nothing:
    'создаем сообщение
    With objMail
        .To = sTo 'адрес получателя
        .Subject = sSubject 'тема сообщения
        .Body = sBody 'текст сообщения
'        .Attachments.Add sAttachment
        .Send 'Display, если необходимо просмотреть сообщение, а не отправлять без просмотра
    End With

#include "stdafx.h"
#include <tchar.h>

#include "easendmailobj.tlh"
using namespace EASendMailObjLib;

int _tmain(int argc, _TCHAR* argv[])
{
    ::CoInitialize( NULL );

    IMailPtr oSmtp = NULL;
    oSmtp.CreateInstance( "EASendMailObj.Mail");
    oSmtp->LicenseCode = _T("TryIt");
    
    //Set your sender email address
    oSmtp->FromAddr = _T("babacov_babac@vnutr_mail.ru");
    //Add recipient email address
    oSmtp->AddRecipientEx( _T("babacov_babac@vnutr_mail.ru"), 0 );
    //Set email subject
    oSmtp->Subject = _T("direct email from Visual C++ project");
    //Set email body
    oSmtp->BodyText = _T("this is a test email sent from Visual C++ project directly");
    
    //Set smtp server address to ""
    oSmtp->ServerAddr = _T("");
   
    //Do not set user authentication
    //Do not set SSL connection

    _tprintf(_T("Start to send email directly ...\r\n" ));
  
    if( oSmtp->SendMail() == 0 )
    {
        _tprintf( _T("email was sent successfully!\r\n"));
    }
    else
    {
        _tprintf( _T("failed to send email with the following error: %s\r\n"),
            (const TCHAR*)oSmtp->GetLastErrDescription());
    }

    if( oSmtp != NULL ) oSmtp.Release();

	Sleep(50000);

    return 0;
}

421 4.3.2 Service not available