Sub Activity_Resume
If emailsentck="yes" Then MsgSentCk
End Sub
Sub SendEmail
Dim msg As String
msg="ok"
email="[email protected]"
Dim emsg As Email
emsg.To.Add(email)
emsg.Subject=msg
emsg.Body=msg
StartActivity(emsg.GetIntent)
emailsentck="yes
End Sub
Sub MsgSentCk
Msgbox("msg","sent")
emailsentck=""
End Sub