튜토리얼

.NET 개발환경에서 팝빌 SDK를 추가하고, 카카오톡 알림톡 전송 (SendATS) API를 호출하는 기본 과정을 단계별로 따라 해볼 수 있도록 구성된 가이드 입니다.

1. POPBiLL SDK 추가

① 팝빌 연동자료실에서 VB.NET SDK 예제코드 다운로드 후 압축을 해제합니다.

② 다운받은 SDK 예제코드의 Linkhub/, Popbill/ 폴더를 SDK를 적용할 프로젝트 경로에 복사하고. Linkhub.csproj, Popbill.csproj를 각각 기존 프로젝트로 추가합니다.

③ Popbill 프로젝트를 적용할 프로젝트의 참조로 추가합니다.

2. POPBiLL SDK 설정

연동환경 설정값, 카카오톡 서비스 클래스를 선언하고 Form1_Load() 함수에 서비스 클래스 초기화 코드를 추가합니다.

Public Class Form1
  '링크아이디
  Private Const LinkID As String = "TESTER"

  '비밀키
  Private SecretKey As String = "SwWxqU+0TErBXy/9TVjIPEnI0VTUMMSQZtJf3Ed8q3I="

  ' 카카오톡 서비스 객체 선언
  Private kakaoService As KakaoService

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    ' 카카오톡 서비스 객체 초기화
    kakaoService = New KakaoService(LinkID, SecretKey)

    ' 연동환경 설정, true-테스트, false-운영(Production), (기본값:false)
    kakaoService.IsTest = True

    ' 인증토큰 IP 검증 설정, true-사용, false-미사용, (기본값:true)
    kakaoService.IPRestrictOnOff = True

    ' 통신 IP 고정, true-사용, false-미사용, (기본값:false)
    kakaoService.UseStaticIP = false;

    ' 로컬시스템 시간 사용여부, true-사용, false-미사용, (기본값:false)
    kakaoService.UseLocalTimeYN = False

  End Sub
End Class

3. SendATS 기능 구현

Windows Form에 버튼을 생성하고 버튼의 Click Event 코드에 카카오톡 알림톡 전송 (sendATS) 함수 호출 코드를 추가합니다.

Public Class Form1

    Private Sub btnSendATS_one_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles btnSendATS_one.Click

        ' 승인된 알림톡 템플릿코드
        Dim templateCode As String = "019020000163"

        ' 발신번호
        Dim senderNum As String = ""

        '알림톡 내용
        Dim content As String = "[ 팝빌 ]" + vbCrLf
        content += "신청하신 #{템플릿코드}에 대한 심사가 완료되어 승인 처리되었습니다." + vbCrLf
        content += "해당 템플릿으로 전송 가능합니다." + vbCrLf + vbCrLf
        content += "문의사항 있으시면 파트너센터로 편하게 연락주시기 바랍니다." + vbCrLf + vbCrLf
        content += "팝빌 파트너센터 : 1600-8536" + vbCrLf
        content += "support@linkhub.co.kr"

        ' 대체문자 제목
        Dim altSubject = "대체문자 제목"

        ' 대체문자 내용
        Dim altContent As String = "카카오톡이 실패하여 문자로 전송됩니다." + vbCrLf
        altContent += content

        ' 대체문자 유형
        Dim altSendType = "A"

        '수신번호
        Dim receiveNum = ""

        '수신자명
        Dim receiveName = "수신자명"

        ' 요청번호
        Dim requestNum = ""

        ' 버튼 목록
        Dim buttonList As List(Of KakaoButton) = New List(Of KakaoButton)

        ' Dim btnInfo As KakaoButton = New KakaoButton
        ' btnInfo.n = "전화 연결"
        ' btnInfo.t = "TN"
        ' btnInfo.u1 = ""
        ' btnInfo.u2 = ""
        ' btnInfo.tg = ""
        ' btnInfo.telNum = "1600-8536"
        ' buttonList.Add(btnInfo)

        ' 강조표기 타이틀
        Dim emphasizeTitle As String = ""

        ' 팝빌회원 아이디
        Dim userID = "testkorea";

        Try
            Dim receiptNum As String = kakaoService.SendATS(txtCorpNum.Text, templateCode, senderNum, altSubject, altSendType, getReserveDT(), receiveNum, receiveName, content, altContent, requestNum, buttonList, emphasizeTitle, userID)

            MsgBox("receiptNum(접수번호) : " + receiptNum)
            txtReceiptNum.Text = receiptNum

        Catch ex As PopbillException
            MsgBox("code(응답코드) : " + ex.code.ToString + vbCrLf + "message(응답메시지) : " + ex.Message)
        End Try
    End Sub
End Class

4. API 응답결과 확인

API 호출 응답결과는 다음과 같습니다.