Как отправить электронное письмо с вложением с помощью почтового приложения Android по умолчанию — Delphi XE7 ⇐ Android

[Anonymous]

Используя код ниже, который я нашел в другом сообщении, электронное письмо выглядит готовым к отправке с вложением, но когда электронное письмо получено, вложения нет. Кроме того, адрес электронной почты необходимо вводить вручную, он не заполняется оператором CreateEmail. Отправляю с аккаунта Gmail. Кто-нибудь поможет, пожалуйста?

procedure TForm1.CreateEmail(const Recipient, Subject, Content,
Attachment: string);
var
Intent: JIntent;
Uri: Jnet_Uri;
AttachmentFile: JFile;
begin
Intent := TJIntent.Create;
Intent.setAction(TJIntent.JavaClass.ACTION_SEND);
Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
Intent.putExtra(TJIntent.JavaClass.EXTRA_EMAIL, StringToJString(Recipient));
Intent.putExtra(TJIntent.JavaClass.EXTRA_SUBJECT, StringToJString(Subject));
Intent.putExtra(TJIntent.JavaClass.EXTRA_TEXT, StringToJString(Content));
AttachmentFile := SharedActivity.getExternalFilesDir
(StringToJString(Attachment));

Uri := TJnet_Uri.JavaClass.fromFile(AttachmentFile);

Intent.putExtra(TJIntent.JavaClass.EXTRA_STREAM,
TJParcelable.Wrap((Uri as ILocalObject).GetObjectID));

Intent.setType(StringToJString('vnd.android.cursor.dir/email'));

SharedActivity.startActivity(Intent);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CreateEmail('[email protected]', 'Test Results', Memo1.Lines.text,'/sdcard/Download/Demo.pdf');
end;


Подробнее здесь: https://stackoverflow.com/questions/289 ... delphi-xe7