EXCEL'DE TELEGRAM BOTU OLUSTURMA ve KULLANMA

Показать описание

VBA VE EXCEL İLE İLGİLİ KURUMSAL VE BİREYSEL EĞİTİMLER İÇİN BANA 0532 456 53 99 NUMARASI ÜZERİNDEN ULAŞABİLİRSİNİZ.

Kod aşağıdadir.

Const ID = "YOUR_BOT_ID"

Dim ws As Worksheet
Public Sub SendMessagesbyTelegram()

Dim i As Long
Dim URL As String
Dim chatID As String
Dim messageString As String
Dim rspTxt As String

Set ws = Sheet1

ws.UsedRange.Offset(1, 2).ClearContents

For i = 2 To ws.Cells(Rows.Count, 1).End(xlUp).Row

chatID = ws.Cells(i, 1).Value2
messageString = ws.Cells(i, 2).Value2

"/sendMessage?chat_id=" & chatID & _
"&text=" & messageString

With CreateObject("MSXML2.XMLHTTP")
.Open "POST", URL, False
.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64)" & _
" AppleWebKit/537.36 (KHTML, like Gecko) Chrome/70.0.3538.110 Safari/537.36"
.setRequestHeader "Content-Type", "application/json"
.send
rspTxt = .ResponseText
End With

ws.Cells(i, 3) = Split(Split(rspTxt, ",")(0), ":")(1)

Next i

End Sub