Sub thu()
send_soft = "C:\Program Files\Mozilla Thunderbird\thunderbird.exe"

stroka1 = " -compose to='" & "outofrange@mail.ru"
stroka2 = "',subject='" & "проверка"
stroka3 = "',body=""Тест "
stroka4 = """,attachment=" & "'D:\JOB\167\files\ADELAIS BAY HOTEL.xlsx'"
stroka = send_soft & stroka1 & stroka2 & stroka3 & stroka4

Set SMs = CreateObject("WScript.Shell")
SMs.Exec stroka
end sub

Подскажите, не понимаю почему Thunderbird открывается, сообщение формируется, но кнопку отправить все равно приходится нажимать?