MS Access แจ้งเตือนผ่านไลน์ ส่งข้อความและส่งสติกเกอร์ไลน์ ด้วย VBA

MS Access แจ้งเตือนผ่านไลน์ – VBA Line Notify

MS Access แจ้งเตือนผ่านไลน์

การสร้างการแจ้งเตือนผ่านไลน์จาก Microsoft Access สามารถทำได้โดยใช้บริการที่เรียกว่า Line Notify ซึ่งเป็นบริการที่ให้คุณส่งข้อความและแจ้งเตือนไปยังแชทของ Line ได้ ต่อไปนี้คือขั้นตอนการสร้างการแจ้งเตือนผ่านไลน์จาก MS Access:

WorkShop – MS Access แจ้งเตือนผ่านไลน์ ส่งข้อความและส่งสติกเกอร์ไลน์ด้วย

ลงทะเบียนสร้าง Token จาก Line Notify:
- เข้าสู่เว็บไซต์ Line Notify และเข้าสู่ระบบด้วยบัญชี Line ของคุณ
- คลิกที่ “My Page” (หน้าของฉัน) แล้วคลิกที่ “Generate Token” เพื่อสร้าง Token สำหรับการใช้งาน (อ่านขั้นตอนการออก Token ที่นี่ …)
สร้างโค้ด VBA ใน Form MS Access:
- เปิดฟอร์ม MS Access
- เลือกแท็บ “Design” และเลือกสร้าง “Button” เพื่อสร้างปุ่ม ตั้งชื่อ ปุ่ม “BT001”
- เลือกแท็บ “Event” > “OnClick” > “Code Builder” และ วางโค๊ด

Sub LineSend()
Dim oXML As Object
Dim Linetoken As String ‘Token code ที่ได้จากไลน์
Dim Linetext As String ‘ชุดข้อความที่ส่ง
Dim LineDate As String ‘วันที่และเวลา
Dim url As String

‘Line Notify Token
Linetoken = “………………………………..” ‘Token code ที่ได้จากไลน์
url = “https://notify-api.line.me/api/notify”

LineDate = Format(Now, “DD/MM/YYYY – HH:MM:SS”)

‘Line Message ส่งข้อความ และ สติกเกอร์
Linetext = “message=” & LineDate & ” ข้อความที่ส่งไลน์ ” & “&stickerPackageId=” & 789 & “&stickerId=” & 10857

‘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 BT001_Click()
Call LineSend ‘เรียกใช้งาน
End Sub

**** การปรับแต่ง VBA Code Line Notify

1.นำ token ที่ได้มาวางแทนที่