ส่ง line notify ไม่ได้ครับ

[aek]

จาก ตัวอย่างโพส https://www.thai-access.com/index.php?topic=642.0 ผมนำไปใช้แล้วมีข้อความ the download specified resource has failed หมายความว่าอย่างไรครับ และแก้ไขตรงไหนถึงจะทำได้ ขอบคุญครับ (ผมมี line token แล้ว)

[aek]

ย้ายไปทำอีกเครื่องได้เฉยเลยครับบบบ

[sjs]

ลองเล่นนี้มาก็ใช้ดีเลยนะครับ 

https://medium.com/@thiravut.golf/%E0%B8%97%E0%B8%B3%E0%B9%83%E0%B8%AB%E0%B9%89-line-bot-%E0%B8%94%E0%B8%B6%E0%B8%87%E0%B8%82%E0%B9%89%E0%B8%AD%E0%B8%A1%E0%B8%B9%E0%B8%A5%E0%B8%88%E0%B8%B2%E0%B8%81-google-sheet-%E0%B8%94%E0%B9%89%E0%B8%A7%E0%B8%A2-dialogflow-89e50b184533

ทำ line ตอบคำถามดึงข้อมูลจากฐานข้อมูลมาตอบ ยังไม่มีที่ใช้ฐานข้อมูลจาก Access

[aek]

ขอถามต่อนะครับ เมื่อข้อความถูกส่งแล้วจะมี message ตามรูปแสดงขึ้นมา ถ้าไม่ต้องการให้messageแสดงขึ้นมาต้องเขียน code เพิ่มอย่างไรครับ ขอบคุณครับ


Sub SendMessageToLineNotify()

Dim myurl As String, iMessage As String, postDATA As String, winHttpReq As Object
iMessage = Me.TxtMessage
Set winHttpReq = CreateObject("Microsoft.XMLHTTP")
myurl = "https://notify-api.line.me/api/notify"

postDATA = "message= " & iMessage
winHttpReq.Open "POST", myurl, False
winHttpReq.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
winHttpReq.SetRequestHeader "Authorization", "Bearer " & Me.TxtToken
winHttpReq.Send (postDATA)
MsgBox winHttpReq.responsetext

End Sub

ที่มา

[aek]

ได้แล้วครับ
ลบ MsgBox winHttpReq.responsetext ออก