Метод выхода MSXML2.ServerXMLHTTP отправки

У меня есть отчет в доступе, который получает изображение с URL-адреса при оплате, для этой цели я использую MSXML2.ServerXMLHTTP для получения URL-адреса.

Вот используемый код:

Dim sURL As String   
Dim v As Variant
v = Split(sURL, "/")(UBound(Split(sURL, "/")))

Dim obj As Object
Dim fl() As Byte
Set obj = CreateObject("MSXML2.ServerXMLHTTP")

With obj
    .Open "GET", sURL, False
    .Send
    fl = .Responsebody
End With

Проблема, с которой я сталкиваюсь, заключается в том, что когда выполнение достигает .send, оно выходит из метода, несмотря на то, что у него есть еще код, что не дает мне ошибок, но также не отображает изображение в отчете.

Вы знаете, что может быть причиной?

Заранее спасибо.


person adrian    schedule 25.02.2020    source источник
comment
Попробуйте использовать Msxml2.XMLHTTP.6.0 вместо MSXML2.ServerXMLHTTP. Прочтите эту тему stackoverflow.com/questions/41026800/   -  person Vlado    schedule 25.02.2020
comment
Спасибо за ваш ответ, проблема в том, что URL-адрес https вместо http, но я все еще не могу заставить этот метод работать с URL-адресами https.   -  person adrian    schedule 25.02.2020