7777

¦^´_ 2# yws0915


    °ÝÃD¬O§Ú·Q±Nmsg="Hello"§ï¦¨¤¤¤å¡Amsg="§A¦n"´N¥X²{°ÝÃD¡A¥i¥HÀ°§Ú¸Ñ¨M°ÝÃD¶Ü?ÁÂÁÂ

Sub Sample()
Dim msg As String: msg = "§A¦n"
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

7777

¦^´_ 4# singo1232001


    ·PÁÂ

­×§ï«á ¥X²{ ¹Ï1

¤U¸ü (6.75 KB)

2023-2-10 15:12

7777

¦^´_ 7# quickfixer


    ·PÁ¸ѻ¡~~

¤£À´!!
¸Õ¤F«Ü¦h¦¸¡AÁÙ¬O³£¤£¦¨¥\¡A
³o¸ò¹q¸£Àô¹Ò¦³®t¶Ü??
win10 ,2019 ª©¥»office  64¦ì¤¸ (À³¸ÓOK)
ÁÙ¬O»Ý­n¦w¸Ë¤°»ò ??

7777

¦^´_ 7# quickfixer


    ´ú¸Õªº¤T¥x¹q¸£¬Ò¤£¦æ¡A­^¤å³£OK

7777

¦^´_ 10# quickfixer


    https://www.jack168.com/download/curl/curl.html
·Ó°µ
¦w¸Ë¦ncurl
­«¶}¾÷«á¡A¿³¾Äªº°õ¦æ
µ²ªG¤´µM¤£¦æ

¨Ì·PÁÂ

7777

¦^´_ 13# quickfixer


    ·P®¦
³oª©~~~
½T¹ê¥i¥H ¨q¥X¤¤¤å¤F

7777

¦^´_ 13# quickfixer


        ¦A°Ý§Ú·Q±N "LINEÅv§ú"§ï¦¨ a1储¦s®æ¡A´N¥X²{°ÝÃDµL§@·~¡A¥i¥HÀ°§Ú¸Ñ¨M°ÝÃD¶Ü?ÁÂÁÂ

Sub Sample()

Dim AccessToken As String :AccessToken = Sheets("¤u§@ªí1").Range("a1")

Dim msg As String: msg = "§A¦n"
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 AccessToken""" & _
" -F message=" & msg & _
" -F imageFile=@" & imgPath, vbNormalFocus

End Sub




' ³o¬Ookªº ¨S¹Ï
Dim AccessToken As String :AccessToken = Sheets("¤u§@ªí1").Range("a1")     'LINEÅv§ú
Dim msgString As String :msgString = Sheets("¤u§@ªí1").Range("a2")         'LINE°T®§
                        
    '«Ø¥ßAjaxª«¥ó
    Set oXML = CreateObject("Microsoft.XMLHTTP")
    With oXML
        '¨Ï¥Î¦P¨B¶Ç¿é
        .Open "POST", "https://notify-api.line.me/api/notify", 0

        '³]©w¶Ç°e«Ê¥]Header
        .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .SetRequestHeader "Authorization", "Bearer " & AccessToken
        '°õ¦æAjax¶Ç°e
        .send "message=" & msgString
        
        'Åã¥Ü¦^³ø¤º®e
        Debug.Print oXML.responseText
    End With

7777

¦^´_ 16# quickfixer


    ¦¬¨ì~
         ·P®¦

7777

¦^´_ 16# quickfixer


    ¦A½Ð±Ð
¤@¦¸¶Ç°e¨â­Ó¹Ï¤ù

Sub Sample()
Dim msg As String: msg = "§A¦n"
Dim imgPath1 As String: imgPath1 = "C:\Users\hoge\Desktop\test.jpg"
Dim imgPath2 As String: imgPath2 = "C:\Users\hoge\Desktop\testa1.jpg"
Dim cmd As String: cmd = "C:\installations\curl.exe" & _                  ' or    cmd = "curl.exe" & _       '¥Ø«eªº curl.exe ©ñ¦bC:\installations\
" -X POST https://notify-api.line.me/api/notify" & _
" -H ""Authorization: Bearer 5Cx15az4Ka1Gl3idjF5kxYmHg13Ja1xOWsRPkzMaLPh""" & _
" -F message=" & msg & _
" -F imageFile1=@" & imgPath1 & _
" -F imageFile2=@" & imgPath2
Shell cmd, vbNormalFocus
End Sub


¸Õ¤F´X¦¸³£µLªk°Ê§@¡AÁÙ¥i¥H«ç»ò­×§ï?

ÁÂÁÂ