Msxml3.dll error '000000': Access denied.

CodeAs follows:
Posturl = http://www.xxx.com/
Server. scripttimeout = 20
Set oxmlhttp = Createobject ("Microsoft. XMLHTTP ")
Call oxmlhttp. Open ("get", posturl, false)
Call oxmlhttp. Send ("")
Shtmlstr = oxmlhttp. responsebody
Set oxmlhttp = nothing

It is preliminarily determined that there may be a jump reason for the opened page. The solution is to use
Msxml2.serverxmlhttp
Replace
Microsoft. XMLHTTP
.

In addition, we found such a piece of code on csdn.
Serverurl = posturl
Set mail1 = server. Createobject ("CDO. Message ")
Mail1.createmhtmlbody serverurl, 31
AA = mail1.htmlbody
Set mail1 = nothing
Response. Write AA

You can also try it. Copy it to favorites.