엑셀 매크로 VBA 나의 함수 문자전송

Sub 문자전송()

    

  Lines = Last_Lines_3("c")

  UserForm1.Show

  

  If UserForm1.TextBox1.Text = "****" Then

    

    Dim dcs As LGUBaseOpenApi

    Set dcs = New LGUBaseOpenApi

    Call dcs.LoginServer("101", "****!", "***.***.***.***")

    

    For i = 1 To Lines

      yn = Range("U3").Offset(i, 0)

      tel = Range("U3").Offset(i, 1)

      tel = Replace(tel, "-", "")

      

      msg = Range("U3").Offset(i, 2)

      If (yn = "Y" Or yn = "y") And Not IsEmpty(tel) And Not IsEmpty(msg) Then

        Call dcs.SendSMS("0", "", tel, msg)

      End If

    Next

    dcs.DisconnectServer

    MsgBox "전송완료"

    

  Else

    MsgBox "암호가 틀렸습니다."

  End If

  UserForm1.TextBox1.Text = ""

End Sub

.