Send Emails With Attachments From Delphi XE5 On Android

Do you need to send emails with attachments over your Android Mail Client using Delphi XE5? Daniel Magin, on his Developer Experts blog, has posted his code on how to do this. Essentially you just need to call Daniel’s “CreateEmail” procedure passing the Recipient, Subject, Content, and Attachment string parameters. If your attachment file does not already exist, Daniel shows how you might create one.

<em>procedure TForm1.Button1Click(Sender: TObject);</em>
<em>var</em>
<em>  sl: TStringList;</em>
<em>  sFileName: string;</em>
<em>begin</em>
<em>  sFileName := Androidapi.IOUtils.getExternalFilesDir + PathDelim + 'Test.txt';</em>
<em>  sl := TStringList.Create;</em>
<em>  try</em>
<em>    sl.Add('TestContent');</em>
<em>    sl.SaveToFile(sFileName);</em>
<em>  finally</em>
<em>    FreeAndNil(sl); // Arc eigentlich unnötig</em>
<em>  end;</em>
<em>  <a href="http://www.danielmagin.de/blog/index.php/2013/11/delphi-xe5-android-send-mails-with-attachments-over-android-mail-client/" target="_blank">CreateEmail('aaaaa@bbbbb.com', 'TestFromDelphi', 'Dödeldiedeidiedödeldiemöp','Test.txt');</a></em>
<em>end;</em>

procedure TForm1.Button1Click(Sender: TObject);

var

sl: TStringList;

sFileName: string;

begin

sFileName := Androidapi.IOUtils.getExternalFilesDir + PathDelim + 'Test.txt';

sl := TStringList.Create;

try

sl.Add('TestContent');

sl.SaveToFile(sFileName);

finally

FreeAndNil(sl); // Arc eigentlich unnötig

end;

<a href="http://www.danielmagin.de/blog/index.php/2013/11/delphi-xe5-android-send-mails-with-attachments-over-android-mail-client/" target="_blank">CreateEmail('[email protected]', 'TestFromDelphi', 'Dödeldiedeidiedödeldiemöp','Test.txt');</a>

end;

Learn how to send mail with attachments with your Delphi XE5 Android Application.

Update: Link appears to be down. Try this StackOverflow answer.

procedure TForm1.CreateEmail(const Recipient, Subject, Content, Attachment: string);
var
JRecipient: TJavaObjectArray&lt;JString&gt;;
Intent: JIntent;
Uri: Jnet_Uri;
AttachmentFile: JFile;
begin
JRecipient := TJavaObjectArray&lt;JString&gt;.Create(1);
JRecipient.Items[0] := StringToJString(Recipient);

Intent := TJIntent.Create;
Intent.setAction(TJIntent.JavaClass.ACTION_SEND);
Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
Intent.putExtra(TJIntent.JavaClass.EXTRA_EMAIL, JRecipient);
Intent.putExtra(TJIntent.JavaClass.EXTRA_SUBJECT, StringToJString(Subject));
Intent.putExtra(TJIntent.JavaClass.EXTRA_TEXT, StringToJString(Content));

if Attachment &lt;&gt; '' then
begin
AttachmentFile := TJFile.JavaClass.init(StringToJString(Attachment));
Uri := TJnet_Uri.JavaClass.fromFile(AttachmentFile);
Intent.putExtra(TJIntent.JavaClass.EXTRA_STREAM, TJParcelable.Wrap((Uri as ILocalObject).GetObjectID));
end;

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

SharedActivity.startActivity(Intent);
end;