如何在Delphi XE5使用Gmail应用程序发送电子邮件？ [英] How to send email using gmail app in Delphi XE5?

问题描述

这很简单：我试图创建一个使用Android的Gmail应用程序的电子邮件，当你使用Gmail分享的东西就是喜欢。我不知道该怎么做。

It's simple: i'm trying to create an email using the gmail app for android, just like when you share something using gmail. I have no idea how to do it.

推荐答案

发现：

procedure TfrmSendMail.CreateEmail(const Recipient, Subject, Content,
  Attachment, Attachment2: string);
var
  Intent: JIntent;
  Uri: Jnet_Uri;
  AttachmentFile: JFile;

begin
  Intent := TJIntent.Create;
  Intent.setAction(TJIntent.JavaClass.ACTION_SEND_MULTIPLE);
  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;

这篇关于如何在Delphi XE5使用Gmail应用程序发送电子邮件？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！