'=========================================================
acc_name="ivan@mail.com" 'Здесь должно быть имя ящика
fld_name="Outbox" 'Здесь должно быть имя папки
subj = "Высылаю вам несколько файлов" 'Здесь должна быть тема письма
email = "" 'Установка адресата: пусто("") - с запросом емайла, непусто - подстановка в адресата.
max_files = 3 'Максимальное количество файлов в письме

'=========================================================

set WSHShell = WScript.CreateObject("WScript.Shell")
tb_exe = WSHShell.RegRead("HKCU\Software\RIT\The Bat!\EXE path")
set Args = Wscript.Arguments 


if email = "" then 
  email = InputBox("Введите адрес:") 
end if

i = 0

do while i < args.count

   Command = """" & tb_exe & """ /MAILU=" & acc_name & ";F=" & fld_name & ";S=""" & subj & " " & i+1 & "/" & args.count & """;"
    Command = Command & "TO=""" & email & """;"
   for ii=1 to max_files 
     if i = args.count then exit for
      command = command & "A=""" & args(i) & """;" 
      i = i + 1
   next

   'uncomment to debug
    'MsgBox command
    WSHShell.Run command, 1, false

loop