แสดงกระทู้
1
ห้อง MS Access / : Line Notify จะเลิกให้บริการแล้ว ยังต้องการ ให้ Ms access แจ้งเตือนต่อ
« เมื่อ: 28 พ.ย. 67 , 19:35:04 »
ลองทำแบบนี้ได้ครับ
ใช้ LINE Business ID https://manager.line.biz/
แล้วทำ https://developers.line.biz/ นำค่ามาใส่ใน code นี้ครับ
Sub SendLineMessage()
Dim http As Object
Dim url As String
Dim postData As String
Dim channelAccessToken As String
' กำหนด URL สำหรับ LINE API
url = "https://api.line.me/v2/bot/message/push"
' ใส่ Channel Access Token ของคุณ
channelAccessToken = "Channel access token (long-lived)"
' JSON Data สำหรับ Push Message
postData = "{""to"":""Your user ID""," & _
"""messages"":[{""type"":""text"",""text"":""Hello from VBA!""}]}"
' สร้าง HTTP Request
Set http = CreateObject("Microsoft.XMLHTTP")
' เปิดการเชื่อมต่อและกำหนด Method เป็น POST
http.Open "POST", url, False
' ตั้งค่า Request Header
http.setRequestHeader "Content-Type", "application/json"
http.setRequestHeader "Authorization", "Bearer " & channelAccessToken
' ส่งข้อมูล JSON
http.Send postData
' ตรวจสอบสถานะการส่งข้อมูล
If http.Status = 200 Then
MsgBox "Message sent successfully!", vbInformation
Else
MsgBox "Error: " & http.Status & " - " & http.responseText, vbCritical
End If
' ปิด Object
Set http = Nothing
End Sub
ลองค้นหาข้อมูลการทำ วิธีเปิดใช้งาน Messaging API ให้กับ LINE OA ไม่ให้มีปัญหาในอนาคต จะมีวิธีทำขั้นตอนนี้
ใช้ LINE Business ID https://manager.line.biz/
แล้วทำ https://developers.line.biz/ นำค่ามาใส่ใน code นี้ครับ
Sub SendLineMessage()
Dim http As Object
Dim url As String
Dim postData As String
Dim channelAccessToken As String
' กำหนด URL สำหรับ LINE API
url = "https://api.line.me/v2/bot/message/push"
' ใส่ Channel Access Token ของคุณ
channelAccessToken = "Channel access token (long-lived)"
' JSON Data สำหรับ Push Message
postData = "{""to"":""Your user ID""," & _
"""messages"":[{""type"":""text"",""text"":""Hello from VBA!""}]}"
' สร้าง HTTP Request
Set http = CreateObject("Microsoft.XMLHTTP")
' เปิดการเชื่อมต่อและกำหนด Method เป็น POST
http.Open "POST", url, False
' ตั้งค่า Request Header
http.setRequestHeader "Content-Type", "application/json"
http.setRequestHeader "Authorization", "Bearer " & channelAccessToken
' ส่งข้อมูล JSON
http.Send postData
' ตรวจสอบสถานะการส่งข้อมูล
If http.Status = 200 Then
MsgBox "Message sent successfully!", vbInformation
Else
MsgBox "Error: " & http.Status & " - " & http.responseText, vbCritical
End If
' ปิด Object
Set http = Nothing
End Sub
ลองค้นหาข้อมูลการทำ วิธีเปิดใช้งาน Messaging API ให้กับ LINE OA ไม่ให้มีปัญหาในอนาคต จะมีวิธีทำขั้นตอนนี้
โพสต์นี้ได้รับคำขอบคุณจาก: MAKI
