Sub Process_Globals
Dim Sm As SMTP
End Sub
Sub Globals
Dim P2 As Phone
Private Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
If FirstTime Then
Sm.Initialize( "smtp.gmail.com", 587, "yt65red", "llkmnh0l()", "SM")
Sm.StartTLSMode = True
Sm.StartTLSMode = True
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub SM_MessageSent(Success As Boolean)
If(Success) Then
Msgbox("Ok","")
Else
Msgbox("not ok","")
End If
End Sub
Sub Button1_Click
Sm.To.Add("7yt5655@gmail.com")
Sm.Subject = "This is a test"
Sm.Body = "This is a test of the messagwe body"
Sm.Send
End Sub