Newsgroup: it.comp.appl.access
Titolo: Access e Telegram - Spero non sia OT

Buonasera a tutti, premetto che per pigrizia non ho approfondito.
Attivando un bot telegram e ottenendo il Token relativo, è possibile da Access sviluppare una sorta di automatismo?
 
Mi spiego meglio.
 
Ci sono tre canali ai quali sono iscritto, vorrei recuperare i dati in modo automatico e importarli in access, applicando poi una serie di filtri.
 
Lato telegram sono un discreto imbranato, per questo l'idea era quella di importare questi dati di mio interesse in un ambiente dove mi trovo più a mio agio.
 
Curiosando i vecchi post ho visto che si possono inviare messaggi da Access a Telegram, adesso spero possiate darmi la bella notizia (e perché no, qualche idea\link) sull'opportunità di poter leggere da Telegram e importare da Telegram.
 
Grazie a tutti e buona serata,
 
Mauro


[AGGIORNAMENTO]
 
Parrebbe che non sia possibile copiare i messaggi di un canale "non mio". A voi risulta o c'è modo di poter importare i contenuti di uno o più canali di mio interesse?
Grazie


Public Sub ReadTelegram()
 
    Dim objRequest As Object
    Set objRequest = CreateObject("MSXML2.XMLHTTP")
    Dim Messaggi() As String
    Dim Messaggio As String
    Dim update As String
 
    With objRequest
       token = "//////////////////////////////////////////////////////"
 
       sql = "SELECT LastMsg from... /////////////////////////"
	   'leggo l'ultimo messaggio letto e da lì leggo gli altri che sono arrivati
       Set rst = CurrentDb.OpenRecordset(sql)
 
       .Open "POST", "
https://api.telegram.org/bot
" & token & "/getUpdates?offset=" & rst!LastMsg + 1 & "}"
       .Send
       pos1 = 1
       Do While pos1 < 1000
         pos1 = pos1 + 1
         DoEvents
       Loop
       updates = Replace(.ResponseText, Chr(34), "<<")
 
       If updates = "{<<ok<<:true,<<result<<:[]}" Then GoTo fine   'non c'è nessun nuovo messaggio
 
       updates = Replace(updates, "}},{", "§")
       Messaggi = Split(updates, "§")
 
       i = 0
       Do While i <= UBound(Messaggi)
         Messaggio = Messaggi(i)
         pos1 = InStr(Messaggio, ",<<from<<:{<<id<<:")
         FROM = Left(Messaggio, pos1 + Len(",<<from<<:{<<id<<:") + 9)
         pos1 = InStrRev(FROM, ":")
         FROM = Right(FROM, Len(FROM) - pos1)
 
         pos1 = InStrRev(Messaggio, "<<update_id<<:")
         updateid = Right(Messaggio, Len(Messaggio) - pos1 - Len("<<update_id<<:") + 1)
         pos1 = InStr(updateid, ",")
         updateid = Left(updateid, pos1 - 1)
         pos1 = InStrRev(updateid, ":")
         updateid = Right(updateid, Len(updateid) - pos1)
 
       If FROM = "00000000000" Then        'io leggo solo i messaggi che invio io.
	                                       'perchè ci sono tanti che provano ad hackerare i bot
         pos1 = InStr(pos1 + 1, Messaggio, ",<<text<<:<<")
         If pos1 = 0 Then
           SendTelegram "Questo messaggio non contiene testo!?!"
           SendTelegram CStr(Messaggio)
         Else
           update = Right(Messaggio, Len(Messaggio) - pos1 - Len(",<<text<<:<<") + 1)
           pos2 = InStr(update, "<<")
           update = Left(update, pos2 - 1)
           ComandoTelegram (update)
         End If  
       Else
         SendTelegram "Questo messaggio è stato inviato da un utente sconosciuto"
         SendTelegram CStr(Messaggio)
       End If
 
       i = i + 1
      Loop   'loop sui singoli messaggi
 
       DoCmd.RunSQL "UPDATE LastMsg ..."
 
    End With
 
fine:
 
End Sub


nel tuo caso dovresti aggiungere il tuo bot alle varie chat che vuoi seguire 
e aggiungere in questa funzione un select case che gestisca la chat dalla quale arriva il messaggio.
stai attento perché un'impostazione dei bot, che devi gestire da botfather, è /setinline 
se vuoi che il tuo bot legga tutti i messaggi o solo i comandi, cioè i messaggi che iniziano con la slash "/"


Ciao Michele, intanto grazie mille. Mi è parso di capire però che il bot io lo posso aggiungere a gruppi DA ME CREATI, nel mio caso invece, io sono iscritto ad alcuni gruppi di TERZI dai quali vorrei raccogliere, e quindi filtrare, le informazioni che vengono pubblicate al fine di creare, come dire, una sorta di mio FEED personalizzato.
 
Ecco, per le informazioni ad ora in mio possesso, questa cosa non si può fare e a questo punto spero tu possa smentirmi!
 
Grazie e buon lavoro,
 
MAuro


Cerca Telegram bot/bridge.
Ci sono tanti bot che prendono messaggi da un canale e li inoltrano..
Tu dovresti inoltrarli in un gruppo con il tuo bot presente