เขียน MS Access แจ้งเตือนไลน์ เลือกกลุ่มไลน์ Line Notify EP.25

MS Access แจ้งเตือนไลน์ เลือกกลุ่มไลน์ Line Notify
Line@ lin.ee/Q3fca3U
แหล่งรวมความสนุก ของวาไรตี้โดนใจ พบกับเกมมือถือ เกมพีซี เครื่องเกมนินเทนโด้สวิช ของเล่นใหม่ๆ การใช้งานโปรแกรมคอมพิวเตอร์ และขาดไม่ได้กับเมนูอาหารก่อนหรือหลังเล่นเกมส์
สอบถามข้อมูลเพิ่มเติม

[@adisornphamon7692]

จำเอินได้มั้ยยพี่ต้นน🤍

[@Gameconlover]

จ้าาาจำได้จ้าาา

[@Gameconlover]

VBA Code :
Sub LineSend()
Dim oXML As Object
Dim Linetoken As String
Dim Linetext As String
Dim LineDate As String
Dim url As String
'Line Notify Token
Linetoken = gl_out '?????????? notify-api.line.me/
url = "notify-api.line.me/api/notify"
'Line Sticker
'& "&stickerPackageId=" & 446 & "&stickerId=" & 1995
'Line Message
Linetext = "message=" & text_out & user_log & date_out & time_out
'Ajax
Set oXML = CreateObject("Microsoft.XMLHTTP")
With oXML
'Line Post
.Open "POST", url, 0
'Header
.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.SetRequestHeader "Authorization", "Bearer " & Linetoken
'Ajax
.send (Linetext)
'Line Check Print
Debug.Print oXML.responseText
End With
'Line
Set oXML = Nothing
End Sub
Private Sub Command26_Click()
Call LineSend
DoCmd.GoToRecord , , acNewRec
End Sub