Многоуважаемые коллеги, пытаюсь реализовать отправку документа в телеграмм, текущий код выдает ошибку о превышении времени ожидания, подскажите что не так, вот собственно код:
Код |
---|
Sub trrrr() sURL = "https://api.telegram.org/bot" apikey = "5000XX47:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" chat_id = "XXXXXXXXX" Const Boundary As String = "-----------test---------" URL = sURL & apikey & "/sendDocument" sFile = "C:\Users\lexey\Downloads\LOG.txt" 'файл Set oHttp = CreateObject("WinHttp.WinHttpRequest.5.1") oHttp.Open "POST", URL, False oHttp.setRequestHeader "Connection", "keep-alive" oHttp.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & Boundary FrmData = Boundary & vbNewLine FrmData = FrmData & "Content-Disposition: form-data; name=" & Chr(34) & "chat_id" & Chr(34) & ";" & vbNewLine & vbNewLine FrmData = FrmData & chat_id & vbNewLine & vbNewLine FrmData = FrmData & Boundary & vbNewLine FrmData = FrmData & "Content-Disposition: form-data; name=" & Chr(34) & "document" & Chr(34) & "; filename=" & Chr(34) & sFile & Chr(34) & vbNewLine & vbNewLine FrmData = FrmData & Boundary & "-" oHttp.send FrmData: DoEvents Debug.Print FrmData 'Debug.Print oHttp.responseText Set oHttp = Nothing End Sub |
Если очень захотеть - можно в космос полететь ;)