Excel Forum

สวัสดีครับ อ. และทุกท่าน
ด้านล่างเป็น Code VBA สามารถส่งข้อความช่อง "DW14" ได้แล้ว แต่กำลังหาวิธีส่งรูปภาพ
ซึ่งอยู่ที่ C:/Users/tten5566/Google Drive/000000/S50.jpg แต่ยังส่งไม่ได้เลยครับ
ท่านใดพอจะมีแนวทางไหมครับ ขอบคุณครับ


Public Sub SendLine()

Dim myURL As String
Dim Message As String
Dim postData1, postData2, postData3, postData4 As String
Dim winHttpReq As Object
Dim strPathImg1 As String
Dim strFileImg1 As String

Message1 = WorksheetFunction.EncodeURL(Sheets("Z5_513S13 ").Range("DW14").Text)
'Message2 = WorksheetFunction.EncodeURL(Sheets("Z5_513S13 ").Range("DW15").Text)
'Message3 = WorksheetFunction.EncodeURL(Sheets("Z5_513S13 ").Range("DW16").Text)
'Message4 = WorksheetFunction.EncodeURL(Sheets("Z5_513S13 ").Range("DW17").Text)
p1 = "C:/Users/tten5566/Google Drive/000000/S50.jpg"

'Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
Set winHttpReq = CreateObject("Microsoft.XMLHTTP")
myURL = "https://notify-api.line.me/api/notify"
'postData1 = "message=" + Message1 + Message2 + Message3 + Message4
postData1 = "message=" + Message1
postData2 = "message=" + p1
'postData3 = "message=" + Message3
'postData4 = "message=" + Message4
winHttpReq.Open "POST", myURL, False
winHttpReq.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
'winHttpReq.SetRequestHeader "Authorization", "Bearer 999Youy0byDM5ISwjzJ94uRqER6yK75pCVbJiuNh999"
winHttpReq.SetRequestHeader "Authorization", "Bearer 999c9yMincvCbXmxkQ51CtxbdpaBDDVIM6Kjs9tq999"
winHttpReq.Send (postData1)
'winHttpReq.Send (postData2)
'winHttpReq.Send (postData3)
'winHttpReq.Send (postData4)
SendSMS = winHttpReq.responseText

End Sub

กรุณาโพสต์ Code ให้แสดงเป็นอักษรแบบ Code ดูตัวอย่างได้จากกฎการใช้บอร์ดข้อ 5 ด้านบนครับ

สำหรับการแนบภาพไปกับ LINE Notify ยังค้นไม่พบว่าทำได้ ที่ทำได้เป็นเพียงส่ง Sticker ไปด้วยเท่านั้นครับ