엑셀 VBA에서 텔레그램(Telegram) 메세지 보내기

오늘은 엑셀 VBA에서 텔레그램 메세지를 보내는 코드를 포스팅 해보려고 한다.

 

Function tele(msg As String)
    apikey = "본인의 APIKEY"
    botid = "본인의 BOTID"
    strdata = "chat_id=" & botid & "&text=" & msg
    URL = "https://api.telegram.org/bot" & apikey & "/sendMessage?"
    
    Dim whr As Object
    Set whr = CreateObject("winhttp.winhttprequest.5.1")
    With whr
        .Open "POST", URL
        .setRequestHeader "content-type", "application/x-www-form-urlencoded"
        .send strdata
    End With
End Function

 

VBA 코드는 다음과 같으며 VBA 중에 어떤 텔레그램으로 메세지를 보내고 싶을때 

tele "보내고 싶은 내용"

으로 사용하여 텔레그램으로 메세지를 보낼 수 있게 함수형으로 작성하였다.

 

나같은 경우엔 매수주문을 보냈을때 텔레그램으로 어떤 종목을 얼마에 얼마나 주문을 했는지 보내는 용도로 사용하고 있다. 기타 VBA가 진행중인 것을 모니터링 해야한다면 텔레그램을 활용하면 좋을 것이다.