- 帖子
- 12
- 主題
- 2
- 精華
- 0
- 積分
- 61
- 點名
- 12
- 作業系統
- WIN7
- 軟體版本
- SP2
- 閱讀權限
- 20
- 註冊時間
- 2016-8-30
- 最後登錄
- 2026-7-11

|
資料來源https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11237902231- Sub Sample()
- Dim msg As String: msg = "Hello"
- Dim imgPath As String: imgPath = "C:\Users\hoge\Desktop\test.jpg"
- Shell "curl.exe" & _
- " -X POST https://notify-api.line.me/api/notify" & _
- " -H ""Authorization: Bearer 5Cx15az4Ka1Gl3idjF5kxYmHg13Ja1xOWsRPkzMaLPh""" & _
- " -F message=" & msg & _
- " -F imageFile=@" & imgPath, vbNormalFocus
- End Sub
複製代碼 |
|