2013-10-13 58 views
0

德爾福XE5(Android應用程序)。發送意圖使用默認的郵件應用程序在Android中

做一個小的應用程序,只是希望能得到一些反饋。

如何發送意圖使用簡單的TEdit主題, 和Tmemo for Message,並將它發送到最終用戶電話上的默認郵件客戶端。 謝謝。

+1

我想分享表可以可以做到這一點。 – grant1842

+4

哪一部分是你遇到問題?調用一個意圖?確定使用哪個意圖?這些東西中的一些特定於Delphi的方面? [編輯]使您的問題更具體,請。 –

+0

感謝您的評論。我正在查看分享表以將文本附加到。我認爲我們可能不得不打算做這件事,但分享表看起來很有希望。 – grant1842

回答

1

像這樣的東西應該幫助的過程。從UI控件傳入值。

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; 
相關問題