如何在Delphi XE5中使用gmail應用程序發送電子郵件？

Question

很簡單：我試圖用Android的gmail應用程序創建一個電子郵件，就像當你使用gmail分享內容時一樣。我不知道該怎麼做。

Answer 1

發現：

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;