Kakao 딜러사 (주)대형네트웍스를 통한 톡 보내기

kakao 딜러사에 견적을 받고 계약을 하면 프로그램 개발에 필요한 API 매뉴얼과 Key 값을 보내 줍니다. 

매뉴얼과 Key값을 이용해서 작성하면 쉽게(?) 개발 가능하지만 약간의 지식과 시간이 필요합니다. 

대형네트웍스 O2OMSG API.pdf

11.54MB

톡 보내는 화면 (전화번호 변경 후 재 게시)

받은 톡 화면

 

수신번호와 발신번호 그리고 구분 및 내용을 입력하고 톡 보내기 버튼을 누르면 톡을 보내는 소스입니다.

Public Function Send_MSG(ByVal sData As String, ByVal sAPIKey as string) As String
    '
    Dim strURL As String
    Dim WinHttp As Object
    Dim strHtml As String
    Dim sSend As String
    Dim sT As String
    
    Dim sTemp As String
    Dim sSql As String
    
    sT = "eplus_01_002"
    If OptionClass(0).Value = True Then sT = "eplus_01_001"
    If OptionClass(2).Value = True Then sT = "eplus_01_003"
    
    sSql = "{""tmp_number"" : ""%0"", ""kakao_sender"" : ""%1"" , ""kakao_phone"" : ""%2"", "
    sSql = sSql & " ""kakao_add1"" : ""%3"", "
    sSql = sSql & " ""kakao_add2"" : """", "
    sSql = sSql & " ""kakao_add3"" : """", "
    sSql = sSql & " ""kakao_add4"" : """", "
    sSql = sSql & " ""kakao_add5"" : """", "
    sSql = sSql & " ""kakao_add6"" : """", "
    sSql = sSql & " ""kakao_add7"" : """", "
    sSql = sSql & " ""kakao_add8"" : """", "
    sSql = sSql & " ""kakao_add9"" : """", "
    sSql = sSql & " ""kakao_add10"" : """", "
    sSql = sSql & " ""kakao_2nd"" : ""Y"", "
    sSql = sSql & " ""kakao_url1_1"" : ""http://www.erpplus.co.kr"", "
    sSql = sSql & " ""kakao_url1_2"" : ""http://www.erpplus.co.kr"", "
    sSql = sSql & " ""kakao_url2_1"" : """", "
    sSql = sSql & " ""kakao_url2_2"" : """", "
    sSql = sSql & " ""kakao_url3_1"" : """", "
    sSql = sSql & " ""kakao_url3_2"" : """", "
    sSql = sSql & " ""kakao_url4_1"" : """", "
    sSql = sSql & " ""kakao_url4_2"" : """", "
    sSql = sSql & " ""kakao_url5_1"" : """", "
    sSql = sSql & " ""kakao_url5_2"" : """", "
    sSql = sSql & " ""kakao_2nd_mms_id"" : """"  } "
    
    sSql = Replace(sSql, "%0", sT)
    sSql = Replace(sSql, "%1", TextTel2)
    sSql = Replace(sSql, "%2", TextTEL)
    sSql = Replace(sSql, "%3", sData)
    
    strURL = "http://o2omsg.com/bizmsgtemp/alimtalk2nd"   
    
    Set WinHttp = CreateObject("Winhttp.WinHttpRequest.5.1")
    WinHttp.Open "POST", strURL, False

    WinHttp.SetRequestHeader "Content-Type", "application/json;charset=utf-8"
    WinHttp.SetRequestHeader "Authorization", sAPIKey '

   '
    WinHttp.Send sSql
   
    WinHttp.WaitForResponse
   
    strHtml = StrConv(WinHttp.ResponseBody, vbUnicode)
    Set WinHttp = Nothing
   
    Send_MSG = strHtml
    
End Function

 
화면에서 받은 내용을 JSON 형태로 변경 후 전송합니다. 

sAPIKey는 kakao 딜러사에서 받은 값을 입력하면 됩니다.