- ©«¤l
- 60
- ¥DÃD
- 26
- ºëµØ
- 0
- ¿n¤À
- 93
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- Windows 7
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-9-8
- ³Ì«áµn¿ý
- 2020-4-15
|
[µo°Ý] ¨Ï¥Îexcel vba¤W¶Ç¹ÏÀɨìline
Ãö©óline notifyÀ³¥Î, ½Ð°Ýn«ç»ò§â¹ÏÀÉ°e¨ìlineªº¸s²Õ¸Ì±¡H
¹ÏÀɸô®|¬OF:\test.png
§Ú°Ñ¦Òhttps://notify-bot.line.me/doc/en/ ©xºôªº»¡©ú,
¸Ì±¦³´£¨ìn¥Îimagefile, ¦ý¤´¤£ª¾¦p¦ó¤U¤â
½Ð¦U¦ì«e½ú«ü±Ð@@
ªþ¤Wì©l½X- Sub line_notify_¹Ï¤ù()
- '===================================
- 'Line°T®§
- '===================================
- Dim oXML As Object
-
- Dim Token As String
-
- Dim URL As String
-
- '«ü©wªºLine Notify Token
-
- Token = "§AªºTOKEN"
-
- 'Line Notifyªº¶Ç°e°T®§ºô§}
-
- Line_Message = "str test"
-
- URL = "https://notify-api.line.me/api/notify"
- Set oXML = CreateObject("Microsoft.XMLHTTP")
-
- With oXML
-
- '¨Ï¥Î¦P¨B¶Ç¿é
-
- .Open "POST", URL, 0
-
- '³]©w¶Ç°e«Ê¥]Header
-
- .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
-
- .SetRequestHeader "Authorization", "Bearer " & Token
-
- '°õ¦æAjax¶Ç°e
- .send "message=" & Chr(10) & Line_Message
- Debug.Print oXML.responseText
-
- End With
-
- 'ÄÀ©ñª«¥ó¸ê·½
-
- Set oXML = Nothing
- End Sub
½Æ»s¥N½X |
|