WinHTTP - Run-time error '-2147012867 (80072efd)'

[muffin123]

Hi - I have an issue with the VBA code below. This code runs seamlessly on my PC, however when trying to run it on another user's PC I get the following error message right when the code tries to execute the WinHttpReq.Send line (see below):

Run-time error '-2147012867 (80072efd)'
A connection with the server could not be established

User is able to view the content of the page when he enters URL, username and password manually. User tells me that I should be routing through his proxy. Please help! Thanks

********************************
Private Sub Command3_Click()

Dim oresp() As Byte

' Assemble an HTTP request.
Set WinHttpReq = New WinHttpRequest
' Assemble an HTTP request.
WinHttpReq.Open "GET", webaddress, False

' Set the user name and password.
WinHttpReq.SetCredentials username, password, HTTPREQUEST_SETCREDENTIALS_FOR_PROXY

' Send the HTTP Request.
WinHttpReq.Send ###### HERE IS WHERE ERROR HAPPENS #####

' Display the status code and response headers.
Text2.Text = WinHttpReq.Status & " " & WinHttpReq.StatusText
Text1.Text = WinHttpReq.GetAllResponseHeaders & " " & WinHttpReq.ResponseText

oresp = WinHttpReq.ResponseBody 'Returns the results as a byte array
vLocalFile = "C:/test.csv"

'Create local file and save results to it
vFF = FreeFile
If Dir(vLocalFile) <> "" Then Kill vLocalFile
Open vLocalFile For Binary As #vFF
Put #vFF, , oresp
Close #vFF

End Sub

 

[Norie]

Have you checked firewall settings, connectivity (in case of timeouts), file path/names...?

Those are some of the things that can cause this problem.

I don't know much more than that - I hardly ever use WinHTTP and can't recall having that specific error.

I'm sure I had some error (might actually have been that one) but I think it was solved by changing some setting on the machine.

 

[muffin123]

Thanks Norie.

Another question regarding this - for some reason user has to close and reopen sheet several times before he can establish a connection and successfully complete the request.

I included a loop to have the code make 10 attempts and avoid having to open/close the sheet but it was still unsuccessful.

Any idea on how to solve this?

 

[Mancona]

Apologies for returning to an old post, but I have the same error message described in the original post, doing basically the same task. I would like to open a hyperlink (to a csv file) embeded in an email (from Barclays' POINT) through vba. Manually it works ok when I click on the link.
Has anybody else had this error? How did you solve it?

Thanks in advance for the help.