11-10-20, 23:42
|
| Όνομα: Αλέξανδρος Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2013 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 22-01-2010 Περιοχή: ΑΡΤΑ
Μηνύματα: 521
| |
Καλησπέρα και πάλι!!Τελικά βρήκα τη λύση με προσθήκη μιας σειράς κωδικα Κώδικας: Public Function WinHTTPPostRequest(url As String, FormData As String) As String
Dim http As New MSXML2.XMLHTTP
Set http = CreateObject("MSXML2.XMLHTTP")
Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0") 'Τελικά πρόσθεσα αυτή τη σειρά κώδικα και λύθηκε το θέμα στέλνω πάλι κανονικά
http.Open "GET", url & "?" & FormData, False
http.setRequestHeader "Content-Type", "multipart/form-data; "
http.send FormData
WinHTTPPostRequest = http.responseText
'
End Function
|