Предположим, перед нами стоит задача автоатизировать процесс отпрвки файлов через MS Office Outlook по одному или нескольким адресам электронной почты, например - ежедневно мы отправляем отчеты в отдел кадров.

 <v:imagedata src="Подпись.files/image001.png" o:title="image001"/>
</v:shape><![endif]--><![if !vml]><img width=50 height=50
src="Подпись.files/image001.png" v:shapes="_x0000_i1025"><![endif]><i
style='mso-bidi-font-style:normal'><span style='font-size:12.0pt;font-family:
"Times New Roman",serif'>Сергей</span></i> </p>
</div>
</body>
</html>

 <v:imagedata src="C:\Users\Имя_пользователя\AppData\Roaming\Microsoft\Signatures\Подпись.files\image001.png" o:title="image001"/>
</v:shape><![endif]--><![if !vml]><img width=50 height=50
src='cid:C:\Users\Имя_пользователя\AppData\Roaming\Microsoft\Signatures\Подпись.files\image001.png' v:shapes="_x0000_i1026"><![endif]><i
style='mso-bidi-font-style:normal'><span style='font-size:12.0pt;font-family:
"Times New Roman",serif'>Сергей</span></i>
</div>
</body>
</html>

/*
v2021.10.18
Скрипт для формирования письма в MS Office Outlook, вложением файла(лов), формирование темы письма
*/

/*                Настройки                   */
var myTema="Тема ";
var myBody="";     //текст письма
var myFrom="маил@yandex.ru";//от кого (емайл адрес учётной записи, с которой отправлять)
//var myAdres="Шевченко Татьяна";//"ok@yandex.ru";     //куда отправлять(Имя (Точное!) из адресной книги или адрес)
var myAdres=myFrom;//куда отправлять (для тестирования)

/*                Настройки                   */
var Signature = "";
var wsh=WScript.CreateObject("WScript.Shell");
var objArgs=WScript.Arguments;
//проверка наличия аргументов
if(objArgs.length<1){
    WScript.Echo("Не хватает обязательных параметров")
    WScript.Quit(2); // выход с кодом 2 - ошибка отправки
}


var fso = WScript.CreateObject("Scripting.FileSystemObject");

//Отправка через OutLook
    //Проверяем не открыт ли уже MS Outlook
    try{
        cdo=GetObject("","Outlook.Application");
        var outlookStarted=1;
    }
    catch (e){
        //Если ошибка то не открыт и запускаем его
        //if(e.number!=0) WScript.Echo("e="+e.number+"\nописание"+e.description);
        //OlNotRunning = True;
        wsh.run("outlook.exe");
        cdo=WScript.CreateObject("Outlook.Application");
        var outlookStarted=2;
    }
    oNSpace = cdo.GetNamespace("MAPI");
    oAccounts = oNSpace.Accounts;
    for(i=1; i<=oAccounts.Count;i++){
        if(oAccounts(i).SmtpAddress == myFrom){
            var myMail=cdo.CreateItem(0);
            myMail.Display(); //отображаем для редактирования
            var AttachmentsFile=myMail.Attachments;
            myMail.To=myAdres;
            myMail.CC="";
            myMail.Subject=myTema;
            //вложения
            for(k=0; k<objArgs.length;k++){
                AttachmentsFile.Add(objArgs(k));
                myMail.Subject=k>0 ? myMail.Subject + ", " + fso.GetBaseName(objArgs(k)) : myMail.Subject + fso.GetBaseName(objArgs(k));
            }
            //myMail.Send(); //Посылаем письмо
        };
    }
    //завершаем работу - очищаем объекты
    cdo.Nothing;
    myMail.Nothing;
WScript.Quit(0); // выход с кодом 0 - ОК

 
/*
v2021.10.18
Скрипт для формирования письма в MS Office Outlook, вложением файла(лов), формирование темы письма
*/

/*                Настройки                   */
var myTema="Тема ";
var myBody="";     //текст письма
var myFrom="маил@yandex.ru";//от кого (емайл адрес учётной записи, с которой отправлять)
//var myAdres="Шевченко Татьяна";//"ok@yandex.ru";     //куда отправлять(Имя (Точное!) из адресной книги или адрес)
var myAdres=myFrom;//куда отправлять (для тестирования)

/*                Настройки                   */
var Signature = "";
var wsh=WScript.CreateObject("WScript.Shell");
var SigString = "C:\\Documents and Settings\\" + wsh.ExpandEnvironmentStrings( "%USERNAME%" ) + "\\Application Data\\Microsoft\\Signatures\\подпись.htm"; //путь к файлу подписи
var objArgs=WScript.Arguments;
//проверка наличия аргументов
if(objArgs.length<1){
    WScript.Echo("Не хватает обязательных параметров")
    WScript.Quit(2); // выход с кодом 2 - ошибка отправки
}

var fso = WScript.CreateObject("Scripting.FileSystemObject");
if(fso.FileExists(SigString)){
    var ts = fso.OpenTextFile(SigString);
    while(!ts.atEndOfStream){
        Signature = Signature + ts.ReadLine();
    }
}
else{
    Signature = "";
}
//WScript.Echo(SigString);

//Отправка через OutLook
    //Проверяем не открыт ли уже MS Outlook
    try{
        cdo=GetObject("","Outlook.Application");
        var outlookStarted=1;
    }
    catch (e){
        //Если ошибка то не открыт и запускаем его
        //if(e.number!=0) WScript.Echo("e="+e.number+"\nописание"+e.description);
        //OlNotRunning = True;
        cdo=WScript.CreateObject("Outlook.Application");
        var outlookStarted=2;
    }
    //WScript.echo(cdo.Accounts(0).SmtpAddress);
    oAccounts = cdo.GetNamespace("MAPI").Accounts;
    for(i=1; i<=oAccounts.Count;i++){
        //WScript.echo(oAccounts(i).SmtpAddress);
        if(oAccounts(i).SmtpAddress == myFrom){
            var myMail=cdo.CreateItem(0);
            var AttachmentsFile=myMail.Attachments;
            myMail.To=myAdres;
            myMail.CC="";
            myMail.Subject=myTema;
            myMail.BodyFormat = 2;
            myMail.HTMLBody = myBody + "<br><br>" + Signature;
            //вложения
            for(k=0; k<objArgs.length;k++){
                AttachmentsFile.Add(objArgs(k));
                myMail.Subject=k>0 ? myMail.Subject + ", " + fso.GetBaseName(objArgs(k)) : myMail.Subject + fso.GetBaseName(objArgs(k));
            }
            myMail.Display(); //отображаем для редактирования
            myMail.SendUsingAccount = oAccounts(i);
            //myMail.Send(); //Посылаем письмо
        };
    }
    //if(outlookStarted==2)cdo.Quit(); //закрытие OutLook

WScript.Quit(0); // выход с кодом 0 - ОК