Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Layout1")
If FirstTime Then
SMTP.Initialize("smtp.gmail.com", 465, "ejemplo@gmail.com", "jaja1234", "SMTP")
SMTP.UseSSL = True 'Esta linea la ponemos ya que Gmail requiere SSL
SMTP.Subject = (EditText2.Text)
SMTP.HtmlBody = True
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
SMTP.Body = EditText1.Text
SMTP.To.Add(EditText6.Text)
SMTP.Send
End Sub
Sub SMTP_MessageSent(Success As Boolean)
If Success=True Then StatusSend1="SI enviado"
If Success=False Then StatusSend1="NO Enviado"
Log(StatusSend1)
End Sub
Sub Button2_Click
Activity.LoadLayout("2")
End Sub