mailc.Initialize("mailc")
Log ("Can send:"&mailc.CanSendMail) ' Shows true
Log("Initialized:"&mailc.IsInitialized) ' Shows true
Dim body As String ="Test"
mailc.SetToRecipients(Array("[email protected]"))
mailc.SetSubject("Test")
mailc.SetBody(body, False) 'Text
mailc.Show(B4XPages.GetNativeParent(Me))
Sub mailc_Complete (Result As Int)
If Result = mailc.RESULT_SENT Then
Log("ok")
End If
End Sub