Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Как сделать отправку в Telegram из макроса VBA Excel, Telegram из макроса VBA Excel
 
Вот как смог собрал из всего что писали.
romanss, , Отправляет сообщение если тест не поменялся
ex_kalibur, Отправляет по Русски
Код
Function RussianStringToURLEncode_New(ByVal txt As String) As String
    For i = 1 To Len(txt)
        l = Mid(txt, i, 1)
        Select Case AscW(l)
            Case Is > 4095: t = "%" & Hex(AscW(l) \ 64 \ 64 + 224) & "%" & Hex(AscW(l) \ 64) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
            Case Is > 127: t = "%" & Hex(AscW(l) \ 64 + 192) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
            Case 32: t = "%20"
            Case Else: t = l
        End Select
        RussianStringToURLEncode_New = RussianStringToURLEncode_New & t
    Next
End Function
  

Sub Send_to_Telegram_Bot_example()
Dim oHttp As Object
Dim sURI As String
 
'token = "00000000:AaAaAaAaAaAaAaAaAaAaAaAaAaAaAaAaAaAa"
'chat_id = "88888888"
'txt = "hello"
 
'sURI = "https://api.telegram.org/bot000000000:Aa....AaAa/getme"
'sURI = "https://api.telegram.org/bot000000000:Aa....AaAa/getupdates"
 
'sendproto не работает!!! Блин, не знаю, как скормить строке имя файла С:\temp\pic.png?
'запрос с файлом должен быть в формате multipart/form-data
'sURI = "https://api.telegram.org/bot000000000:Aa.....AaAa/sendproto?chat_id=88888888@photo=C:\temp\pic.png"
'Call RussianStringToURLEncode_New
tex = Cells(1, 1)
tex = RussianStringToURLEncode_New(tex)
sURI = "https://api.telegram.org/bot214343439:AAFko1ohZpgh95KTsnPskMdfsdfuVTHqFs/sendMessage?chat_id=3345500446&text=" & tex
 
'MsgBox sURI, vbInformation, "запрос"
'On Error Resume Next
'Set oHttp = CreateObject("MSXML2.XMLHTTP")
'Dim oHttp As Object
Set oHttp = CreateObject("WinHttp.WinHttpRequest.5.1")


'If Err.Number <> 0 Then
'Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
'End If
On Error GoTo 0
If oHttp Is Nothing Then Exit Sub
oHttp.Open "GET", sURI, False
oHttp.Send


MsgBox oHttp.ResponseText, vbInformation, "ответ"
Set oHttp = Nothing

End Sub
Страницы: 1
Наверх