Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Отправка документа в телеграм
 
Многоуважаемые коллеги, пытаюсь реализовать отправку документа в телеграмм, текущий код выдает ошибку о превышении времени ожидания, подскажите что не так, вот собственно код:
Код
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 
Если очень захотеть - можно в космос полететь ;)
Страницы: 1
Читают тему (гостей: 1)