MS Access ส่งข้อความเข้า line notify


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

23 เม.ย. 61 , 14:27:52
อ่าน 2881 ครั้ง

sjs

MS Access ส่งข้อความเข้า line notify
« เมื่อ: 23 เม.ย. 61 , 14:27:52 »
https://notify-bot.line.me/th/

ทดลองส่ง ข้อความจาก ms access เข้า line

สมัคการใช้และเอา token ไปใส่ในฟอร์มด้วยนะครับ
ที่มา : http://snasui.com/viewtopic.php?t=12785

โค๊ด: [Select]
Option Compare Database
Sub SendMessageToLineNotify()
Dim oXML As Object
Dim strToken As String
Dim strMessage As String
Dim strDate As String
Dim URL As String


'Line Notify Token
strToken = "ใส่ Token line ตรงนี้ " 'สมัคได้ที่ https://notify-api.line.me/

URL = "https://notify-api.line.me/api/notify"


strDate = Format(Now, "DD/MM/YYYY - HH:MM:SS")


'Line Message
strMessage = "message=MS Access "

'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 " & strToken

'Ajax
.send (strMessage)

'Line Check Print
Debug.Print oXML.responseText
End With

'Line
Set oXML = Nothing
End Sub

Private Sub Command0_Click()
Call SendMessageToLineNotify
End Sub

 
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy, สันติสุข, Su, Iamnaw, Winisa

19 พ.ย. 64 , 08:16:44
ตอบกลับ #1

Winisa

: MS Access ส่งข้อความเข้า line notify
« ตอบกลับ #1 เมื่อ: 19 พ.ย. 64 , 08:16:44 »
ขอบคุณค่ะ ใช้ได้ค่ะ

 
โพสต์นี้ได้รับคำขอบคุณจาก: iyarinice06 ice


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5