Inviare messaggi Telegram da VBA

di
Tex Willer
il
6 risposte
T
Tex Willer
Pochi posts
Iscritto da
apr, 2023
Messaggi:
4

Inviare messaggi Telegram da VBA

Buongiorno a tutti

Mi sono appena iscritto e mi scuso se dovessi violare qualche regola.

Sto realizzando un DataBase in Access 2016 per la gestione di interventi tecnici ed ho la necessità di inviare messaggi 

di notifica ad un mio cliente con Telegram Web. Potrei fare il copia/incolla ma mi piacerebbe farlo tramite pulsante in modo 

automatico. Ho fatto qualche ricerca in rete ma quello che ho trovato non riesco ad adattarlo. 

Avrei bisogno di qualche suggerimento per me comprensibile (non sono molto esperto).

Grazie.

6 Risposte

  • fratac
    fratac
    Molto attivo
    Iscritto da
    lug, 2022
    Messaggi:
    707

    Re: Inviare messaggi Telegram da VBA

    Ci dovresti far vedere quello che hai gia realizzato, per renderci conto dell approccio.

    Comunque solitamente si usano le api di telegram, e non sono semplici da usare. Occorre essere molto ferrati su telegram e su access .

  • T
    Tex Willer
    Pochi posts
    Iscritto da
    apr, 2023
    Messaggi:
    4

    Re: Inviare messaggi Telegram da VBA

    Anzitutto grazie.

    In effetti proprio perchè non è molto semplice, sto provando ad usare il codice trovato su un forum su Excel, ho immaginato 

    che potessi adattarlo. 

    Ho creato un token su telegram web e l'ho inserito nel codice ma ho diversi dubbi...

    Sub Telegram()

    Dim objHTTP As Object

    Dim strPostData As String

    Dim strChatId As String

    Dim strMessage As String

    Dim URL As String

    strChatId = -1001416222264#

        strMessage = "prova"

        strPostData = "chat_id=" & strChatId & "&text=" & strMessage

        Set objHTTP = CreateObject("MSXML2.XMLHTTP")

        URL = "https://api.telegram.org/bot1176474286:AAEyQwjlkL................./sendMessage?"

    objHTTP.Open "POST", URL, False

        objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

        objHTTP.send (strPostData)

    End Sub

    1) strChatID deve essere l'identificativo del destinatario del messaggio?

    2) L'oggetto MSXML2.XMLHTTP è corretto?

    3) Credo che il bot di telegram vada configurato ma non so come e non credo che questo sia il forum giusto

    Riuscissi a risolvere almeno i primi 2 punti non sarebbe male.

    Grazie mille.

  • O
    oregon
    Super Famoso
    Iscritto da
    nov, 2011
    Messaggi:
    21791

    Re: Inviare messaggi Telegram da VBA

    Così non s8 capisce nulla, usa la formattazione del codice , vedi il regolamento

  • T
    Tex Willer
    Pochi posts
    Iscritto da
    apr, 2023
    Messaggi:
    4

    Re: Inviare messaggi Telegram da VBA

    Anzitutto grazie.
In effetti proprio perchè non è molto semplice, sto provando ad usare il codice trovato su un forum su Excel, ho immaginato 
che potessi adattarlo. 
Ho creato un token su telegram web e l'ho inserito nel codice ma ho diversi dubbi...


Sub Telegram()
Dim objHTTP As Object
Dim strPostData As String
Dim strChatId As String
Dim strMessage As String
Dim URL As String

	strChatId = -1001416222264#
    strMessage = "prova"
    strPostData = "chat_id=" & strChatId & "&text=" & strMessage

    Set objHTTP = CreateObject("MSXML2.XMLHTTP")
    URL = "https://api.telegram.org/bot1176474286:AAEyQwjlkL................./sendMessage?"
            
	objHTTP.Open "POST", URL, False
    objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    objHTTP.send (strPostData)

End Sub

1) strChatID deve essere l'identificativo del destinatario del messaggio?
2) L'oggetto MSXML2.XMLHTTP è corretto?
3) Credo che il bot di telegram vada configurato ma non so come e non credo che questo sia il forum giusto

Riuscissi a risolvere almeno i primi 2 punti non sarebbe male.

Grazie mille.
  • T
    Tex Willer
    Pochi posts
    Iscritto da
    apr, 2023
    Messaggi:
    4

    Re: Inviare messaggi Telegram da VBA

    Sub Telegram()
Dim objHTTP As Object
Dim strPostData As String
Dim strChatId As String
Dim strMessage As String
Dim URL As String

	strChatId = -1001416222264#
    strMessage = "prova"
    strPostData = "chat_id=" & strChatId & "&text=" & strMessage

    Set objHTTP = CreateObject("MSXML2.XMLHTTP")
    URL = "https://api.telegram.org/bot1176474286:AAEyQwjlkL................./sendMessage?"
            
	objHTTP.Open "POST", URL, False
    objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    objHTTP.send (strPostData)

End Sub

    Scusate… non avevo idea di come sarebbe risultato…. quando l'ho incollato era formattato correttamente. Spero che così si possa leggere meglio.

  • fratac
    fratac
    Molto attivo
    Iscritto da
    lug, 2022
    Messaggi:
    707

    Re: Inviare messaggi Telegram da VBA

    Telegram ha molti tipi di “bot” con diverse autorizzazioni e permessi. Devi creare il bot e poi attivarlo da telegram.

    Devi poi avere anche un posto fisico dove farlo girare e gestire. Che nel tuo caso sarebbe il tuo pc. 4 o 5 anni fa ne creai uno, ma dovetti studiare molto.non penso che scopiazzando del codice ci si riesca. 

Devi accedere o registrarti per scrivere nel forum
6 risposte