Я принимаю на день но если функция VBA не работает, И vbs, котор сценарий работает как раз отлично уже, вы могут вызвать сценарий vbs от вашей функции доступа VBA как это
Общественная функция LuanchWebEmailer ()
'Тусклое xmlhttp как предмет
'Установите xmlhttp = CreateObject («Microsoft.XMLHTTP
»)
'xmlhttp. Открыто «ПОЛУЧИТЕ», «
http://governor.mt.gov/default.asp»
, ложное
'xmlhttp. Пошлите
'Установите xmlhttp = ничего
Затемните varReturn
varReturn = раковина («WScript.exe» & Chr (34) & «C:\MyFolder\SubFolder\TheNameOfTheScript.vbs
»
& Chr (34))
Функция конца
Беседа к вам завтра.
Шатия OM