ส่ง รูปภาพ ผ่าน line โดย อ้างอิง ที่อยู่รูปภาพไม่ได้ครับ

[nutpochan]

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

Code: Select all

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

ตอนกด แล้วไม่เป็น รูปภาพ ในกลุ่ม line กลับเป็น ชื่อ C:/Users/tten5566/Google Drive/000000/S50.jpg จะแก้ยังไงดีครับ

[snasui]

ลองศึกษาดูตามกระทู้นี้ครับ ส่งภาพผ่าน LINE