ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¨Ï¥Îexcel vba¤W¶Ç¹ÏÀɨìline

[µ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
  1. Sub line_notify_¹Ï¤ù()   
  2.      '===================================
  3.     'Line°T®§
  4.     '===================================
  5.     Dim oXML As Object
  6.    
  7.     Dim Token As String
  8.    
  9.     Dim URL As String
  10.    
  11.     '«ü©wªºLine Notify Token
  12.    
  13.     Token = "§AªºTOKEN"
  14.    
  15.     'Line Notifyªº¶Ç°e°T®§ºô§}
  16.        
  17.         Line_Message = "str test"
  18.    
  19.     URL = "https://notify-api.line.me/api/notify"

  20.     Set oXML = CreateObject("Microsoft.XMLHTTP")
  21.    
  22.     With oXML
  23.    
  24.         '¨Ï¥Î¦P¨B¶Ç¿é
  25.    
  26.         .Open "POST", URL, 0
  27.    
  28.         '³]©w¶Ç°e«Ê¥]Header
  29.    
  30.         .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  31.    
  32.         .SetRequestHeader "Authorization", "Bearer " & Token
  33.    
  34.         '°õ¦æAjax¶Ç°e
  35.         .send "message=" & Chr(10) & Line_Message
  36.         Debug.Print oXML.responseText
  37.    
  38.     End With
  39.    
  40.     'ÄÀ©ñª«¥ó¸ê·½
  41.    
  42.     Set oXML = Nothing
  43. End Sub
½Æ»s¥N½X

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD