/*
Скрипт предназначен для автоматической отправки почты по адресам, которые
совпадают именами папок расположенных в папке имя которой содержится в переменной 
MainFolder

Скрипт предназначен для отправки вложений по предопределенным адресам
файлы для отправки класть в папку адреса

Т.е. каталоги должны быть сформированы следующим образом
v:\Местная почта
   +--Дмитрий
      +--Почта
         +--Addr@server.org         - имя папки содержит адрес электронной почты
         |  +--Отправленные         - папка для отправленных файлов
         |  |   +--2007-10-11 14-30 - папки созданные после отправки файлов
         |  |   +--2007-10-13 10-17 -   (эти папки создаются автоматически)
         |  +--Шаблон               - папка собержащая шаблон письма для адресата
         |     +--subject.txt       - файл содержащий заголовок письма - одна строка
         |     +--body.txt          - файл содержащий тело письма
         |
         +--Addr2@server2.org        - и т.д.
         |  +--Отправленные
         |  |   +--2007-10-09 12-03
         |  +--Шаблон
         |     +--subject.txt
         |     +--body.txt
        ...
Имена папок могут быть такие
Ivanov@mail.ru
или
Ivanov@mail.ru (Иванов)
*/
//-------------- Основные параметры для работы скрипта -------------- 
var SMPTServer = "mail.ser.ru";
var MainFolder = "v:\\Отправка";
var FromField = "o@ser.ru";
var BlatFolder = "c:\\Admin\\Blat";
//-------------------------------------------------------------------

var oFSO = new ActiveXObject("Scripting.FileSystemObject");
SendMail(oFSO.GetFolder(MainFolder));

// ------------------------------------------------------------------
function SendMail(_Folder){
  var FoldersEnumerator = new Enumerator(_Folder.SubFolders);
  var lcFilesList, CommandString, NewFolderName;
  var WSHShell = WScript.CreateObject("WScript.Shell");
  var FilesEnumerator;

  // Если файл признак начала обработки существует, 
  // то выходим, так как происходит обработка другой копией скрипта
  if(oFSO.FileExists(MainFolder + "\\MailInProgress.tag"))
  {
    //WScript.Echo("Отправка осуществляется в другой копии скрипта!");
    return;
  }
  
  // Создаем файл признак начала обработки
  TagStream = oFSO.OpenTextFile(MainFolder + "\\MailInProgress.tag", 8 ,true, 0 );
  
  // Пробегаем по папкам имена которых обозначают адреса электронной почты
  for (; !FoldersEnumerator.atEnd(); FoldersEnumerator.moveNext())
  {
    // Получаем список файлов (через запятую и в кавычках), находящихся в указанной папке    
    FilesEnumerator = new Enumerator(FoldersEnumerator.item().Files);
    lcFilesList = "";
    for (; !FilesEnumerator.atEnd(); FilesEnumerator.moveNext())
    {
      oOneFile = FilesEnumerator.item();
      if(lcFilesList == "")
        lcFilesList = "\"" + oOneFile.Path + "\"";
      else
        lcFilesList += ",\"" + oOneFile.Path + "\"";
    }

    if(lcFilesList != "")
    {
      // Если есть файлы для обработки выполняем
      // Формируем командную строку для отсылки почты
      
      CommandString = "\"" + BlatFolder + "\\blat.exe\"" +
        " \"" + FoldersEnumerator.item().Path + "\\Шаблон\\Body.txt" + "\"" + 
        " -server " + SMPTServer + 
        " -f " + FromField + 
        " -to \"" + FoldersEnumerator.item().Name + "\"" + 
        " -sf " + "\"" + FoldersEnumerator.item().Path + "\\Шаблон\\subject.txt" + "\"" +  
        " -charset windows-1251 -noh2" + 
        " -attach " + lcFilesList; 

      // Создаем процесс и запускаем его
      var oExec = WSHShell.Exec(CommandString);
      // Ждем когда закончится
      while (oExec.Status ==  0 )
      {
        WScript.sleep( 100 );
      };

      if(oExec.ExitCode ==  0 )
      {
        //WScript.Echo("Отправка прошла нормально");
        //Если все нормально
        // Создаем папку с датой в каталоге "Отправленные"
        var Today = new Date();
        NewFolderName = "" + FoldersEnumerator.item().Path + "\\Отправленные\\" + formatDate(Today,"yyyy-MM-dd hh-mm");
        oFSO.CreateFolder(NewFolderName);
      
        // Перемещаем обработанные файлы в созданную папку
        FilesEnumerator.moveFirst();
        for (; !FilesEnumerator.atEnd(); FilesEnumerator.moveNext())
        {
          //WScript.Echo (FilesEnumerator.item().Path);
          oFSO.MoveFile(FilesEnumerator.item().Path,NewFolderName + "\\" + FilesEnumerator.item().Name);
        }
      }
      else
      {
        var TextStream = oFSO.OpenTextFile(MainFolder + "\\Mail.log", 8 ,true, 0 );
      
        TextStream.WriteLine("=======================" + formatDate(Today,"yyyy-MM-dd hh-mm") + "=============");
        TextStream.WriteLine("Ошибка создании отправке почты!");
        TextStream.WriteLine("-----------------------CmdLine----------------------");
        TextStream.WriteLine(CommandString);
        TextStream.WriteLine("-----------------------StdOut-----------------------");
        TextStream.WriteLine(oExec.StdOut.ReadAll());
        TextStream.WriteLine("-----------------------ErrOut-----------------------");
        TextStream.WriteLine(oExec.StdErr.ReadAll());
        TextStream.WriteLine("-----------------------ExitCode---------------------");
        TextStream.WriteLine(oExec.ExitCode);
        TextStream.WriteLine("----------------------------------------------------");
        TextStream.Close();
        // Если произошла ошибка анализируем и сообщаем о ней
      }
    }
  }
  // Закрываем файл признак и удаляем его
  TagStream.Close();
  oFSO.DeleteFile(MainFolder + "\\MailInProgress.tag");
}

function addZero(vNumber){ 
  return ((vNumber <  10 ) ? "0" : "") + vNumber 
} 
        
function formatDate(vDate, vFormat){ 
  var vDay              = addZero(vDate.getDate()); 
  var vMonth            = addZero(vDate.getMonth()+ 1 ); 
  var vYearLong         = addZero(vDate.getFullYear()); 
  var vYearShort        = addZero(vDate.getFullYear().toString().substring( 3 , 4 )); 
  var vYear             = (vFormat.indexOf("yyyy")>- 1 ?vYearLong:vYearShort) 
  var vHour             = addZero(vDate.getHours()); 
  var vMinute           = addZero(vDate.getMinutes()); 
  var vSecond           = addZero(vDate.getSeconds()); 
  var vDateString       = vFormat.replace(/dd/g, vDay).replace(/MM/g, vMonth).replace(/y{ 1 , 4 }/g, vYear) 

  vDateString           = vDateString.replace(/hh/g, vHour).replace(/mm/g, vMinute).replace(/ss/g, vSecond) 
  return vDateString 
}