LINE Notify LotusScript

Uselsx "*javacon"
Use "LibLineNotify"

Sub Click(Source As Button)
	Dim mySession As JavaSession
	Dim myClass As JavaClass
	Dim myObject As JavaObject
	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument
	Dim result As Boolean
	Dim messageString As String
	Dim accessToken As String
	Dim re As Integer
	Set uidoc = ws.CurrentDocument
	Set doc = uidoc.Document
	
	re = Messagebox( "Send message to LINE Notify Service?" , 4  + 32 + 256 , "Send" )
	If ( re = 7 ) Then
		Exit Sub
	End If
	messageString = doc.messageString(0)
	accessToken = doc.accessToken(0)
	
	Set mySession = New JavaSession()
	Set myClass = mySession.GetClass("chemp.notes.linenotify.LineNotify")
	Set myObject = myClass.CreateObject
	
	result = myObject.callEvent( accessToken , messageString )
	
	If ( result  ) Then
		re = Messagebox( "The message has been sent." , 0 + 64 , "Send" )
	End If	
End Sub