Работа с Excel и Thunderbird - VBA

Формулировка задачи:

Есть код, который отправляет конкретный файл, конкретному человеку (или нескольким)

                    Листинг программы
                
 
                        
                          
                    
Sub thu()
send_soft = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" ' путь к thunderbird
 
stroka1 = " -compose to='" & "removed@mail.ru" & "," & "removed@mail.ru" ' кому отправляю
stroka2 = "',subject='" & "Тест"  ' тема
stroka3 = "',body=""Тест" ' текст письма
stroka4 = """,attachment=" & "D:\20_FS\04_Slo\TMP\Папка\DAY\!_Очень нужный файл.xlsx" ' путь к файлу, который отправляю
stroka = send_soft & stroka1 & stroka2 & stroka3 & stroka4
 
Set SMs = CreateObject("WScript.Shell")
SMs.Exec stroka
End Sub

Как сделать так, чтоб отправлялось больше 1 файла и увеличить длину переменной "stroka".

Решение задачи: «Работа с Excel и Thunderbird»

textual
                            Листинг программы 
                        
 
                        
                          
                    
'Определение максимального количества аргументов методом эксперимента (подбор половинным делением)
option explicit
 
Const CriticalMAX = 10000
 
dim Home, oStream, Str, nCheck, curMAX, curMIN, nOK
 
Home = WScript.ScriptFullName
Home = left(Home, instrrev(Home, "\") - 1)
 
nCheck = CriticalMAX
curMAX = CriticalMAX
curMIN = 0
 
Do
 
  set oStream = Createobject("WScript.Shell").Exec(Home & "\MaxArgTest.cmd" & replace(string(nCheck, "A"), "A", " A"))
  Str = oStream.StdOut.ReadAll()
  set oStream = Nothing
 
  if len(Str) - (nCheck - 1) - 2 <> nCheck Then ' - (nCheck - 1) ' кол-во пробелов между аргументами ' - 2 'CrLf
    curMAX = nCheck - 1
  else
    nOK = nCheck
    curMIN = nCheck + 1
  end if
 
  nCheck = (curMAX - curMIN) \ 2 + curMIN
 
  msgbox "MIN = " & cstr(curMIN) & "   " & "MAX = " & cstr(curMAX) & "    " & "Len of String = " & cstr(len(Str)) & _
vbcrlf & "Now Checking " & cstr(nCheck)
 
Loop until curMIN >= curMAX
 
msgbox "MAX possible is " & cstr(nOK)