Отправить намерение использовать почтовое приложение по умолчанию в android

Question

Delphi XE5 (приложение для Android).

Выполнение небольшого приложения и просто хочу получить обратную связь.

Как я могу отправить намерение использовать простой TEdit для темы, и Tmemo для сообщения и отправить его почтовому клиенту по умолчанию на телефоне конечных пользователей. Спасибо.

Answer 1

Что-то вроде этого должно помочь процессу. Передайте значения из элементов управления пользовательского интерфейса.

uses 
    FMX.Helpers.Android, 
    Androidapi.JNIBridge, 
    Androidapi.JNI.JavaTypes, 
    Androidapi.JNI.GraphicsContentViewText; 
... 
procedure CreateEmail(const Recipient, Subject, Content: string); 
var 
    Intent: JIntent; 
    Recipients: TJavaObjectArray<JString>; 
begin 
    Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_SEND); 
    Recipients := TJavaObjectArray<JString>.Create(1); 
    Recipients.Items[0] := StringToJString(Recipient); 
    Intent.putExtra(TJIntent.JavaClass.EXTRA_EMAIL, Recipients); 
    Intent.putExtra(TJIntent.JavaClass.EXTRA_SUBJECT, StringToJString(Subject)); 
    Intent.putExtra(TJIntent.JavaClass.EXTRA_TEXT, StringToJString(Content)); 
    //Intent.setType(StringToJString('plain/text')); 
    Intent.setType(StringToJString('message/rfc822')); 
    //SharedActivity.startActivity(Intent); 
    SharedActivity.startActivity(TJIntent.JavaClass.createChooser(Intent, 
    StrToJCharSequence('Which email app?'))); 
end;